Update postcntrl_gefs_aerosol.xml postcntrl_gefs_aerosol_f00.xml

NOAA-EMC · Aug 31, 2023 · 0f075e9 · 0f075e9
1 parent 878a8ad
commit 0f075e9
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 4 deletions.
diff --git a/parm/postcntrl_gefs_aerosol.xml b/parm/postcntrl_gefs_aerosol.xml
@@ -10,10 +10,10 @@
     <sigreftime>fcst</sigreftime>
     <prod_status>oper</prod_status>
     <data_type>fcst</data_type>
-    <gen_proc_type>ens_fcst</gen_proc_type>
+    <gen_proc_type>fcst</gen_proc_type>
     <time_range_unit>hour</time_range_unit>
     <orig_center>nws_ncep</orig_center>
-    <gen_proc>gefs</gen_proc>
+    <gen_proc>gfs</gen_proc>
     <packing_method>complex_packing_spatial_diff</packing_method>
     <order_of_sptdiff>2nd_ord_sptdiff</order_of_sptdiff>
     <field_datatype>fltng_pnt</field_datatype>

diff --git a/parm/postcntrl_gefs_aerosol_f00.xml b/parm/postcntrl_gefs_aerosol_f00.xml
@@ -10,10 +10,10 @@
     <sigreftime>fcst</sigreftime>
     <prod_status>oper</prod_status>
     <data_type>fcst</data_type>
-    <gen_proc_type>ens_fcst</gen_proc_type>
+    <gen_proc_type>fcst</gen_proc_type>
     <time_range_unit>hour</time_range_unit>
     <orig_center>nws_ncep</orig_center>
-    <gen_proc>gefs</gen_proc>
+    <gen_proc>gfs</gen_proc>
     <packing_method>complex_packing_spatial_diff</packing_method>
     <order_of_sptdiff>2nd_ord_sptdiff</order_of_sptdiff>
     <field_datatype>fltng_pnt</field_datatype>

diff --git 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,13 +1374,20 @@ 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)
 
             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