diff --git a/ufs/ccpp/data/GFS_typedefs.F90 b/ufs/ccpp/data/GFS_typedefs.F90 index 755d7575f..02d88850f 100644 --- a/ufs/ccpp/data/GFS_typedefs.F90 +++ b/ufs/ccpp/data/GFS_typedefs.F90 @@ -8,6 +8,9 @@ module GFS_typedefs real(kind=kind_phys), parameter :: clear_val = zero !--- data containers +!! \section arg_table_GFS_statein_type +!! \htmlinclude GFS_statein_type.html +!! type GFS_statein_type real (kind=kind_phys), pointer :: prsl(:) => null() !< model layer mean pressure Pa real (kind=kind_phys), pointer :: tgrs(:) => null() !< model layer mean temperature in k @@ -15,16 +18,6 @@ module GFS_typedefs procedure :: create => statein_create !< allocate array data end type GFS_statein_type -!------------------------------------------------------------------------------------ -! combined type of all of the above except GFS_control_type and GFS_interstitial_type -!------------------------------------------------------------------------------------ -!! \section arg_table_GFS_data_type -!! \htmlinclude GFS_data_type.html -!! - type GFS_data_type - type(GFS_statein_type) :: statein - end type GFS_data_type - contains subroutine statein_create(statein, im) diff --git a/ufs/ccpp/data/GFS_typedefs.meta b/ufs/ccpp/data/GFS_typedefs.meta index 8c63994c6..015bcea2f 100644 --- a/ufs/ccpp/data/GFS_typedefs.meta +++ b/ufs/ccpp/data/GFS_typedefs.meta @@ -21,22 +21,6 @@ type = real kind = kind_phys -######################################################################## -[ccpp-table-properties] - name = GFS_data_type - type = ddt - dependencies = - -[ccpp-arg-table] - name = GFS_data_type - type = ddt -[Statein] - standard_name = GFS_statein_type_instance - long_name = prognostic state data in from dycore - units = DDT - dimensions = () - type = GFS_statein_type - ######################################################################## [ccpp-table-properties] name = GFS_typedefs @@ -47,12 +31,6 @@ [ccpp-arg-table] name = GFS_typedefs type = module -[GFS_data_type] - standard_name = GFS_data_type - long_name = definition of type GFS_data_type - units = DDT - dimensions = () - type = GFS_data_type [GFS_statein_type] standard_name = GFS_statein_type long_name = definition of type GFS_statein_type diff --git a/ufs/ccpp/data/med_typedefs.F90 b/ufs/ccpp/data/med_typedefs.F90 index c9611dac1..8f92fa897 100644 --- a/ufs/ccpp/data/med_typedefs.F90 +++ b/ufs/ccpp/data/med_typedefs.F90 @@ -10,7 +10,7 @@ module med_type_defs implicit none type physics_type - ype(GFS_statein_type) :: statein + type(GFS_statein_type) :: statein end type physics_type type(physics_type), target :: physics