Skip to content

Commit

Permalink
Modified arg_tables. Added .meta files
Browse files Browse the repository at this point in the history
  • Loading branch information
dustinswales committed Sep 23, 2019
1 parent 2ead727 commit c668a6a
Show file tree
Hide file tree
Showing 29 changed files with 2,987 additions and 401 deletions.
10 changes: 3 additions & 7 deletions physics/GFS_rrtmgp_gas_optics.F90
Original file line number Diff line number Diff line change
Expand Up @@ -3,14 +3,10 @@ module GFS_rrtmgp_gas_optics
use GFS_typedefs, only: GFS_control_type,GFS_radtend_type
contains

!! \section arg_table_GFS_rrtmgp_gas_optics_init Argument Table
!! | local_name | standard_name | long_name | units | rank | type | kind | intent | optional |
!! |--------------|-----------------------------------|---------------------------------------------------------|----------|------|-----------------------|-----------|--------|----------|
!! | Model | GFS_control_type_instance | Fortran DDT containing FV3-GFS model control parameters | DDT | 0 | GFS_control_type | | in | F |
!! | Radtend | GFS_radtend_type_instance | Fortran DDT containing FV3-GFS radiation tendencies | DDT | 0 | GFS_radtend_type | | inout | F |
!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F |
!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F |
!! \section arg_table_GFS_rrtmgp_gas_optics
!! \htmlinclude GFS_rrtmgp_gas_optics.html
!!

! #########################################################################################
! SUBROUTINE GFS_rrtmgp_gas_optics_init()
! #########################################################################################
Expand Down
36 changes: 36 additions & 0 deletions physics/GFS_rrtmgp_gas_optics.meta
Original file line number Diff line number Diff line change
@@ -0,0 +1,36 @@
[ccpp-arg-table]
name = GFS_rrtmgp_gas_optics_init
type = scheme
[Model]
standard_name = GFS_control_type
long_name = Fortran DDT containing FV3-GFS model control parameters
units = DDT
dimensions = ()
type = GFS_control_type
intent = in
optional = F
[Radtend]
standard_name = GFS_radtend_type
long_name = Fortran DDT containing FV3-GFS radiation tendencies
units = DDT
dimensions = ()
type = GFS_radtend_type
intent = inout
optional = F
[errmsg]
standard_name = ccpp_error_message
long_name = error message for error handling in CCPP
units = none
dimensions = ()
type = character
kind = len=*
intent = out
optional = F
[errflg]
standard_name = ccpp_error_flag
long_name = error flag for error handling in CCPP
units = flag
dimensions = ()
type = integer
intent = out
optional = F
23 changes: 2 additions & 21 deletions physics/GFS_rrtmgp_lw_post.F90
Original file line number Diff line number Diff line change
Expand Up @@ -24,27 +24,8 @@ end subroutine GFS_rrtmgp_lw_post_init

