Skip to content

Commit 0185bb9

Browse files
authored
The fix in CALUPDHEL.f (#458)
* Modify CALUPDHEL.f for restricting undefined grids in computation. * Update VERSION to 10.0.12.
1 parent 7a5ae3c commit 0185bb9

File tree

2 files changed

+9
-1
lines changed

2 files changed

+9
-1
lines changed

VERSION

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1 +1 @@
1-
10.0.11
1+
10.0.12

sorc/ncep_post.fd/CALUPDHEL.f

Lines changed: 8 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -11,6 +11,7 @@
1111
!! 11-01-11 M Pyle - converted to F90 for unified post
1212
!! 11-04-05 H Chuang - added B grid option
1313
!! 20-11-06 J Meng - USE UPP_MATH MODULE
14+
!! 22-03-17 Wen Meng - Restrict computation from undefined grids.
1415
!!
1516
!! USAGE: CALL CALUPDHEL(UPDHEL)
1617
!!
@@ -101,6 +102,8 @@ SUBROUTINE CALUPDHEL(UPDHEL)
101102
DO J=JSTA_M,JEND_M
102103
DO I=2,IM-1
103104

105+
IF (HTSFC(I,J) < spval) THEN
106+
104107
R2DX = 1./(2.*DX(I,J))
105108
R2DY = 1./(2.*DY(I,J))
106109

@@ -133,6 +136,11 @@ SUBROUTINE CALUPDHEL(UPDHEL)
133136

134137
ENDIF
135138
ENDDO l_loop
139+
140+
ELSE
141+
UPDHEL(I,J) = spval
142+
ENDIF
143+
136144
ENDDO
137145
ENDDO
138146

0 commit comments

Comments
 (0)