diff --git a/parm/postcntrl_gefs_aerosol.xml b/parm/postcntrl_gefs_aerosol.xml index 8bde2b9d8..d63846e1d 100755 --- a/parm/postcntrl_gefs_aerosol.xml +++ b/parm/postcntrl_gefs_aerosol.xml @@ -10,10 +10,10 @@ fcst oper fcst - ens_fcst + fcst hour nws_ncep - gefs + gfs complex_packing_spatial_diff 2nd_ord_sptdiff fltng_pnt diff --git a/parm/postcntrl_gefs_aerosol_f00.xml b/parm/postcntrl_gefs_aerosol_f00.xml index 426c4803a..dcbaa94a2 100644 --- a/parm/postcntrl_gefs_aerosol_f00.xml +++ b/parm/postcntrl_gefs_aerosol_f00.xml @@ -10,10 +10,10 @@ fcst oper fcst - ens_fcst + fcst hour nws_ncep - gefs + gfs complex_packing_spatial_diff 2nd_ord_sptdiff fltng_pnt diff --git a/sorc/ncep_post.fd/INITPOST_NETCDF.f b/sorc/ncep_post.fd/INITPOST_NETCDF.f index 842804e02..18da6722d 100644 --- a/sorc/ncep_post.fd/INITPOST_NETCDF.f +++ b/sorc/ncep_post.fd/INITPOST_NETCDF.f @@ -40,6 +40,7 @@ !> 2023-07-06 | Eric James | Read in SOILL on 9 levels for RRFS !> 2023-07-24 | Hui-Ya Chuang | Bug fix in tke inialization !> 2023-08-04 | Jaymes Kenyon | Read RRFS microphysics number concentrations (cloud water, cloud ice, rain) +!> 2023-08-31 | Li(Kate Zhang)| Add condition to include/exclude processing nitrate from model output !> !> @author Hui-Ya Chuang @date 2016-03-04 !---------------------------------------------------------------------- @@ -1373,6 +1374,7 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) !$omp parallel do private(i,j) do j=jsta,jend do i=ista,iend + if ((dt1(i,j,l) /= spval ) .and. (dt2(i,j,l) /= spval) .and. (dt3(i,j,l) /= spval)) then no3(i,j,l,1)=dt1(i,j,l) no3(i,j,l,2)=dt2(i,j,l) no3(i,j,l,3)=dt3(i,j,l) @@ -1380,6 +1382,12 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) no3cb(i,j)=no3cb(i,j)+ & (no3(i,j,l,1)+no3(i,j,l,2)+no3(i,j,l,3))* & dpres(i,j,l)/grav + else + no3(i,j,l,1)=0.0 + no3(i,j,l,2)=0.0 + no3(i,j,l,3)=0.0 + endif + enddo enddo end do ! do loop for l