Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
7 changes: 6 additions & 1 deletion parm/fv3lam_rrfs.xml
Original file line number Diff line number Diff line change
Expand Up @@ -3484,9 +3484,14 @@
<field_datatype>fltng_pnt</field_datatype>
<comprs_type>lossless</comprs_type>

<param>
<shortname>MXEDPRM_ON_ENTIRE_ATMOS</shortname>
<scale>3.0</scale>
</param>

<param>
<shortname>EDPARM_GTG_ON_SPEC_ALT_ABOVE_MEAN_SEA_LVL</shortname>
<level>30. 304. 609. 914. 1219. 1524. 1828. 2133. 2438. 2743. 3048. 3352. 3657. 3962. 4267. 4572. 4876. 5181. 5486. 5791. 6096. 6400. 6705. 7010. 7315. 7620. 7924. 8229. 8534. 8839. 9144. 9448. 9753. 10058. 10363. 10668. 10972. 11277. 11582. 11887. 12192. 12496. 12801. 13106. 13411. 13716. 14020. 14325. 14630. 14935. 15240. 0.</level>
<level>30. 304. 609. 914. 1219. 1524. 1828. 2133. 2438. 2743. 3048. 3352. 3657. 3962. 4267. 4572. 4876. 5181. 5486. 5791. 6096. 6400. 6705. 7010. 7315. 7620. 7924. 8229. 8534. 8839. 9144. 9448. 9753. 10058. 10363. 10668. 10972. 11277. 11582. 11887. 12192. 12496. 12801. 13106. 13411. 13716. 14020. 14325. 14630. 14935. 15240.</level>
<scale>3.0</scale>
</param>

Expand Down
8 changes: 8 additions & 0 deletions parm/post_avblflds.xml
Original file line number Diff line number Diff line change
Expand Up @@ -4145,6 +4145,14 @@
<scale>6.0</scale>
</param>

<param>
<post_avblfldidx>476</post_avblfldidx>
<shortname>MXEDPRM_ON_ENTIRE_ATMOS</shortname>
<pname>MXEDPRM</pname>
<fixed_sfc1_type>entire_atmos</fixed_sfc1_type>
<scale>3.0</scale>
</param>

<!-- 477 EDR on FD_HEIGHT_LVL (for regional model)-->
<param>
<post_avblfldidx>477</post_avblfldidx>
Expand Down
43 changes: 40 additions & 3 deletions parm/postxconfig-NT-fv3lam_rrfs.txt
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
4
4
5
3
235
282
Expand Down Expand Up @@ -19307,6 +19307,43 @@ complex_packing_spatial_diff
2nd_ord_sptdiff
fltng_pnt
lossless
476
MXEDPRM_ON_ENTIRE_ATMOS
?
1
tmpl4_0
MXEDPRM
?
?
entire_atmos
0
?
0
?
?
0
?
0
?
?
?
0
0.0
0
0.0
?
0
0.0
0
0.0
1
3.0
0
0
0
?
?
?
467
EDPARM_GTG_ON_SPEC_ALT_ABOVE_MEAN_SEA_LVL
?
Expand All @@ -19318,8 +19355,8 @@ EDPARM
spec_alt_above_mean_sea_lvl
0
?
52
30. 304. 609. 914. 1219. 1524. 1828. 2133. 2438. 2743. 3048. 3352. 3657. 3962. 4267. 4572. 4876. 5181. 5486. 5791. 6096. 6400. 6705. 7010. 7315. 7620. 7924. 8229. 8534. 8839. 9144. 9448. 9753. 10058. 10363. 10668. 10972. 11277. 11582. 11887. 12192. 12496. 12801. 13106. 13411. 13716. 14020. 14325. 14630. 14935. 15240. 0.
51
30. 304. 609. 914. 1219. 1524. 1828. 2133. 2438. 2743. 3048. 3352. 3657. 3962. 4267. 4572. 4876. 5181. 5486. 5791. 6096. 6400. 6705. 7010. 7315. 7620. 7924. 8229. 8534. 8839. 9144. 9448. 9753. 10058. 10363. 10668. 10972. 11277. 11582. 11887. 12192. 12496. 12801. 13106. 13411. 13716. 14020. 14325. 14630. 14935. 15240.
?
0
?
Expand Down
16 changes: 7 additions & 9 deletions sorc/ncep_post.fd/MISCLN.f
Original file line number Diff line number Diff line change
Expand Up @@ -57,6 +57,7 @@
!! 23-08-24 Y Mao - Add gtg_on option for GTG interpolation
!! 24-01-07 H LIN - Add CIT output in NCAR GTG turbulence calculation
!! 24-01-09 Y Mao - Correct the height level of EDPARM (ID=467) on 0m to index 52 from the control file, instead of 0.
!! 24-04-09 Y Mao - Change the mnemonics of EDPARM (ID=467) on 0m to MXEDPRM (ID=476) on the entire atmoshpere
!! USAGE: CALL MISCLN
!! INPUT ARGUMENT LIST:
!!
Expand Down Expand Up @@ -1238,9 +1239,8 @@ SUBROUTINE MISCLN
end if


! FOR Regional GTG, ALL LEVLES OF DIFFERENT VARIABLES ARE THE SAME, except for EDPARM
! Use levels of iID=468 for interpolation
iID=468
! FOR Regional GTG, ALL LEVLES OF DIFFERENT VARIABLES ARE THE SAME
iID=467
N = IAVBLFLD(IGET(iID))
NFDCTL=size(pset%param(N)%level)
if(allocated(ITYPEFDLVLCTL)) deallocate(ITYPEFDLVLCTL)
Expand Down Expand Up @@ -1280,10 +1280,9 @@ SUBROUTINE MISCLN
DO N=1,nFDS
iID=IDS(N)

! Regional GTG has a legend of special defination
! 0 m holds the max value of the whole vertical column
! 0 m is the last height in the control file
if (iID == 467) then
! For regional GTG, output the max value of EDPARM(ID=467) in the whole vertical column
! to MXEDPRM(ID=476)
if (iID == 467 .and. iget(476) > 0) then
EGRID1 = SPVAL
DO IFD = 1,NFDCTL
DO J=JSTA,JEND
Expand All @@ -1304,8 +1303,7 @@ SUBROUTINE MISCLN
ENDDO
if(grib=='grib2') then
cfld=cfld+1
fld_info(cfld)%ifld=IAVBLFLD(IGET(iID))
fld_info(cfld)%lvl=NFDCTL+1
fld_info(cfld)%ifld=IAVBLFLD(IGET(476)) ! MXEDPRM ID
!$omp parallel do private(i,j,ii,jj)
do j=1,jend-jsta+1
jj = jsta+j-1
Expand Down