Skip to content

UFS-dev PR#27 #359

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
grantfirl merged 1 commit into from
Jan 4, 2023
Merged

UFS-dev PR#27 #359

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
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
2 changes: 1 addition & 1 deletion ccpp/physics
Open in desktop
Submodule physics updated 12 files
+2 −4 .github/workflows/ci_fv3_ccpp_prebuild.yml
+2 −4 .github/workflows/ci_scm_ccpp_prebuild.yml
+5 −0 physics/module_sf_noahmp_glacier.f90
+25 −5 physics/module_sf_noahmplsm.f90
+3 −1 physics/noahmpdrv.F90
+8 −0 physics/noahmpdrv.meta
+3 −2 physics/progsigma_calc.f90
+17 −7 physics/samfdeepcnv.f
+14 −4 physics/samfshalcnv.f
+110 −31 physics/satmedmfvdifq.F
+7 −0 physics/satmedmfvdifq.meta
+8 −8 physics/sfc_diag_post.F90
6 changes: 5 additions & 1 deletion scm/src/GFS_typedefs.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -1175,6 +1175,7 @@ module GFS_typedefs
real(kind=kind_phys) :: rlmx !< maximum allowed mixing length in boundary layer mass flux scheme
real(kind=kind_phys) :: elmx !< maximum allowed dissipation mixing length in boundary layer mass flux scheme
integer :: sfc_rlm !< choice of near surface mixing length in boundary layer mass flux scheme
integer :: tc_pbl !< control for TC applications in the PBL scheme

!--- parameters for canopy heat storage (CHS) parameterization
real(kind=kind_phys) :: h0facu !< CHS factor for sensible heat flux in unstable surface layer
Expand Down Expand Up @@ -3340,6 +3341,7 @@ subroutine control_initialize (Model, nlunit, fn_nml, me, master, &
real(kind=kind_phys) :: rlmx = 300. !< maximum allowed mixing length in boundary layer mass flux scheme
real(kind=kind_phys) :: elmx = 300. !< maximum allowed dissipation mixing length in boundary layer mass flux scheme
integer :: sfc_rlm = 0 !< choice of near surface mixing length in boundary layer mass flux scheme
integer :: tc_pbl = 0 !< control for TC applications in the PBL scheme

!--- parameters for canopy heat storage (CHS) parameterization
real(kind=kind_phys) :: h0facu = 0.25
Expand Down Expand Up @@ -3543,7 +3545,7 @@ subroutine control_initialize (Model, nlunit, fn_nml, me, master, &
thsfc_loc, &
! vertical diffusion
xkzm_m, xkzm_h, xkzm_s, xkzminv, moninq_fac, dspfac, &
bl_upfr, bl_dnfr, rlmx, elmx, sfc_rlm, &
bl_upfr, bl_dnfr, rlmx, elmx, sfc_rlm, tc_pbl, &
!--- canopy heat storage parameterization
h0facu, h0facs, &
!--- cellular automata
Expand Down Expand Up @@ -4374,6 +4376,7 @@ subroutine control_initialize (Model, nlunit, fn_nml, me, master, &
Model%rlmx = rlmx
Model%elmx = elmx
Model%sfc_rlm = sfc_rlm
Model%tc_pbl = tc_pbl

!--- canopy heat storage parametrization
Model%h0facu = h0facu
Expand Down Expand Up @@ -6062,6 +6065,7 @@ subroutine control_print(Model)
print *, ' rlmx : ', Model%rlmx
print *, ' elmx : ', Model%elmx
print *, ' sfc_rlm : ', Model%sfc_rlm
print *, ' tc_pbl : ', Model%tc_pbl
print *, ' '
print *, 'parameters for canopy heat storage parametrization'
print *, ' h0facu : ', Model%h0facu
Expand Down
6 changes: 6 additions & 0 deletions scm/src/GFS_typedefs.meta
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5016,6 +5016,12 @@
units = none
dimensions = ()
type = integer
[tc_pbl]
standard_name = control_for_TC_applications_in_the_PBL_scheme
long_name = control for TC applications in the PBL scheme
units = none
dimensions = ()
type = integer
[h0facu]
standard_name = multiplicative_tuning_parameter_for_reduced_surface_heat_fluxes_due_to_canopy_heat_storage
long_name = canopy heat storage factor for sensible heat flux in unstable surface layer
Expand Down