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

NOAA-EMC · 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