From f627bfb177dc1f2d0bd10371540c43c51ce8eec4 Mon Sep 17 00:00:00 2001 From: Dom Heinzeller Date: Mon, 7 Oct 2019 12:12:24 +0900 Subject: [PATCH] Add missing change in fv_cmp.F90 - now identical with EMC code --- model/fv_cmp.F90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/model/fv_cmp.F90 b/model/fv_cmp.F90 index 79e7c513b..16b679b9f 100644 --- a/model/fv_cmp.F90 +++ b/model/fv_cmp.F90 @@ -777,8 +777,7 @@ subroutine fv_sat_adj (mdt, zvir, is, ie, js, je, ng, hydrostatic, consv_te, te0 if(tintqs) then tin = pt1(i) else -! tin = pt1 (i) - (lcp2 (i) * q_cond (i) + icp2 (i) * q_sol (i)) ! minimum temperature - tin = pt1 (i) - (lcp2 (i) * q_liq (i) + icp2 (i) * q_sol (i)) ! minimum temperature + tin = pt1 (i) - (lcp2 (i) * q_cond (i) + icp2 (i) * q_sol (i)) ! minimum temperature ! tin = pt1 (i) - ((lv00 + d0_vap * pt1 (i)) * q_cond (i) + & ! (li00 + dc_ice * pt1 (i)) * q_sol (i)) / (mc_air (i) + qpz (i) * c_vap) endif