Merge pull request #19 from zhanglikate/feature/chem

Fix the UPP bug
NOAA-GSL · Nov 25, 2020 · 09d424b · 09d424b
2 parents df7c392 + 9c7a27b
commit 09d424b
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 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
@@ -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
@@ -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,           &