We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 7a5ae3c commit 0185bb9Copy full SHA for 0185bb9
VERSION
@@ -1 +1 @@
1
-10.0.11
+10.0.12
sorc/ncep_post.fd/CALUPDHEL.f
@@ -11,6 +11,7 @@
11
!! 11-01-11 M Pyle - converted to F90 for unified post
12
!! 11-04-05 H Chuang - added B grid option
13
!! 20-11-06 J Meng - USE UPP_MATH MODULE
14
+!! 22-03-17 Wen Meng - Restrict computation from undefined grids.
15
!!
16
!! USAGE: CALL CALUPDHEL(UPDHEL)
17
@@ -101,6 +102,8 @@ SUBROUTINE CALUPDHEL(UPDHEL)
101
102
DO J=JSTA_M,JEND_M
103
DO I=2,IM-1
104
105
+ IF (HTSFC(I,J) < spval) THEN
106
+
107
R2DX = 1./(2.*DX(I,J))
108
R2DY = 1./(2.*DY(I,J))
109
@@ -133,6 +136,11 @@ SUBROUTINE CALUPDHEL(UPDHEL)
133
136
134
137
ENDIF
135
138
ENDDO l_loop
139
140
+ ELSE
141
+ UPDHEL(I,J) = spval
142
+ ENDIF
143
144
ENDDO
145
146
0 commit comments