Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
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
4 changes: 4 additions & 0 deletions scm/src/CCPP_typedefs.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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() !<
Expand Down Expand Up @@ -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))
Expand Down Expand Up @@ -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. &
Expand Down Expand Up @@ -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
Expand Down
7 changes: 7 additions & 0 deletions scm/src/CCPP_typedefs.meta
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down