Add a fix of Model_Radar in MDLFLD.f (#268)

NOAA-EMC · Feb 24, 2021 · 1d3d6ff · 1d3d6ff
1 parent 638c479
commit 1d3d6ff
Showing 1 changed file with 11 additions and 1 deletion.
diff --git a/sorc/ncep_post.fd/MDLFLD.f b/sorc/ncep_post.fd/MDLFLD.f
@@ -180,7 +180,17 @@ SUBROUTINE MDLFLD
 !
 ! Set up logical flag to indicate whether model outputs radar directly
       Model_Radar = .false.
-      IF (ABS(MAXVAL(REF_10CM)-SPVAL)>SMALL)Model_Radar=.True.
+!      IF (ABS(MAXVAL(REF_10CM)-SPVAL)>SMALL)Model_Radar=.True.
+      check_ref: DO L=1,LM
+        DO J=JSTA,JEND
+        DO I=1,IM
+          IF(ABS(REF_10CM(I,J,L)-SPVAL)>SMALL) THEN
+            Model_Radar=.True.
+            exit check_ref
+          ENDIF
+        ENDDO
+        ENDDO
+      ENDDO check_ref
       if(me==0)print*,'Did post read in model derived radar ref ',Model_Radar, &
         'MODELNAME=',trim(MODELNAME),'imp_physics=',imp_physics
       ALLOCATE(EL     (IM,JSTA_2L:JEND_2U,LM))