Skip to content

Commit

Permalink
enforcing DP in the pbl coefficients
Browse files Browse the repository at this point in the history
  • Loading branch information
@laurenchilutti
laurenchilutti committed Nov 29, 2024
1 parent b2804a6 commit f4b02f6
Showing 1 changed file with 4 additions and 4 deletions.
8 changes: 4 additions & 4 deletions GFS_layer/GFS_typedefs.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -2425,10 +2425,10 @@ subroutine control_initialize (Model, nlunit, fn_nml, me, master, &
real(kind=kind_phys) :: xkgdx = 25.e3 !< [in] background vertical diffusion threshold
real(kind=kind_phys) :: rlmn = 30. !< [in] lower-limter on asymtotic mixing length in satmedmfdiff.f
real(kind=kind_phys) :: rlmx = 300. !< [in] upper-limter on asymtotic mixing length in satmedmfdiff.f
real(kind=kind_phys) :: pbl_ck0 = 0.4 !< [in] proportionality coefficient for momentum in PBL
real(kind=kind_phys) :: pbl_ck1 = 0.15 !< [in] proportionality coefficient for momentum above PBL
real(kind=kind_phys) :: pbl_ch0 = 0.4 !< [in] proportionality coefficient for heat & q in PBL
real(kind=kind_phys) :: pbl_ch1 = 0.15 !< [in] proportionality coefficient for heat & q above PBL
real(kind=kind_phys) :: pbl_ck0 = 0.4d0 !< [in] proportionality coefficient for momentum in PBL
real(kind=kind_phys) :: pbl_ck1 = 0.15d0 !< [in] proportionality coefficient for momentum above PBL
real(kind=kind_phys) :: pbl_ch0 = 0.4d0 !< [in] proportionality coefficient for heat & q in PBL
real(kind=kind_phys) :: pbl_ch1 = 0.15d0 !< [in] proportionality coefficient for heat & q above PBL
real(kind=kind_phys) :: zolcru = -0.02 !< [in] a threshold for activating the surface-driven updraft transports in satmedmfdifq.f
real(kind=kind_phys) :: cs0 = 0.2 !< [in] a parameter that controls the shear effect on the mixing length in satmedmfdifq.f
real(kind=kind_phys) :: moninq_fac = 1.0 !< turbulence diffusion coefficient factor
Expand Down

0 comments on commit f4b02f6

Please sign in to comment.