diff --git a/ccpp/data/GFS_typedefs.F90 b/ccpp/data/GFS_typedefs.F90 index 56b01aa12..1b35c8e5c 100644 --- a/ccpp/data/GFS_typedefs.F90 +++ b/ccpp/data/GFS_typedefs.F90 @@ -590,7 +590,6 @@ module GFS_typedefs real (kind=kind_phys), pointer :: pfl_lsan(:,:) => null() !< instantaneous 3D flux of liquid nonconvective precipitation (kg m-2 s-1) !-- prognostic updraft area fraction coupling in convection - real (kind=kind_phys), pointer :: tmf (:,:) => null() !< tmf to be passed from turublence scheme to convection real (kind=kind_phys), pointer :: dqdt_qmicro(:,:) => null() !< instantanious microphysics tendency to be passed from MP to convection contains @@ -2889,8 +2888,6 @@ subroutine coupling_create (Coupling, IM, Model) !--prognostic closure - moisture coupling if(Model%progsigma)then allocate(Coupling%dqdt_qmicro (IM,Model%levs)) - allocate(Coupling%tmf (IM,Model%levs)) - Coupling%tmf = clear_val Coupling%dqdt_qmicro = clear_val endif diff --git a/ccpp/data/GFS_typedefs.meta b/ccpp/data/GFS_typedefs.meta index cdca4cacf..7978333bd 100644 --- a/ccpp/data/GFS_typedefs.meta +++ b/ccpp/data/GFS_typedefs.meta @@ -2493,14 +2493,6 @@ type = real kind = kind_phys active = (flag_for_surface_flux_coupling) -[tmf] - standard_name = instantaneous_tendency_of_specific_humidity_due_to_PBL - long_name = instantaneous_tendency_of_specific_humidity_due_to_PBL - units = kg kg-1 s-1 - dimensions = (horizontal_loop_extent,vertical_layer_dimension) - type = real - kind = kind_phys - active = (do_prognostic_updraft_area_fraction) [dqdt_qmicro] standard_name = instantaneous_tendency_of_specific_humidity_due_to_microphysics long_name = instantaneous_tendency_of_specific_humidity_due_to_microphysics diff --git a/ccpp/physics b/ccpp/physics index b7dc3ec0c..ae12bd549 160000 --- a/ccpp/physics +++ b/ccpp/physics @@ -1 +1 @@ -Subproject commit b7dc3ec0c966ff76d8f40cce0eb4977bebea283b +Subproject commit ae12bd549d951ebaf45cbe07dc14033cea46ca1c