From a304e64242a297bfc230b4d2c00e0aba96ecd6b4 Mon Sep 17 00:00:00 2001 From: "Kate.Zhang" Date: Mon, 23 Nov 2020 19:33:27 +0000 Subject: [PATCH] Define maod in INITPOST_GFS_NEMS_MPIIO.f --- sorc/gfs_post.fd/sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 1604b29988..96fb83bb44 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, & - 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