Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Exchange grid updates from Dom 2022/01/30 #1

Merged
merged 1 commit into from
Jan 31, 2022
Merged

Exchange grid updates from Dom 2022/01/30 #1

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
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
13 changes: 3 additions & 10 deletions ufs/ccpp/data/GFS_typedefs.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -8,23 +8,16 @@ 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
contains
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)
Expand Down
22 changes: 0 additions & 22 deletions ufs/ccpp/data/GFS_typedefs.meta
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand All @@ -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
Expand Down
2 changes: 1 addition & 1 deletion ufs/ccpp/data/med_typedefs.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down