Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

3DRTMA specific change #172

Merged
merged 3 commits into from
Aug 27, 2020
Merged

3DRTMA specific change #172

Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
b4bf785
add the SUBMODELNAME='RTMA' logic to update 10m wind for 3DRTMA
guoqing-noaa Aug 25, 2020
3c0d035
use 'submodelname' from the ctlblk_mod module
guoqing-noaa Aug 26, 2020
71983ed
Merge latest changes from the "develop" branch of NOAA-EMC/EMC_post
guoqing-noaa Aug 27, 2020
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
20 changes: 9 additions & 11 deletions sorc/ncep_post.fd/INITPOST.F
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -80,7 +80,7 @@ SUBROUTINE INITPOST
isf_surface_physics, nsoil, ardlw, ardsw, asrfc, me, mpi_comm_comp, &
nphs, smflag, spl, lsm, dt, prec_acc_dt, dtq2, tsrfc, trdlw, &
trdsw, theat, tclod, tprec, nprec, alsl, im, jm, lm, grib, &
prec_acc_dt1
prec_acc_dt1, submodelname
use params_mod, only: capa, g, rd, d608, tfrz, ad05, cft0, stbol, &
p1000, pi, rtd, lheat, dtr, erad
use lookup_mod, only: thl, plq, ptbl, ttbl, rdq, rdth, rdp, rdthe, pl, &
Expand Down Expand Up @@ -1779,25 +1779,23 @@ SUBROUTINE INITPOST
IM,1,JM,1,IM,JS,JE,1)
do j = jsta_2l, jend_2u
do i = 1, im
!IF(MODELNAME == 'RAPR')THEN
!tgs use 1st level of unstaggered UH for U10
!U10 ( i, j ) = uh ( i, j, lm )
! ELSE
IF(SUBMODELNAME == 'RTMA')THEN !use 1st level of unstaggered U for U10
U10 ( i, j ) = uh ( i, j, lm )
ELSE
U10 ( i, j ) = dummy( i, j )
! ENDIF
ENDIF
end do
end do
VarName='V10'
call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, &
IM,1,JM,1,IM,JS,JE,1)
do j = jsta_2l, jend_2u
do i = 1, im
!IF( MODELNAME == 'RAPR')THEN
!tgs use 1st level of unstaggered VH for V10
!V10 ( i, j ) = vh ( i, j, lm )
!ELSE
IF( SUBMODELNAME == 'RTMA')THEN!use 1st level of unstaggered V for V10
V10 ( i, j ) = vh ( i, j, lm )
ELSE
V10 ( i, j ) = dummy( i, j )
!ENDIF
ENDIF
end do
end do
! print*,'V10 at ',ii,jj,' = ',V10(ii,jj)
Expand Down