Skip to content

Commit f053db2

Browse files
authored
Cleanup work: CCPP metadata units and more (NOAA-EMC#140)
This PR contains cleanup work to address wrong units and some issues raised in recently merged PRs: - correct units for latitude, longitude, and pi - correct standard name air_temperature_save_from_cumulus_paramterization to air_temperature_save_from_convective_parameterization - remove unused variables in two routines in `GFS_typedefs.F90` - remove recently introduced variable `cycling` (part of GFS_control DDT), now a local variable in `physics/module_MYNNPBL_wrapper.F90` - change order of interstitial schemes in `ccpp/suites/suite_FV3_GFS_2017_fv3wam.xml` to match other SDFs Fixes NOAA-EMC#138 and parts of NOAA-EMC#137.
1 parent da1230d commit f053db2

File tree

5 files changed

+13
-26
lines changed

5 files changed

+13
-26
lines changed

ccpp/physics

ccpp/suites/suite_FV3_GFS_2017_fv3wam.xml

+1-1
Original file line numberDiff line numberDiff line change
@@ -60,9 +60,9 @@
6060
<scheme>rayleigh_damp</scheme>
6161
<scheme>GFS_suite_stateout_update</scheme>
6262
<scheme>ozphys</scheme>
63-
<scheme>GFS_DCNV_generic_pre</scheme>
6463
<scheme>get_phi_fv3</scheme>
6564
<scheme>GFS_suite_interstitial_3</scheme>
65+
<scheme>GFS_DCNV_generic_pre</scheme>
6666
<scheme>samfdeepcnv</scheme>
6767
<scheme>GFS_DCNV_generic_post</scheme>
6868
<scheme>GFS_SCNV_generic_pre</scheme>

gfsphysics/GFS_layer/GFS_typedefs.F90

-7
Original file line numberDiff line numberDiff line change
@@ -140,7 +140,6 @@ module GFS_typedefs
140140
#ifdef CCPP
141141
!--- restart information
142142
logical :: restart !< flag whether this is a coldstart (.false.) or a warmstart/restart (.true.)
143-
logical :: cycling !< flag whether this is a coldstart (.false.) or a cycled run (.true.)
144143
!--- hydrostatic/non-hydrostatic flag
145144
logical :: hydrostatic !< flag whether this is a hydrostatic or non-hydrostatic run
146145
#endif
@@ -1125,7 +1124,6 @@ module GFS_typedefs
11251124
#ifdef CCPP
11261125
logical :: first_time_step !< flag signaling first time step for time integration routine
11271126
logical :: restart !< flag whether this is a coldstart (.false.) or a warmstart/restart (.true.)
1128-
logical :: cycling !< flag whether this is a coldstart (.false.) or a cycled run (.true.)
11291127
logical :: hydrostatic !< flag whether this is a hydrostatic or non-hydrostatic run
11301128
#endif
11311129
integer :: jdat(1:8) !< current forecast date and time
@@ -2890,7 +2888,6 @@ subroutine control_initialize (Model, nlunit, fn_nml, me, master, &
28902888
logical :: aux2d_time_avg(1:naux2dmax) = .false. !< flags for time averaging of auxiliary 2d arrays
28912889
logical :: aux3d_time_avg(1:naux3dmax) = .false. !< flags for time averaging of auxiliary 3d arrays
28922890

2893-
logical :: cycling = .false. !< flag to activate extra cycling procedures
28942891
real(kind=kind_phys) :: fhcyc = 0. !< frequency for surface data cycling (hours)
28952892
integer :: thermodyn_id = 1 !< valid for GFS only for get_prs/phi
28962893
integer :: sfcpress_id = 1 !< valid for GFS only for get_prs/phi
@@ -4164,7 +4161,6 @@ subroutine control_initialize (Model, nlunit, fn_nml, me, master, &
41644161
#ifdef CCPP
41654162
Model%first_time_step = .true.
41664163
Model%restart = restart
4167-
Model%cycling = cycling
41684164
Model%hydrostatic = hydrostatic
41694165
#endif
41704166
Model%jdat(1:8) = jdat(1:8)
@@ -5128,7 +5124,6 @@ subroutine control_print(Model)
51285124
print *, ' sec : ', Model%sec
51295125
print *, ' first_time_step : ', Model%first_time_step
51305126
print *, ' restart : ', Model%restart
5131-
print *, ' cycling : ', Model%cycling
51325127
print *, ' hydrostatic : ', Model%hydrostatic
51335128
#endif
51345129
endif
@@ -5783,7 +5778,6 @@ end subroutine diag_create
57835778
subroutine diag_rad_zero(Diag, Model)
57845779
class(GFS_diag_type) :: Diag
57855780
type(GFS_control_type), intent(in) :: Model
5786-
integer :: i
57875781

57885782
Diag%fluxr = zero
57895783
Diag%topfsw%upfxc = zero
@@ -5806,7 +5800,6 @@ subroutine diag_phys_zero (Diag, Model, linit, iauwindow_center)
58065800
logical,optional, intent(in) :: linit, iauwindow_center
58075801

58085802
logical set_totprcp
5809-
integer :: i
58105803

58115804
!--- In/Out
58125805
Diag%srunoff = zero

gfsphysics/GFS_layer/GFS_typedefs.meta

+10-16
Original file line numberDiff line numberDiff line change
@@ -4010,7 +4010,7 @@
40104010
[slag]
40114011
standard_name = equation_of_time
40124012
long_name = equation of time (radian)
4013-
units = radians
4013+
units = radian
40144014
dimensions = ()
40154015
type = real
40164016
kind = kind_phys
@@ -4074,12 +4074,6 @@
40744074
units = flag
40754075
dimensions = ()
40764076
type = logical
4077-
[cycling]
4078-
standard_name = flag_for_cycling
4079-
long_name = flag for cycling or coldstart
4080-
units = flag
4081-
dimensions = ()
4082-
type = logical
40834077
[hydrostatic]
40844078
standard_name = flag_for_hydrostatic_solver
40854079
long_name = flag for hydrostatic solver from dynamics
@@ -4319,14 +4313,14 @@
43194313
[xlat]
43204314
standard_name = latitude
43214315
long_name = latitude
4322-
units = radians
4316+
units = radian
43234317
dimensions = (horizontal_dimension)
43244318
type = real
43254319
kind = kind_phys
43264320
[xlon]
43274321
standard_name = longitude
43284322
long_name = longitude
4329-
units = radians
4323+
units = radian
43304324
dimensions = (horizontal_dimension)
43314325
type = real
43324326
kind = kind_phys
@@ -4345,9 +4339,9 @@
43454339
type = real
43464340
kind = kind_phys
43474341
[xlat_d]
4348-
standard_name = latitude_degree
4349-
long_name = latitude in degrees
4350-
units = degree
4342+
standard_name = latitude_in_degree
4343+
long_name = latitude in degree north
4344+
units = degree_north
43514345
dimensions = (horizontal_dimension)
43524346
type = real
43534347
kind = kind_phys
@@ -8150,7 +8144,7 @@
81508144
type = real
81518145
kind = kind_phys
81528146
[save_tcp]
8153-
standard_name = air_temperature_save_from_cumulus_paramterization
8147+
standard_name = air_temperature_save_from_convective_parameterization
81548148
long_name = air temperature after cumulus parameterization
81558149
units = K
81568150
dimensions = (horizontal_dimension,vertical_dimension)
@@ -8344,7 +8338,7 @@
83448338
[theta]
83458339
standard_name = angle_from_east_of_maximum_subgrid_orographic_variations
83468340
long_name = angle with_respect to east of maximum subgrid orographic variations
8347-
units = degrees
8341+
units = degree
83488342
dimensions = (horizontal_dimension)
83498343
type = real
83508344
kind = kind_phys
@@ -9482,7 +9476,7 @@
94829476
[con_pi]
94839477
standard_name = pi
94849478
long_name = ratio of a circle's circumference to its diameter
9485-
units = radians
9479+
units = none
94869480
dimensions = ()
94879481
type = real
94889482
kind = kind_phys
@@ -9502,7 +9496,7 @@
95029496
kind = kind_phys
95039497
[con_t0c]
95049498
standard_name = temperature_at_zero_celsius
9505-
long_name = temperature at 0 degrees Celsius
9499+
long_name = temperature at 0 degree Celsius
95069500
units = K
95079501
dimensions = ()
95089502
type = real

0 commit comments

Comments
 (0)