From 69f22510791b1f5c462466dae042fcc9254d5a8f Mon Sep 17 00:00:00 2001 From: Scott Sieron Date: Mon, 8 Feb 2021 16:25:42 +0000 Subject: [PATCH] call_crtm bug fix for gmi --- src/gsi/crtm_interface.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/gsi/crtm_interface.f90 b/src/gsi/crtm_interface.f90 index 6e5d775c9c..45a2c83bea 100644 --- a/src/gsi/crtm_interface.f90 +++ b/src/gsi/crtm_interface.f90 @@ -2074,7 +2074,7 @@ subroutine call_crtm(obstype,obstime,data_s,nchanl,nreal,ich, & hwp_total = sum(hwp_guess(:)) theta_700 = atmosphere(1)%temperature(idx700)*(r1000/atmosphere(1)%pressure(idx700))**rd_over_cp theta_sfc = data_s(itsavg)*(r100/ps)**rd_over_cp - stability = theta_700 - theta_sfc + if (present(stability)) stability = theta_700 - theta_sfc endif ! Set clouds for CRTM