Merge pull request NOAA-EMC#31 from EricJames-NOAA/uh_fix

Adding a check for extremely large positive or negative UH values
shoyokota · Jun 8, 2022 · 52a3606 · 52a3606
2 parents a86eab7 + e51b14a
commit 52a3606
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/sorc/ncep_post.fd/CALUPDHEL.f b/sorc/ncep_post.fd/CALUPDHEL.f
@@ -131,11 +131,14 @@ SUBROUTINE CALUPDHEL(UPDHEL)
 
               UPDHEL(I,J)=UPDHEL(I,J)+(DVDX-DUDY)*WH(I,J,L)*DZ
 
+              IF (UPDHEL(I,J) < -9E10 .OR. UPDHEL(I,J) > 9E10) THEN
+                 UPDHEL(I,J) = spval
+              ENDIF
+
             ENDIF
           ENDDO l_loop
         ENDDO
       ENDDO
-
 !
 !      print*,'jsta_m, jend_m in calupdhel= ',jsta_m,jend_m
 !