Vlab Issue #57108 -- Unify RH computation for regional and global FV3.

Change-Id: I37d5cc343af01bb485a5fb2e756594e7cf6e9470
fossell · Jul 8, 2019 · 0385321 · 0385321
1 parent 7159f89
commit 0385321
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/sorc/ncep_post.fd/MDL2P.f b/sorc/ncep_post.fd/MDL2P.f
@@ -1333,7 +1333,7 @@ SUBROUTINE MDL2P(iostatusD3D)
               ENDDO
             ENDDO
 !
-            IF(MODELNAME == 'GFS')THEN
+            IF(MODELNAME == 'GFS' .or. MODELNAME == 'FV3R')THEN
               CALL CALRH_GFS(EGRID2(1,jsta),TSL(1,jsta),QSL(1,jsta),EGRID1(1,jsta))
             ELSEIF (MODELNAME == 'RAPR')THEN 
               CALL CALRH_GSD(EGRID2(1,jsta),TSL(1,jsta),QSL(1,jsta),EGRID1(1,jsta))