From 9c7a27b6333792e64adda30b2a64ab196cc92764 Mon Sep 17 00:00:00 2001 From: "Kate.Zhang" Date: Wed, 25 Nov 2020 01:32:44 +0000 Subject: [PATCH] Fix the UPP bug --- sorc/gfs_post.fd/sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f | 5 +---- sorc/gfs_post.fd/sorc/ncep_post.fd/MPI_FIRST.f | 2 +- 2 files changed, 2 insertions(+), 5 deletions(-) diff --git a/sorc/gfs_post.fd/sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f b/sorc/gfs_post.fd/sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f index d1dd3dbc57..101bb8426a 100644 --- a/sorc/gfs_post.fd/sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f +++ b/sorc/gfs_post.fd/sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f @@ -74,7 +74,7 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) avisbeamswin,avisdiffswin,airbeamswin,airdiffswin, & alwoutc,alwtoac,aswoutc,aswtoac,alwinc,aswinc,avgpotevp,snoavg, & dustcb,bccb,occb,sulfcb,sscb,dustallcb,ssallcb,dustpm,sspm,pp25cb,pp10cb, & - maod,ti + ti,maod use soil, only: sldpth, sh2o, smc, stc use masks, only: lmv, lmh, htm, vtm, gdlat, gdlon, dx, dy, hbm2, sm, sice ! use kinds, only: i_llong @@ -3692,9 +3692,6 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) enddo ! done with flux file, close it for now - call nemsio_close(ffile,iret=status) - deallocate(tmp,recname,reclevtyp,reclev) - #if 0 ! Retrieve aer fields if it's listed (GOCART) diff --git a/sorc/gfs_post.fd/sorc/ncep_post.fd/MPI_FIRST.f b/sorc/gfs_post.fd/sorc/ncep_post.fd/MPI_FIRST.f index 22d4bc873b..f00294f783 100644 --- a/sorc/gfs_post.fd/sorc/ncep_post.fd/MPI_FIRST.f +++ b/sorc/gfs_post.fd/sorc/ncep_post.fd/MPI_FIRST.f @@ -79,7 +79,7 @@ SUBROUTINE MPI_FIRST() ocsmass25, occmass25, bcsmass, bccmass, bcsmass25, bccmass25, & sssmass, sscmass, sssmass25, sscmass25, ducmass25, & dustcb, sscb, bccb, occb, sulfcb, dustallcb, ssallcb,dustpm,sspm, pp25cb,& - pp10cb,maod !lzhang + pp10cb, ti, maod !lzhang use soil, only: smc, stc, sh2o, sldpth, rtdpth, sllevel use masks, only: htm, vtm, hbm2, sm, sice, lmh, gdlat, gdlon, dx, dy, lmv use ctlblk_mod, only: me, num_procs, jm, jsta, jend, jsta_m, jsta_m2, &