Skip to content

Commit

Permalink
20220401 Jesse Meng minor fix for CALMCVG.f and update CALUPDHEL.f wi…
Browse files Browse the repository at this point in the history
…th develop
  • Loading branch information
wx22mj authored and wx22mj committed Apr 1, 2022
1 parent b78a3a3 commit d3d5954
Show file tree
Hide file tree
Showing 2 changed files with 11 additions and 4 deletions.
8 changes: 4 additions & 4 deletions sorc/ncep_post.fd/CALMCVG.f
Original file line number Diff line number Diff line change
Expand Up @@ -81,6 +81,10 @@ SUBROUTINE CALMCVG(Q1D,U1D,V1D,QCNVG)
!
! INITIALIZE MOISTURE CONVERGENCE ARRAY. LOAD TEMPORARY WIND ARRAYS.
!
CALL EXCH(Q1D)
CALL EXCH(U1D)
CALL EXCH(V1D)

!$omp parallel do private(i,j)
DO J=JSTA_2L,JEND_2U
! DO I=1,IM
Expand All @@ -96,10 +100,6 @@ SUBROUTINE CALMCVG(Q1D,U1D,V1D,QCNVG)
IF (VWND(I,J) == SPVAL) VWND(I,J) = D00
ENDDO
ENDDO

CALL EXCH(Q1D)
CALL EXCH(VWND)
CALL EXCH(UWND)
!
IF(gridtype == 'A')THEN
!$omp parallel do private(i,j,qudx,qvdy,r2dx,r2dy)
Expand Down
7 changes: 7 additions & 0 deletions sorc/ncep_post.fd/CALUPDHEL.f
Original file line number Diff line number Diff line change
Expand Up @@ -103,6 +103,8 @@ SUBROUTINE CALUPDHEL(UPDHEL)
DO J=JSTA_M,JEND_M
DO I=ISTA_M,IEND_M

IF (HTSFC(I,J) < spval) THEN

R2DX = 1./(2.*DX(I,J))
R2DY = 1./(2.*DY(I,J))

Expand Down Expand Up @@ -135,6 +137,11 @@ SUBROUTINE CALUPDHEL(UPDHEL)

ENDIF
ENDDO l_loop

ELSE
UPDHEL(I,J) = spval
ENDIF

ENDDO
ENDDO

Expand Down

0 comments on commit d3d5954

Please sign in to comment.