diff --git a/ccpp/physics b/ccpp/physics index 0f1b7269f..7e42e7ebf 160000 --- a/ccpp/physics +++ b/ccpp/physics @@ -1 +1 @@ -Subproject commit 0f1b7269f30770e40facf8a002c6d4443a37f578 +Subproject commit 7e42e7ebf430b69030c1c2a8da14498cd954eae0 diff --git a/scm/src/CCPP_typedefs.F90 b/scm/src/CCPP_typedefs.F90 index 5b3dd2b81..bda7a472c 100644 --- a/scm/src/CCPP_typedefs.F90 +++ b/scm/src/CCPP_typedefs.F90 @@ -282,6 +282,7 @@ module CCPP_typedefs real (kind=kind_phys), pointer :: t2mmp(:) => null() !< real (kind=kind_phys), pointer :: theta(:) => null() !< real (kind=kind_phys), pointer :: tlvl(:,:) => null() !< + real (kind=kind_phys), pointer :: tkeh(:,:) => null() !< vertical turbulent kinetic energy (m2/s2) at the model layer interfaces real (kind=kind_phys), pointer :: tlyr(:,:) => null() !< real (kind=kind_phys), pointer :: tprcp_ice(:) => null() !< real (kind=kind_phys), pointer :: tprcp_land(:) => null() !< @@ -621,6 +622,7 @@ subroutine gfs_interstitial_create (Interstitial, IM, Model) allocate (Interstitial%stress_land (IM)) allocate (Interstitial%stress_water (IM)) allocate (Interstitial%theta (IM)) + allocate (Interstitial%tkeh (IM,Model%levs+1)) !Vertical turbulent kinetic energy at model layer interfaces allocate (Interstitial%tlvl (IM,Model%levr+1+LTP)) allocate (Interstitial%tlyr (IM,Model%levr+LTP)) allocate (Interstitial%tprcp_ice (IM)) @@ -970,6 +972,7 @@ subroutine gfs_interstitial_setup_tracers(Interstitial, Model) do n=2,Model%ntrac ltest = ( n /= Model%ntcw .and. n /= Model%ntiw .and. n /= Model%ntclamt .and. & n /= Model%ntrw .and. n /= Model%ntsw .and. n /= Model%ntrnc .and. & + n /= Model%ntlnc .and. n /= Model%ntinc .and. & n /= Model%ntsnc .and. n /= Model%ntgl .and. n /= Model%ntgnc .and. & n /= Model%nthl .and. n /= Model%nthnc .and. n /= Model%ntgv .and. & n /= Model%nthv .and. n /= Model%ntccn .and. n /= Model%ntccna .and. & @@ -1277,6 +1280,7 @@ subroutine gfs_interstitial_phys_reset (Interstitial, Model) Interstitial%stress_land = Model%huge Interstitial%stress_water = Model%huge Interstitial%theta = clear_val + Interstitial%tkeh = clear_val Interstitial%tprcp_ice = Model%huge Interstitial%tprcp_land = Model%huge Interstitial%tprcp_water = Model%huge diff --git a/scm/src/CCPP_typedefs.meta b/scm/src/CCPP_typedefs.meta index c16c20747..62a12e6bd 100644 --- a/scm/src/CCPP_typedefs.meta +++ b/scm/src/CCPP_typedefs.meta @@ -2836,6 +2836,13 @@ units = count dimensions = () type = integer +[tkeh] + standard_name = vertical_turbulent_kinetic_energy_at_interface + long_name = vertical turbulent kinetic energy at model layer interfaces + units = m2 s-2 + dimensions = (horizontal_loop_extent,vertical_interface_dimension) + type = real + kind = kind_phys [active_phys_tend] standard_name = tendencies_for_active_process_in_ccpp_suite_simulator long_name = tendencies for active physics process in ccpp suite simulator