From 36a366b329fd5f08ee9b89d42c06ec78bc56e49a Mon Sep 17 00:00:00 2001 From: Guoqing Ge Date: Thu, 27 Aug 2020 17:32:45 -0600 Subject: [PATCH] 3DRTMA specific change (#172) * add the SUBMODELNAME='RTMA' logic to update 10m wind for 3DRTMA * use 'submodelname' from the ctlblk_mod module --- sorc/ncep_post.fd/INITPOST.F | 20 +++++++++----------- 1 file changed, 9 insertions(+), 11 deletions(-) diff --git a/sorc/ncep_post.fd/INITPOST.F b/sorc/ncep_post.fd/INITPOST.F index a486d8bb46..3c8a1c0a79 100644 --- a/sorc/ncep_post.fd/INITPOST.F +++ b/sorc/ncep_post.fd/INITPOST.F @@ -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, & @@ -1779,12 +1779,11 @@ 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' @@ -1792,12 +1791,11 @@ 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 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)