diff --git a/parm/fv3lam_rrfs.xml b/parm/fv3lam_rrfs.xml index fd384ad89..dc09f31f9 100755 --- a/parm/fv3lam_rrfs.xml +++ b/parm/fv3lam_rrfs.xml @@ -282,12 +282,6 @@ 6.0 - - MAPS_PRMSL_ON_MEAN_SEA_LVL - PRMSL - 6.0 - - TMP_ON_SPEC_HGT_LVL_ABOVE_GRND_2m TMP @@ -2107,12 +2101,6 @@ 6.0 - - MAPS_PRMSL_ON_MEAN_SEA_LVL - PRMSL - 6.0 - - TMP_ON_SPEC_HGT_LVL_ABOVE_GRND_2m TMP diff --git a/parm/post_avblflds.xml b/parm/post_avblflds.xml index a094830f1..591f1be5b 100755 --- a/parm/post_avblflds.xml +++ b/parm/post_avblflds.xml @@ -3883,7 +3883,8 @@ 445 MAPS_PRMSL_ON_MEAN_SEA_LVL - PRMSL + MSLMA + NCEP mean_sea_lvl 4.0 diff --git a/parm/postxconfig-NT-3drtma.txt b/parm/postxconfig-NT-3drtma.txt index 20bd9d9b8..d480e0ba7 100644 --- a/parm/postxconfig-NT-3drtma.txt +++ b/parm/postxconfig-NT-3drtma.txt @@ -356,8 +356,8 @@ MAPS_PRMSL_ON_MEAN_SEA_LVL ? 1 tmpl4_0 -PRMSL -? +MSLMA +NCEP ? mean_sea_lvl 0 diff --git a/parm/postxconfig-NT-fv3lam_rrfs.txt b/parm/postxconfig-NT-fv3lam_rrfs.txt index 034aa0234..098022236 100644 --- a/parm/postxconfig-NT-fv3lam_rrfs.txt +++ b/parm/postxconfig-NT-fv3lam_rrfs.txt @@ -1,7 +1,7 @@ 3 4 -242 -290 +241 +289 PRSLEV 32769 ncep_nco @@ -1313,43 +1313,6 @@ mean_sea_lvl ? ? ? -445 -MAPS_PRMSL_ON_MEAN_SEA_LVL -? -1 -tmpl4_0 -PRMSL -? -? -mean_sea_lvl -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -6.0 -0 -0 -0 -? -? -? 106 TMP_ON_SPEC_HGT_LVL_ABOVE_GRND_2m ? @@ -11430,43 +11393,6 @@ mean_sea_lvl ? ? ? -445 -MAPS_PRMSL_ON_MEAN_SEA_LVL -? -1 -tmpl4_0 -PRMSL -? -? -mean_sea_lvl -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -6.0 -0 -0 -0 -? -? -? 106 TMP_ON_SPEC_HGT_LVL_ABOVE_GRND_2m ? diff --git a/sorc/ncep_post.fd/CLDRAD.f b/sorc/ncep_post.fd/CLDRAD.f index 5c40279a5..6f7ddfb71 100644 --- a/sorc/ncep_post.fd/CLDRAD.f +++ b/sorc/ncep_post.fd/CLDRAD.f @@ -68,8 +68,9 @@ !> 2022-10-20 | Li(Kate Zhang) | Add nitrate look-up table and nitrate AOD for NASA GOCART (UFS-Aerosols). !> 2022-11-16 | Eric James | Adding total column dust, biomass burning emissions, hourly wildfire potential from RRFS !> 2022-1207 | Wen Meng | Add AOD for AQM -!> 2022-12-15 | Eric James | experimental cloud base height diagnostic from HRRR, to correct a low bias in cloud cover +!> 2022-12-15 | Eric James | Modifying GSL exp2 ceiling diagnostic from HRRR, to correct a low bias in cloud cover !> 2023-02-02 | Wen Meng | Remove GSL specified clear-sky upward/downward SW +!> 2023-02-10 | Eric James | Removing neighbourhood check from GSL exp2 ceiling diagnostic !> !> @author Russ Treadon W/NP2 @date 1993-08-30 SUBROUTINE CLDRAD @@ -2259,7 +2260,7 @@ SUBROUTINE CLDRAD do jc = max(1,J-numr),min(JM,J+numr) do ic = max(1,I-numr),min(IM,I+numr) ceil_neighbor = max( full_ceil(ic,jc)-full_fis(ic,jc)*GI , 5.0) ! ceil_neighbor in AGL - ceil_min = min( ceil_min, ceil_neighbor ) +! ceil_min = min( ceil_min, ceil_neighbor ) enddo enddo CLDZ(I,J) = ceil_min + FIS(I,J)*GI ! convert back to ASL and store diff --git a/sorc/ncep_post.fd/MDLFLD.f b/sorc/ncep_post.fd/MDLFLD.f index 262085bd9..776ae1e1f 100644 --- a/sorc/ncep_post.fd/MDLFLD.f +++ b/sorc/ncep_post.fd/MDLFLD.f @@ -48,6 +48,7 @@ !! 22-10-20 W Meng - Bug fix for cloud fraction and vertically integrated liquid !! 22-11-08 W Meng - Output hourly averaged PM2.5 and O3 for AQM model only (aqf_on) !! 22-11-16 E James - Adding dust from RRFS +!! 23-02-10 E James - Adding an extra IGET value to if statement for NGMSLP calculation !! !! USAGE: CALL MDLFLD !! INPUT ARGUMENT LIST: @@ -207,7 +208,7 @@ SUBROUTINE MDLFLD ALLOCATE(PBLRI (ista_2l:iend_2u,JSTA_2L:JEND_2U)) ! ! SECOND, STANDARD NGM SEA LEVEL PRESSURE. - IF (IGET(105) > 0 .OR. IGET(445) > 0) THEN + IF (IGET(023) > 0 .OR. IGET(105) > 0 .OR. IGET(445) > 0) THEN CALL NGMSLP ! this value is used in some later calculation. ENDIF IF (IGET(105) > 0) THEN