Skip to content

Commit

Permalink
add omp parallel for ATMP,DTMP loops
Browse files Browse the repository at this point in the history
  • Loading branch information
KarinaAsmar-NOAA committed Dec 9, 2024
1 parent 19c17e6 commit 42326bc
Showing 1 changed file with 1 addition and 0 deletions.
1 change: 1 addition & 0 deletions sorc/ncep_post.fd/UPP_PHYSICS.f
Original file line number Diff line number Diff line change
Expand Up @@ -4866,6 +4866,7 @@ SUBROUTINE CALCHIPSI (UWND,VWND,CHI,PSI)
call exch(div(ista_2l:iend_2u,jsta_2l:jend_2u))
!
! store absv and div factors before poisson loops
!$omp parallel do private(i,j)
DO J=JSTA,JEND
DO I=ISTA,IEND
ATMP(I,J)=0.25*(ABSV(I,J)-F(I,J))/(wrk2(i,j)*wrk1(i,j)*wrk3(i,j)*wrk1(i,j)*COSL(i,j)*4.)
Expand Down

0 comments on commit 42326bc

Please sign in to comment.