The fix in CALUPDHEL.f (#458)

* Modify CALUPDHEL.f for restricting undefined grids in computation. * Update VERSION to 10.0.12.
NOAA-EMC · Mar 18, 2022 · 0185bb9 · 0185bb9
1 parent 7a5ae3c
commit 0185bb9
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 1 deletion.
diff --git a/VERSION b/VERSION
@@ -1 +1 @@
-10.0.11
+10.0.12
diff --git a/sorc/ncep_post.fd/CALUPDHEL.f b/sorc/ncep_post.fd/CALUPDHEL.f
@@ -11,6 +11,7 @@
 !! 11-01-11 M Pyle - converted to F90 for unified post
 !! 11-04-05 H Chuang - added B grid option
 !! 20-11-06 J Meng - USE UPP_MATH MODULE
+!! 22-03-17 Wen Meng - Restrict computation from undefined grids.
 !! 
 !! USAGE: CALL CALUPDHEL(UPDHEL)
 !!
@@ -101,6 +102,8 @@ SUBROUTINE CALUPDHEL(UPDHEL)
  DO J=JSTA_M,JEND_M
  DO I=2,IM-1
 
+ IF (HTSFC(I,J) < spval) THEN
+
  R2DX = 1./(2.*DX(I,J))
  R2DY = 1./(2.*DY(I,J))
 
@@ -133,6 +136,11 @@ SUBROUTINE CALUPDHEL(UPDHEL)
 
  ENDIF
  ENDDO l_loop
+
+ ELSE
+ UPDHEL(I,J) = spval
+ ENDIF
+
  ENDDO
  ENDDO