! PGI compiler does not accept lines longer than 264 characters, remove during pre-processing
#ifndef __PGI
!> \section arg_table_GFS_rrtmgp_lw_post_run Argument Table
!! | local_name | standard_name | long_name | units | rank | type | kind | intent | optional |
!! |-------------------|------------------------------------------------------------------------------------------------|------------------------------------------------------------------------------|----------|------|----------------------|-----------|--------|----------|
!! | Model | GFS_control_type_instance | Fortran DDT containing FV3-GFS model control parameters | DDT | 0 | GFS_control_type | | in | F |
!! | Grid | GFS_grid_type_instance | Fortran DDT containing FV3-GFS grid and interpolation related data | DDT | 0 | GFS_grid_type | | in | F |
!! | Radtend | GFS_radtend_type_instance | Fortran DDT containing FV3-GFS radiation tendencies | DDT | 0 | GFS_radtend_type | | inout | F |
!! | Coupling | GFS_coupling_type_instance | Fortran DDT containing FV3-GFS fields to/from coupling with other components | DDT | 0 | GFS_coupling_type | | inout | F |
!! | im | horizontal_loop_extent | horizontal loop extent | count | 0 | integer | | in | F |
!! | tsfa | surface_air_temperature_for_radiation | lowest model layer air temperature for radiation | K | 1 | real | kind_phys | in | F |
!! | p_lev | air_pressure_at_interface_for_RRTMGP_in_hPa | air pressure level | hPa | 2 | real | kind_phys | in | F |
!! | fluxlwUP_allsky | lw_flux_profile_upward_allsky | RRTMGP upward longwave all-sky flux profile | W m-2 | 2 | real | kind_phys | in | F |
!! | fluxlwDOWN_allsky | lw_flux_profile_downward_allsky | RRTMGP downward longwave all-sky flux profile | W m-2 | 2 | real | kind_phys | in | F |
!! | fluxlwUP_clrsky | lw_flux_profile_upward_clrsky | RRTMGP upward longwave clr-sky flux profile | W m-2 | 2 | real | kind_phys | in | F |
!! | fluxlwDOWN_clrsky | lw_flux_profile_downward_clrsky | RRTMGP downward longwave clr-sky flux profile | W m-2 | 2 | real | kind_phys | in | F |
!! | hlwc | tendency_of_air_temperature_due_to_longwave_heating_on_radiation_time_step | longwave total sky heating rate | K s-1 | 2 | real | kind_phys | out | F |
!! | topflx_lw | lw_fluxes_top_atmosphere | longwave total sky fluxes at the top of the atm | W m-2 | 1 | topflw_type | | inout | F |
!! | sfcflx_lw | lw_fluxes_sfc | longwave total sky fluxes at the Earth surface | W m-2 | 1 | sfcflw_type | | inout | F |
!! | flxprf_lw | lw_fluxes | lw fluxes total sky / csk and up / down at levels | W m-2 | 2 | proflw_type | | inout | T |
!! | hlw0 | tendency_of_air_temperature_due_to_longwave_heating_assuming_clear_sky_on_radiation_time_step | longwave clear sky heating rate | K s-1 | 2 | real | kind_phys | inout | T |
!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F |
!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F |
!> \section arg_table_GFS_rrtmgp_lw_post
!! \htmlinclude GFS_rrtmgp_lw_post.html
!!
#endif
subroutine GFS_rrtmgp_lw_post_run (Model, Grid, Radtend, &
Expand Down
156 changes: 156 additions & 0 deletions physics/GFS_rrtmgp_lw_post.meta
Original file line number Diff line number Diff line change
@@ -0,0 +1,156 @@
[ccpp-arg-table]
name = GFS_rrtmgp_lw_post_run
type = scheme
[Model]
standard_name = GFS_control_type
long_name = Fortran DDT containing FV3-GFS model control parameters
units = DDT
dimensions = ()
type = GFS_control_type
intent = in
optional = F
[Grid]
standard_name = GFS_grid_type
long_name = Fortran DDT containing FV3-GFS grid and interpolation related data
units = DDT
dimensions = ()
type = GFS_grid_type
intent = in
optional = F
[Radtend]
standard_name = GFS_radtend_type
long_name = Fortran DDT containing FV3-GFS radiation tendencies
units = DDT
dimensions = ()
type = GFS_radtend_type
intent = inout
optional = F
[Coupling]
standard_name = GFS_coupling_type
long_name = Fortran DDT containing FV3-GFS fields to/from coupling with other components
units = DDT
dimensions = ()
type = GFS_coupling_type
intent = inout
optional = F
[im]
standard_name = horizontal_loop_extent
long_name = horizontal loop extent
units = count
dimensions = ()
type = integer
intent = in
optional = F
[tsfa]
standard_name = surface_air_temperature_for_radiation
long_name = lowest model layer air temperature for radiation
units = K
dimensions = (horizontal_dimension)
type = real
kind = kind_phys
intent = in
optional = F
[p_lev]
standard_name = air_pressure_at_interface_for_RRTMGP_in_hPa
long_name = air pressure level
units = hPa
dimensions = (horizontal_dimension,vertical_dimension_plus_one)
type = real
kind = kind_phys
intent = in
optional = F
[fluxlwUP_allsky]
standard_name = lw_flux_profile_upward_allsky
long_name = RRTMGP upward longwave all-sky flux profile
units = W m-2
dimensions = (horizontal_dimension,vertical_dimension_plus_one)
type = real
kind = kind_phys
intent = in
optional = F
[fluxlwDOWN_allsky]
standard_name = lw_flux_profile_downward_allsky
long_name = RRTMGP downward longwave all-sky flux profile
units = W m-2
dimensions = (horizontal_dimension,vertical_dimension_plus_one)
type = real
kind = kind_phys
intent = in
optional = F
[fluxlwUP_clrsky]
standard_name = lw_flux_profile_upward_clrsky
long_name = RRTMGP upward longwave clr-sky flux profile
units = W m-2
dimensions = (horizontal_dimension,vertical_dimension_plus_one)
type = real
kind = kind_phys
intent = in
optional = F
[fluxlwDOWN_clrsky]
standard_name = lw_flux_profile_downward_clrsky
long_name = RRTMGP downward longwave clr-sky flux profile
units = W m-2
dimensions = (horizontal_dimension,vertical_dimension_plus_one)
type = real
kind = kind_phys
intent = in
optional = F
[hlwc]
standard_name = tendency_of_air_temperature_due_to_longwave_heating_on_radiation_time_step
long_name = longwave total sky heating rate
units = K s-1
dimensions = (horizontal_dimension,adjusted_vertical_layer_dimension_for_radiation)
type = real
kind = kind_phys
intent = out
optional = F
[topflx_lw]
standard_name = lw_fluxes_top_atmosphere
long_name = longwave total sky fluxes at the top of the atm
units = W m-2
dimensions = (horizontal_dimension)
type = topflw_type
intent = inout
optional = F
[sfcflx_lw]
standard_name = lw_fluxes_sfc
long_name = longwave total sky fluxes at the Earth surface
units = W m-2
dimensions = (horizontal_dimension)
type = sfcflw_type
intent = inout
optional = F
[flxprf_lw]
standard_name = lw_fluxes
long_name = lw fluxes total sky / csk and up / down at levels
units = W m-2
dimensions = (horizontal_dimension,adjusted_vertical_level_dimension_for_radiation)
type = proflw_type
intent = inout
optional = T
[hlw0]
standard_name = tendency_of_air_temperature_due_to_longwave_heating_assuming_clear_sky_on_radiation_time_step
long_name = longwave clear sky heating rate
units = K s-1
dimensions = (horizontal_dimension,adjusted_vertical_layer_dimension_for_radiation)
type = real
kind = kind_phys
intent = inout
optional = T
[errmsg]
standard_name = ccpp_error_message
long_name = error message for error handling in CCPP
units = none
dimensions = ()
type = character
kind = len=*
intent = out
optional = F
[errflg]
standard_name = ccpp_error_flag
long_name = error flag for error handling in CCPP
units = flag
dimensions = ()
type = integer
intent = out
optional = F
23 changes: 2 additions & 21 deletions physics/GFS_rrtmgp_post.F90
Original file line number Diff line number Diff line change
Expand Up @@ -26,27 +26,8 @@ module GFS_rrtmgp_post
subroutine GFS_rrtmgp_post_init ()
end subroutine GFS_rrtmgp_post_init

!> \section arg_table_GFS_rrtmgp_post_run Argument Table
!! | local_name | standard_name | long_name | units | rank | type | kind | intent | optional |
!! |----------------|---------------------------------------------------------------|------------------------------------------------------------------------------|----------|------|-------------------|-----------|--------|----------|
!! | Model | GFS_control_type_instance | Fortran DDT containing FV3-GFS model control parameters | DDT | 0 | GFS_control_type | | in | F |
!! | Grid | GFS_grid_type_instance | Fortran DDT containing FV3-GFS grid and interpolation related data | DDT | 0 | GFS_grid_type | | in | F |
!! | Diag | GFS_diag_type_instance | Fortran DDT containing FV3-GFS diagnotics data | DDT | 0 | GFS_diag_type | | inout | F |
!! | Radtend | GFS_radtend_type_instance | Fortran DDT containing FV3-GFS radiation tendencies | DDT | 0 | GFS_radtend_type | | inout | F |
!! | Statein | GFS_statein_type_instance | Fortran DDT containing FV3-GFS prognostic state data in from dycore | DDT | 0 | GFS_statein_type | | in | F |
!! | Coupling | GFS_coupling_type_instance | Fortran DDT containing FV3-GFS fields to/from coupling with other components | DDT | 0 | GFS_coupling_type | | inout | F |
!! | scmpsw | components_of_surface_downward_shortwave_fluxes | derived type for special components of surface downward shortwave fluxes | W m-2 | 1 | cmpfsw_type | | inout | T |
!! | ncol | horizontal_loop_extent | horizontal loop extent | count | 0 | integer | | in | F |
!! | raddt | time_step_for_radiation | radiation time step | s | 0 | real | kind_phys | in | F |
!! | aerodp | atmosphere_optical_thickness_due_to_ambient_aerosol_particles | vertical integrated optical depth for various aerosol species | none | 2 | real | kind_phys | in | F |
!! | cldsa | cloud_area_fraction_for_radiation | fraction of clouds for low, middle, high, total and BL | frac | 2 | real | kind_phys | in | F |
!! | mtopa | model_layer_number_at_cloud_top | vertical indices for low, middle and high cloud tops | index | 2 | integer | | in | F |
!! | mbota | model_layer_number_at_cloud_base | vertical indices for low, middle and high cloud bases | index | 2 | integer | | in | F |
!! | cloud_fraction | total_cloud_fraction | layer total cloud fraction | frac | 2 | real | kind_phys | in | F |
!! | cldtaulw | cloud_optical_depth_layers_at_10mu_band | approx 10mu band layer cloud optical depth | none | 2 | real | kind_phys | in | F |
!! | cldtausw | cloud_optical_depth_layers_at_0.55mu_band | approx .55mu band layer cloud optical depth | none | 2 | real | kind_phys | in | F |
!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F |
!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F |
!> \section arg_table_GFS_rrtmgp_post
!! \htmlinclude GFS_rrtmgp_post.html
!!
subroutine GFS_rrtmgp_post_run (Model, Grid, Diag, Radtend, Statein, Coupling, scmpsw, &
ncol, raddt, aerodp, cldsa, mtopa, mbota, cloud_fraction, cldtaulw, cldtausw, &
Expand Down
Loading

0 comments on commit c668a6a

Please sign in to comment.