diff --git a/parm/global_1x1_paramlist_g2 b/parm/global_1x1_paramlist_g2 index 553a42bc6..958fbd4d7 100644 --- a/parm/global_1x1_paramlist_g2 +++ b/parm/global_1x1_paramlist_g2 @@ -167,6 +167,7 @@ HGT:PV=2e-06 (Km^2/kg/s) surface HGT:surface HGT:tropopause HINDEX:surface +HLCY:1000-0 m above ground HLCY:3000-0 m above ground HPBL:surface ICAHT:max wind diff --git a/parm/global_1x1_paramlist_g2.f000 b/parm/global_1x1_paramlist_g2.f000 index 615022063..b1dcb09cc 100644 --- a/parm/global_1x1_paramlist_g2.f000 +++ b/parm/global_1x1_paramlist_g2.f000 @@ -159,6 +159,7 @@ HGT:PV=2e-06 (Km^2/kg/s) surface HGT:surface HGT:tropopause HINDEX:surface +HLCY:1000-0 m above ground HLCY:3000-0 m above ground HPBL:surface ICAHT:max wind diff --git a/parm/postcntrl_gfs.xml b/parm/postcntrl_gfs.xml index b7733a62d..0d14de92d 100755 --- a/parm/postcntrl_gfs.xml +++ b/parm/postcntrl_gfs.xml @@ -314,8 +314,8 @@ HLCY_ON_SPEC_HGT_LVL_ABOVE_GRND - 3000. - 0. + 3000. 1000. + 0. 0. 4.0 @@ -445,7 +445,7 @@ - VIS_ON_SURFACE + GSD_VIS_ON_SURFACE 6.0 diff --git a/parm/postcntrl_gfs_f00.xml b/parm/postcntrl_gfs_f00.xml index 69e151ea2..22a5ddc8f 100755 --- a/parm/postcntrl_gfs_f00.xml +++ b/parm/postcntrl_gfs_f00.xml @@ -314,8 +314,8 @@ HLCY_ON_SPEC_HGT_LVL_ABOVE_GRND - 3000. - 0. + 3000. 1000. + 0. 0. 4.0 @@ -360,7 +360,7 @@ - VIS_ON_SURFACE + GSD_VIS_ON_SURFACE 6.0 diff --git a/parm/postcntrl_gfs_f00_two.xml b/parm/postcntrl_gfs_f00_two.xml index 4923112df..184d03ea7 100755 --- a/parm/postcntrl_gfs_f00_two.xml +++ b/parm/postcntrl_gfs_f00_two.xml @@ -314,8 +314,8 @@ HLCY_ON_SPEC_HGT_LVL_ABOVE_GRND - 3000. - 0. + 3000. 1000. + 0. 0. 4.0 @@ -360,7 +360,7 @@ - VIS_ON_SURFACE + GSD_VIS_ON_SURFACE 6.0 diff --git a/parm/postcntrl_gfs_two.xml b/parm/postcntrl_gfs_two.xml index dab3a8ee2..6d6e05793 100755 --- a/parm/postcntrl_gfs_two.xml +++ b/parm/postcntrl_gfs_two.xml @@ -314,8 +314,8 @@ HLCY_ON_SPEC_HGT_LVL_ABOVE_GRND - 3000. - 0. + 3000. 1000. + 0. 0. 4.0 @@ -445,7 +445,7 @@ - VIS_ON_SURFACE + GSD_VIS_ON_SURFACE 6.0 diff --git a/parm/postxconfig-NT-GFS-F00-TWO.txt b/parm/postxconfig-NT-GFS-F00-TWO.txt index 73e131734..af5f49c16 100644 --- a/parm/postxconfig-NT-GFS-F00-TWO.txt +++ b/parm/postxconfig-NT-GFS-F00-TWO.txt @@ -1767,13 +1767,13 @@ HLCY spec_hgt_lvl_above_grnd 0 ? -1 -3000. +2 +3000. 1000. spec_hgt_lvl_above_grnd 0 ? -1 -0. +2 +0. 0. ? ? 0 @@ -2015,9 +2015,9 @@ surface ? ? ? -180 -VIS_ON_SURFACE -? +410 +GSD_VIS_ON_SURFACE +GSD_visibility on surface 1 tmpl4_0 VIS diff --git a/parm/postxconfig-NT-GFS-F00.txt b/parm/postxconfig-NT-GFS-F00.txt index 9ff346568..fe928aa55 100644 --- a/parm/postxconfig-NT-GFS-F00.txt +++ b/parm/postxconfig-NT-GFS-F00.txt @@ -1766,13 +1766,13 @@ HLCY spec_hgt_lvl_above_grnd 0 ? -1 -3000. +2 +3000. 1000. spec_hgt_lvl_above_grnd 0 ? -1 -0. +2 +0. 0. ? ? 0 @@ -2014,9 +2014,9 @@ surface ? ? ? -180 -VIS_ON_SURFACE -? +410 +GSD_VIS_ON_SURFACE +GSD_visibility on surface 1 tmpl4_0 VIS diff --git a/parm/postxconfig-NT-GFS-TWO.txt b/parm/postxconfig-NT-GFS-TWO.txt index 9a40bb467..a459e5240 100644 --- a/parm/postxconfig-NT-GFS-TWO.txt +++ b/parm/postxconfig-NT-GFS-TWO.txt @@ -1767,13 +1767,13 @@ HLCY spec_hgt_lvl_above_grnd 0 ? -1 -3000. +2 +3000. 1000. spec_hgt_lvl_above_grnd 0 ? -1 -0. +2 +0. 0. ? ? 0 @@ -2607,9 +2607,9 @@ entire_atmos_single_lyr ? ? ? -180 -VIS_ON_SURFACE -? +410 +GSD_VIS_ON_SURFACE +GSD_visibility on surface 1 tmpl4_0 VIS diff --git a/parm/postxconfig-NT-GFS.txt b/parm/postxconfig-NT-GFS.txt index c7d4dccb7..776ce6d3b 100644 --- a/parm/postxconfig-NT-GFS.txt +++ b/parm/postxconfig-NT-GFS.txt @@ -1766,13 +1766,13 @@ HLCY spec_hgt_lvl_above_grnd 0 ? -1 -3000. +2 +3000. 1000. spec_hgt_lvl_above_grnd 0 ? -1 -0. +2 +0. 0. ? ? 0 @@ -2606,9 +2606,9 @@ entire_atmos_single_lyr ? ? ? -180 -VIS_ON_SURFACE -? +410 +GSD_VIS_ON_SURFACE +GSD_visibility on surface 1 tmpl4_0 VIS diff --git a/sorc/ncep_post.fd/MDLFLD.f b/sorc/ncep_post.fd/MDLFLD.f index d439ef2d0..105658836 100644 --- a/sorc/ncep_post.fd/MDLFLD.f +++ b/sorc/ncep_post.fd/MDLFLD.f @@ -44,7 +44,8 @@ !! 20-11-10 J MENG - USE UPP_PHYSICS MODULE !! 21-04-01 J MENG - COMPUTATION ON DEFINED POINTS ONLY !! 21-07-07 J MENG - 2D DECOMPOSITION -!! 22-09-22 L Zhang- ADD NO3 and NH4 output for UFS-Aerosols model +!! 22-09-22 L Zhang - ADD NO3 and NH4 output for UFS-Aerosols model +!! 22-10-20 W Meng - Bug fix for cloud fraction and vertically integrated liquid !! !! USAGE: CALL MDLFLD !! INPUT ARGUMENT LIST: @@ -1217,8 +1218,11 @@ SUBROUTINE MDLFLD !$omp parallel do private(i,j) DO J=JSTA,JEND DO I=ista,iend - IF(abs(CFR(I,J,LL)-SPVAL) > SMALL) & - & GRID1(I,J) = CFR(I,J,LL)*H100 + IF(abs(CFR(I,J,LL)-SPVAL) > SMALL) THEN + GRID1(I,J) = CFR(I,J,LL)*H100 + ELSE + GRID1(I,J) = SPVAL + ENDIF ENDDO ENDDO CALL BOUND(GRID1,D00,H100) @@ -3051,6 +3055,8 @@ SUBROUTINE MDLFLD if(zint(i,j,l) < spval .and.zint(i,j,l+1)