Updates to enable output of VEGMIN and VEGMAX from RRFS.

EricJames-NOAA · Aug 20, 2024 · 7d8896a · 7d8896a
1 parent fc85241
commit 7d8896a
Show file tree

Hide file tree

Showing 3 changed files with 106 additions and 2 deletions.
diff --git a/parm/postxconfig-NT-rrfs.txt b/parm/postxconfig-NT-rrfs.txt
@@ -1,7 +1,7 @@
 4
 5
 3
-229
+231
 278
 PRSLEV
 32769
@@ -20237,6 +20237,90 @@ surface
 ?
 ?
 ?
+726
+VEG_MIN_ON_SURFACE
+?
+1
+tmpl4_0
+VEGMIN
+NCEP
+?
+surface
+0
+?
+0
+?
+?
+0
+?
+0
+?
+?
+?
+?
+0
+0.0
+0
+0.0
+?
+0
+0.0
+0
+0.0
+0
+0.0
+0
+0.0
+1
+3.0
+0
+0
+0
+?
+?
+?
+729
+VEG_MAX_ON_SURFACE
+?
+1
+tmpl4_0
+VEGMAX
+NCEP
+?
+surface
+0
+?
+0
+?
+?
+0
+?
+0
+?
+?
+?
+?
+0
+0.0
+0
+0.0
+?
+0
+0.0
+0
+0.0
+0
+0.0
+0
+0.0
+1
+3.0
+0
+0
+0
+?
+?
+?
 262
 INST_CSDSF_ON_SURFACE
 ?

diff --git a/parm/rrfs_postcntrl.xml b/parm/rrfs_postcntrl.xml
@@ -3198,6 +3198,16 @@
        <scale>-3.0</scale>
        </param>
 
+       <param>
+       <shortname>VEG_MIN_ON_SURFACE</shortname>
+       <scale>3.0</scale>
+       </param>
+
+       <param>
+       <shortname>VEG_MAX_ON_SURFACE</shortname>
+       <scale>3.0</scale>
+       </param>
+
        <param>
        <shortname>INST_CSDSF_ON_SURFACE</shortname>
        <pname>CSDSF</pname>

diff --git a/sorc/ncep_post.fd/INITPOST_NETCDF.f b/sorc/ncep_post.fd/INITPOST_NETCDF.f
@@ -92,7 +92,7 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d)
               uz0, vz0, ptop, htop, pbot, hbot, ptopl, pbotl, ttopl, ptopm, pbotm, ttopm,       &
               ptoph, pboth, pblcfr, ttoph, runoff, tecan, tetran, tedir, twa, maxtshltr,        &
               mintshltr, maxrhshltr, fdnsst, acgraup, graup_bucket, acfrain, frzrn_bucket,      &
-              snow_acm, snow_bkt, snownc, graupelnc, qrmax, swddif, swddni, xlaixy,             &
+              snow_acm, snow_bkt, snownc, graupelnc, qrmax, swddif, swddni, xlaixy, shdmin, shdmax,&
               minrhshltr, dzice, smcwlt, suntime, fieldcapa, htopd, hbotd, htops, hbots,        &
               cuppt, dusmass, ducmass, dusmass25, ducmass25, aswintoa,rel_vort_maxhy1,          &
               maxqshltr, minqshltr, acond, sr, u10h, v10h,refd_max, w_up_max, w_dn_max,         &
@@ -2796,6 +2796,16 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d)
       call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, &
       spval,VarName,xlaixy)
 
+! leaf area index
+      VarName='shdmin'
+      call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, &
+      spval,VarName,shdmin)
+
+! leaf area index
+      VarName='shdmax'
+      call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, &
+      spval,VarName,shdmax)
+
 ! time averaged incoming sfc uv-b using getgb
       VarName='duvb_ave'
       call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, &