chunxi fix : f_rimef = qg in FA code

climbfuji · Nov 25, 2019 · 92d9edf · 92d9edf
1 parent f9e3ee0
commit 92d9edf
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/physics/mp_fer_hires.F90 b/physics/mp_fer_hires.F90
@@ -273,7 +273,7 @@ SUBROUTINE mp_fer_hires_run(NCOL, NLEV, DT ,SPEC_ADV             &
             IF (T(I,K) < T_ICEK) F_ICE(I,K)=1.
          ELSE
             F_ICE(I,K)=MAX( 0., MIN(1., QI(I,K)/cwm(I,K) ) )
-            F_RIMEF(I,K)=QG(I,K)/QI(I,K)
+            F_RIMEF(I,K)=QG(I,K) !/QI(I,K) Chunxi Nov 25,2019
          ENDIF
          IF (QR(I,K) <= EPSQ) THEN
             F_RAIN(I,K)=0.