From 98c58ad3d0444859aae54c31bc2b86ba30b4a9ac Mon Sep 17 00:00:00 2001 From: "Man.Zhang" Date: Tue, 19 Nov 2019 14:35:10 -0700 Subject: [PATCH] bug fix --- model/fv_mapz.F90 | 1 - 1 file changed, 1 deletion(-) diff --git a/model/fv_mapz.F90 b/model/fv_mapz.F90 index 0e49f9fe1..e89b7927c 100644 --- a/model/fv_mapz.F90 +++ b/model/fv_mapz.F90 @@ -3473,7 +3473,6 @@ subroutine moist_cv(is,ie, isd,ied, jsd,jed, km, j, k, nwat, sphum, liq_wat, rai #else cvm(i) = (1.-(qv(i)+qd(i)))*cv_air + qv(i)*cv_vap + qd(i)*c_liq #endif -#else #else qv(i) = q(i,j,k,sphum) ql(i) = q(i,j,k,liq_wat) + q(i,j,k,rainwat)