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 diff --git a/scm/src/GFS_typedefs.F90 b/scm/src/GFS_typedefs.F90 index 8fda9cffd..6ba4a7785 100644 --- a/scm/src/GFS_typedefs.F90 +++ b/scm/src/GFS_typedefs.F90 @@ -582,7 +582,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 @@ -2863,8 +2862,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/scm/src/GFS_typedefs.meta b/scm/src/GFS_typedefs.meta index 0c1bc4cb7..d9802be59 100644 --- a/scm/src/GFS_typedefs.meta +++ b/scm/src/GFS_typedefs.meta @@ -2507,14 +2507,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