Add missing change in fv_cmp.F90 - now identical with EMC code

climbfuji · Oct 7, 2019 · f627bfb · f627bfb
1 parent e868186
commit f627bfb
Showing 1 changed file with 1 addition and 2 deletions.
diff --git 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