diff --git a/physics/GFS_rrtmgp_gas_optics.F90 b/physics/GFS_rrtmgp_gas_optics.F90 index 8332785cf..42a1cf2b6 100644 --- a/physics/GFS_rrtmgp_gas_optics.F90 +++ b/physics/GFS_rrtmgp_gas_optics.F90 @@ -1,9 +1,13 @@ +!> \file GFS_rrtmgp_gas_optics.f90 +!! This file contains module GFS_rrtmgp_gas_optics use machine, only: kind_phys use GFS_typedefs, only: GFS_control_type,GFS_radtend_type + + public GFS_rrtmgp_gas_optics_init,GFS_rrtmgp_gas_optics_run,GFS_rrtmgp_gas_optics_finalize contains -!! \section arg_table_GFS_rrtmgp_gas_optics +!! \section arg_table_GFS_rrtmgp_gas_optics_init !! \htmlinclude GFS_rrtmgp_gas_optics.html !! diff --git a/physics/GFS_rrtmgp_gas_optics.meta b/physics/GFS_rrtmgp_gas_optics.meta index 71090f948..0955e0ee8 100644 --- a/physics/GFS_rrtmgp_gas_optics.meta +++ b/physics/GFS_rrtmgp_gas_optics.meta @@ -34,3 +34,13 @@ type = integer intent = out optional = F + +######################################################################## +[ccpp-arg-table] + name = GFS_rrtmgp_gas_optics_run + type = scheme + +######################################################################## +[ccpp-arg-table] + name = GFS_rrtmgp_gas_optics_finalize + type = scheme \ No newline at end of file diff --git a/physics/GFS_rrtmgp_lw_post.F90 b/physics/GFS_rrtmgp_lw_post.F90 index 2a443e308..986a025ee 100644 --- a/physics/GFS_rrtmgp_lw_post.F90 +++ b/physics/GFS_rrtmgp_lw_post.F90 @@ -22,12 +22,9 @@ module GFS_rrtmgp_lw_post subroutine GFS_rrtmgp_lw_post_init() 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 +!> \section arg_table_GFS_rrtmgp_lw_post_run !! \htmlinclude GFS_rrtmgp_lw_post.html !! -#endif subroutine GFS_rrtmgp_lw_post_run (Model, Grid, Radtend, & Coupling, im, p_lev, & tsfa, fluxlwUP_allsky, fluxlwDOWN_allsky, fluxlwUP_clrsky, fluxlwDOWN_clrsky, & diff --git a/physics/GFS_rrtmgp_post.F90 b/physics/GFS_rrtmgp_post.F90 index 968b44b2a..095409cb4 100644 --- a/physics/GFS_rrtmgp_post.F90 +++ b/physics/GFS_rrtmgp_post.F90 @@ -19,14 +19,10 @@ module GFS_rrtmgp_post implicit none contains -!>\defgroup GFS_rrtmgp_post GFS RRTMGP Scheme Post -!! @{ -!> \section arg_table_GFS_rrtmgp_post_init Argument Table -!! subroutine GFS_rrtmgp_post_init () end subroutine GFS_rrtmgp_post_init -!> \section arg_table_GFS_rrtmgp_post +!> \section arg_table_GFS_rrtmgp_post_run !! \htmlinclude GFS_rrtmgp_post.html !! subroutine GFS_rrtmgp_post_run (Model, Grid, Diag, Radtend, Statein, Coupling, scmpsw, & diff --git a/physics/GFS_rrtmgp_post.meta b/physics/GFS_rrtmgp_post.meta index 1c393382e..4b46c8684 100644 --- a/physics/GFS_rrtmgp_post.meta +++ b/physics/GFS_rrtmgp_post.meta @@ -123,7 +123,7 @@ intent = in optional = F [cldtaulw] - standard_name = cloud_optical_depth_layers_at_10mu_band + standard_name = RRTMGP_cloud_optical_depth_layers_at_10mu_band long_name = approx 10mu band layer cloud optical depth units = none dimensions = (horizontal_dimension,adjusted_vertical_layer_dimension_for_radiation) @@ -132,7 +132,7 @@ intent = in optional = F [cldtausw] - standard_name = cloud_optical_depth_layers_at_0_55mu_band + standard_name = RRTMGP_cloud_optical_depth_layers_at_0_55mu_band long_name = approx .55mu band layer cloud optical depth units = none dimensions = (horizontal_dimension,vertical_dimension_plus_one) diff --git a/physics/GFS_rrtmgp_pre.F90 b/physics/GFS_rrtmgp_pre.F90 index 7741d9f37..c8f2ef1f5 100644 --- a/physics/GFS_rrtmgp_pre.F90 +++ b/physics/GFS_rrtmgp_pre.F90 @@ -66,7 +66,7 @@ module GFS_rrtmgp_pre subroutine GFS_rrtmgp_pre_init () end subroutine GFS_rrtmgp_pre_init -!> \section arg_table_GFS_rrtmgp_pre +!> \section arg_table_GFS_rrtmgp_pre_run !! \htmlinclude GFS_rrtmgp_pre.html !! ! Attention - the output arguments lm, im, lmk, lmp must not be set diff --git a/physics/GFS_rrtmgp_pre.meta b/physics/GFS_rrtmgp_pre.meta index 7131bd2b8..322b34bd6 100644 --- a/physics/GFS_rrtmgp_pre.meta +++ b/physics/GFS_rrtmgp_pre.meta @@ -226,23 +226,22 @@ intent = out optional = F [faerlw] - standard_name = aerosol_optical_properties_for_longwave_bands_01_16 + standard_name = RRTMGP_aerosol_optical_properties_for_longwave_bands_01_16 long_name = aerosol optical properties for longwave bands 01-16 units = various - dimensions = (horizontal_dimension,adjusted_vertical_layer_dimension_for_radiation,number_of_aerosol_bands_for_longwave_radiation,number_of_aerosol_output_fields_for_longwave_radiation) + dimensions = (horizontal_dimension,vertical_dimension_plus_one, number_of_lw_bands_rrtmgp,number_of_aerosol_output_fields_for_longwave_radiation) type = real kind = kind_phys intent = out optional = F [faersw] - standard_name = aerosol_optical_properties_for_shortwave_bands_01_16 + standard_name = RRTMGP_aerosol_optical_properties_for_shortwave_bands_01_16 long_name = aerosol optical properties for shortwave bands 01-16 units = various - dimensions = (horizontal_dimension,adjusted_vertical_layer_dimension_for_radiation,number_of_aerosol_bands_for_shortwave_radiation,number_of_aerosol_output_fields_for_shortwave_radiation) + dimensions = (horizontal_dimension,vertical_dimension_plus_one, number_of_sw_bands_rrtmgp, number_of_aerosol_output_fields_for_shortwave_radiation) type = real - kind = kind_phys intent = out - optional = F + kind = kind_phys [mtopa] standard_name = model_layer_number_at_cloud_top long_name = vertical indices for low, middle and high cloud tops diff --git a/physics/GFS_rrtmgp_setup.F90 b/physics/GFS_rrtmgp_setup.F90 index 270c0b471..bf52b72df 100644 --- a/physics/GFS_rrtmgp_setup.F90 +++ b/physics/GFS_rrtmgp_setup.F90 @@ -37,9 +37,7 @@ module GFS_rrtmgp_setup contains -!> \defgroup GFS_rrtmgp_setup GFS RRTMGP Scheme Setup -!! @{ -!! \section arg_table_GFS_rrtmgp_setup +!! \section arg_table_GFS_rrtmgp_setup_init !! \htmlinclude GFS_rrtmgp_setup.html !! subroutine GFS_rrtmgp_setup_init ( & @@ -316,7 +314,7 @@ subroutine GFS_rrtmgp_setup_init ( & end subroutine GFS_rrtmgp_setup_init -!> \section arg_table_GFS_rrtmgp_setup +!> \section arg_table_GFS_rrtmgp_setup_run !! \htmlinclude GFS_rrtmgp_setup.html !! subroutine GFS_rrtmgp_setup_run ( & @@ -355,7 +353,7 @@ subroutine GFS_rrtmgp_setup_run ( & end subroutine GFS_rrtmgp_setup_run -!> \section arg_table_GFS_rrtmgp_setup +!> \section arg_table_GFS_rrtmgp_setup_finalize !! \htmlinclude GFS_rrtmgp_setup.html !! subroutine GFS_rrtmgp_setup_finalize (errmsg, errflg) diff --git a/physics/GFS_rrtmgp_sw_post.F90 b/physics/GFS_rrtmgp_sw_post.F90 index c53350d2a..ed0af14a9 100644 --- a/physics/GFS_rrtmgp_sw_post.F90 +++ b/physics/GFS_rrtmgp_sw_post.F90 @@ -23,12 +23,9 @@ module GFS_rrtmgp_sw_post subroutine GFS_rrtmgp_sw_post_init() end subroutine GFS_rrtmgp_sw_post_init - ! PGI compiler does not accept lines longer than 264 characters, remove during pre-processing -#ifndef __PGI -!> \section arg_table_GFS_rrtmgp_sw_post +!> \section arg_table_GFS_rrtmgp_sw_post_run !! \htmlinclude GFS_rrtmgp_sw_post.html !! -#endif subroutine GFS_rrtmgp_sw_post_run (Model, Grid, Diag, Radtend, Coupling, & scmpsw, im, p_lev, sw_gas_props, nday, idxday, fluxswUP_allsky, fluxswDOWN_allsky, & fluxswUP_clrsky, fluxswDOWN_clrsky, hswc, topflx_sw, sfcflx_sw, flxprf_sw, hsw0, & diff --git a/physics/radlw_param.meta b/physics/radlw_param.meta index a06a89512..61aee1d37 100644 --- a/physics/radlw_param.meta +++ b/physics/radlw_param.meta @@ -23,3 +23,9 @@ units = DDT dimensions = () type = sfcflw_type +[proflw_type] + standard_name = proflw_type + long_name = definition of type proflw_type + units = DDT + dimensions = () + type = proflw_type diff --git a/physics/radsw_param.meta b/physics/radsw_param.meta index 9f7c8a35a..4f4f320f6 100644 --- a/physics/radsw_param.meta +++ b/physics/radsw_param.meta @@ -34,3 +34,9 @@ units = DDT dimensions = () type = cmpfsw_type +[profsw_type] + standard_name = profsw_type + long_name = definition of type profsw_type + units = DDT + dimensions = () + type = profsw_type \ No newline at end of file diff --git a/physics/rrtmgp_lw_cloud_optics.F90 b/physics/rrtmgp_lw_cloud_optics.F90 index 142dc9085..64f88522f 100644 --- a/physics/rrtmgp_lw_cloud_optics.F90 +++ b/physics/rrtmgp_lw_cloud_optics.F90 @@ -1,3 +1,5 @@ +!>\file rrtmgp_lw_cloud_optics.F90 +!! This file contains module rrtmgp_lw_cloud_optics use machine, only: kind_phys use GFS_typedefs, only: GFS_control_type @@ -15,7 +17,7 @@ module rrtmgp_lw_cloud_optics public rrtmgp_lw_cloud_optics_init, rrtmgp_lw_cloud_optics_run, rrtmgp_lw_cloud_optics_finalize contains -!! \section arg_table_rrtmgp_lw_cloud_optics +!! \section arg_table_rrtmgp_lw_cloud_optics_init !! \htmlinclude rrtmgp_lw_cloud_optics.html !! ! ######################################################################################### @@ -304,16 +306,16 @@ subroutine rrtmgp_lw_cloud_optics_init(Model, mpicomm, mpirank, mpiroot, lw_clou end subroutine rrtmgp_lw_cloud_optics_init -!! \section arg_table_rrtmgp_lw_cloud_optics -!! \html_include rrtmgp_lw_cloud_optics.html +!! \section arg_table_rrtmgp_lw_cloud_optics_run +!! \htmlinclude rrtmgp_lw_cloud_optics.html !! ! ######################################################################################### ! SUBROUTINE rrtmgp_lw_cloud_optics_run() ! ######################################################################################### - subroutine rrtmgp_lw_cloud_optics_run(Model, ncol, icseed_lw,cld_frac, & - cld_lwp, cld_reliq, cld_iwp, cld_reice, cld_swp, cld_resnow, cld_rwp, cld_rerain, & - aerosols, lw_cloud_props, lw_gas_props, ipsdlw0, & - optical_props_clouds, optical_props_aerosol, cldtaulw, errmsg, errflg) + subroutine rrtmgp_lw_cloud_optics_run(Model, ncol, ipsdlw0, icseed_lw, cld_frac, cld_lwp, & + cld_reliq, cld_iwp, cld_reice, cld_swp, cld_resnow, cld_rwp, cld_rerain, & + lw_cloud_props, lw_gas_props, aerosols, & + cldtaulw, optical_props_clouds, optical_props_aerosol, errmsg, errflg) ! Inputs type(GFS_control_type), intent(in) :: & @@ -342,10 +344,10 @@ subroutine rrtmgp_lw_cloud_optics_run(Model, ncol, icseed_lw,cld_frac, & lw_gas_props real(kind_phys), intent(in),dimension(ncol, model%levs, lw_gas_props%get_nband(),3) :: & aerosols ! - real(kind_phys), dimension(ncol,Model%levs), intent(out) :: & - cldtaulw ! approx 10.mu band layer cloud optical depth ! Outputs + real(kind_phys), dimension(ncol,Model%levs), intent(out) :: & + cldtaulw ! approx 10.mu band layer cloud optical depth type(ty_optical_props_1scl),intent(out) :: & optical_props_clouds, & ! optical_props_aerosol ! diff --git a/physics/rrtmgp_lw_cloud_optics.meta b/physics/rrtmgp_lw_cloud_optics.meta index a3b39c6e9..b2e37e55a 100644 --- a/physics/rrtmgp_lw_cloud_optics.meta +++ b/physics/rrtmgp_lw_cloud_optics.meta @@ -79,127 +79,127 @@ type = integer intent = in optional = F +[ipsdlw0] + standard_name = initial_permutation_seed_lw + long_name = initial seed for McICA LW + units = none + dimensions = () + type = integer + intent = in + optional = F +[icseed_lw] + standard_name = seed_random_numbers_lw_for_RRTMGP + long_name = seed for random number generation for longwave radiation + units = none + dimensions = (horizontal_dimension) + type = integer + intent = in + optional = F [cld_frac] - standard_name = total_cloud_fraction + standard_name = RRTMGP_total_cloud_fraction long_name = layer total cloud fraction units = frac - dimensions = (horizontal_dimension,vertical_dimension) + dimensions = (horizontal_dimension,vertical_dimension_plus_one) type = real - kind = kind_phys intent = in - optional = F + kind = kind_phys [cld_lwp] standard_name = RRTMGP_cloud_liquid_water_path long_name = layer cloud liquid water path units = g m-2 dimensions = (horizontal_dimension,vertical_dimension_plus_one) type = real - kind = kind_phys intent = in - optional = F + kind = kind_phys [cld_reliq] standard_name = RRTMGP_mean_effective_radius_for_liquid_cloud long_name = mean effective radius for liquid cloud units = micron dimensions = (horizontal_dimension,vertical_dimension_plus_one) type = real - kind = kind_phys intent = in - optional = F + kind = kind_phys [cld_iwp] standard_name = RRTMGP_cloud_ice_water_path long_name = layer cloud ice water path units = g m-2 dimensions = (horizontal_dimension,vertical_dimension_plus_one) type = real - kind = kind_phys intent = in - optional = F + kind = kind_phys [cld_reice] standard_name = RRTMGP_mean_effective_radius_for_ice_cloud long_name = mean effective radius for ice cloud units = micron dimensions = (horizontal_dimension,vertical_dimension_plus_one) type = real - kind = kind_phys intent = in - optional = F + kind = kind_phys [cld_swp] standard_name = RRTMGP_cloud_snow_water_path - long_name = layer cloud snow water path + long_name = cloud snow water path units = g m-2 dimensions = (horizontal_dimension,vertical_dimension_plus_one) type = real - kind = kind_phys intent = in - optional = F + kind = kind_phys [cld_resnow] standard_name = RRTMGP_mean_effective_radius_for_snow_flake - long_name = mean effective radius for snow cloud + long_name = mean effective radius for snow flake units = micron dimensions = (horizontal_dimension,vertical_dimension_plus_one) type = real - kind = kind_phys intent = in - optional = F + kind = kind_phys [cld_rwp] standard_name = RRTMGP_cloud_rain_water_path - long_name = layer cloud rain water path + long_name = cloud rain water path units = g m-2 dimensions = (horizontal_dimension,vertical_dimension_plus_one) type = real - kind = kind_phys intent = in - optional = F + kind = kind_phys [cld_rerain] standard_name = RRTMGP_mean_effective_radius_for_rain_drop - long_name = mean effective radius for rain cloud + long_name = mean effective radius for rain drop units = micron dimensions = (horizontal_dimension,vertical_dimension_plus_one) type = real - kind = kind_phys - intent = in - optional = F -[icseed_lw] - standard_name = seed_random_numbers_sw - long_name = seed for random number generation for shortwave radiation - units = none - dimensions = (horizontal_dimension) - type = integer intent = in - optional = F -[aerosols] - standard_name = aerosol_optical_properties_for_longwave_bands_01_16 - long_name = aerosol optical properties for longwave bands 01-16 - units = various - dimensions = (horizontal_dimension,adjusted_vertical_layer_dimension_for_radiation,number_of_aerosol_bands_for_longwave_radiation,number_of_aerosol_output_fields_for_longwave_radiation) - type = real kind = kind_phys +[lw_gas_props] + standard_name = coefficients_for_lw_gas_optics + long_name = DDT containing spectral information for RRTMGP LW radiation scheme + units = DDT + dimensions = () intent = in + type = ty_gas_optics_rrtmgp optional = F [lw_cloud_props] standard_name = coefficients_for_lw_cloud_optics - long_name = DDT containing spectral information for cloudy RRTMGP LW radiation scheme + long_name = DDT containing spectral information for RRTMGP LW radiation scheme units = DDT dimensions = () - type = ty_cloud_optics intent = in + type = ty_cloud_optics optional = F -[lw_gas_props] - standard_name = coefficients_for_lw_gas_optics - long_name = DDT containing spectral information for RRTMGP LW radiation scheme - units = DDT - dimensions = () - type = ty_gas_optics_rrtmgp +[aerosols] + standard_name = RRTMGP_aerosol_optical_properties_for_longwave_bands_01_16 + long_name = aerosol optical properties for longwave bands 01-16 + units = various + dimensions = (horizontal_dimension,vertical_dimension_plus_one, number_of_lw_bands_rrtmgp,number_of_aerosol_output_fields_for_longwave_radiation) + type = real + kind = kind_phys intent = in optional = F -[ipsdlw0] - standard_name = initial_permutation_seed_lw - long_name = initial seed for McICA LW +[cldtaulw] + standard_name = RRTMGP_cloud_optical_depth_layers_at_10mu_band + long_name = approx 10mu band layer cloud optical depth units = none - dimensions = () - type = integer - intent = in + dimensions = (horizontal_dimension,vertical_dimension_plus_one) + type = real + kind = kind_phys + intent = out optional = F [optical_props_clouds] standard_name = longwave_optical_properties_for_cloudy_atmosphere @@ -217,15 +217,6 @@ type = ty_optical_props_1scl intent = out optional = F -[cldtaulw] - standard_name = cloud_optical_depth_layers_at_10mu_band - long_name = approx 10mu band layer cloud optical depth - units = none - dimensions = (horizontal_dimension,adjusted_vertical_layer_dimension_for_radiation) - type = real - kind = kind_phys - intent = out - optional = F [errmsg] standard_name = ccpp_error_message long_name = error message for error handling in CCPP @@ -242,4 +233,4 @@ dimensions = () type = integer intent = out - optional = F + optional = F \ No newline at end of file diff --git a/physics/rrtmgp_lw_clrallsky_driver.F90 b/physics/rrtmgp_lw_clrallsky_driver.F90 index 9d438aed0..3ee39ba45 100644 --- a/physics/rrtmgp_lw_clrallsky_driver.F90 +++ b/physics/rrtmgp_lw_clrallsky_driver.F90 @@ -24,7 +24,7 @@ end subroutine rrtmgp_lw_clrallsky_driver_init ! ######################################################################################### ! SUBROUTINE rrtmgp_lw_clrallsky_driver_run ! ######################################################################################### -!! \section arg_table_rrtmgp_lw_clrallsky_drive +!! \section arg_table_rrtmgp_lw_clrallsky_driver_run !! \htmlinclude rrtmgp_lw_clrallsky_driver.html !! subroutine rrtmgp_lw_clrallsky_driver_run(Model, Radtend, ncol, lw_gas_props, p_lay, t_lay, p_lev, skt, & diff --git a/physics/rrtmgp_lw_gas_optics.F90 b/physics/rrtmgp_lw_gas_optics.F90 index f17b1f675..94b31c32e 100644 --- a/physics/rrtmgp_lw_gas_optics.F90 +++ b/physics/rrtmgp_lw_gas_optics.F90 @@ -18,7 +18,7 @@ module rrtmgp_lw_gas_optics ! ######################################################################################### ! SUBROUTINE rrtmgp_sw_gas_optics_init ! ######################################################################################### -!! \section arg_table_rrtmgp_lw_gas_optics +!! \section arg_table_rrtmgp_lw_gas_optics_init !! \htmlinclude rrtmgp_lw_gas_optics.html !! subroutine rrtmgp_lw_gas_optics_init(Model, Radtend, mpicomm, mpirank, mpiroot, lw_gas_props, & @@ -412,7 +412,7 @@ end subroutine rrtmgp_lw_gas_optics_init ! If calling rte/mo_rte_sw.F90:rte_sw() directly, place calls to compute source ! function and gas_optics() here. ! ######################################################################################### -!! \section arg_table_rrtmgp_lw_gas_optics +!! \section arg_table_rrtmgp_lw_gas_optics_run !! \htmlinclude rrtmgp_lw_gas_optics.html !! subroutine rrtmgp_lw_gas_optics_run(Model, Radtend, lw_gas_props, ncol, p_lay, p_lev, t_lay, t_lev, skt, & diff --git a/physics/rrtmgp_lw_rte.F90 b/physics/rrtmgp_lw_rte.F90 index c6bb4f40a..b035d9447 100644 --- a/physics/rrtmgp_lw_rte.F90 +++ b/physics/rrtmgp_lw_rte.F90 @@ -24,9 +24,9 @@ end subroutine rrtmgp_lw_rte_init ! ######################################################################################### ! SUBROUTINE rrtmgp_lw_rte_run ! ######################################################################################### -!! \section arg_table_rrtmgp_lw_rte +!! \section arg_table_rrtmgp_lw_rte_run !! \htmlinclude rrtmgp_lw_rte.html -! +!! subroutine rrtmgp_lw_rte_run(Model, Statein, Radtend, ncol, lw_gas_props, p_lay, t_lay, p_lev, & skt, sources, optical_props_clrsky, optical_props_cloud, optical_props_aerosol, lslwr,& fluxUP_allsky, fluxDOWN_allsky, fluxUP_clrsky, fluxDOWN_clrsky, hlw0, hlwb, errmsg, errflg) diff --git a/physics/rrtmgp_sw_cloud_optics.F90 b/physics/rrtmgp_sw_cloud_optics.F90 index eb64a3bde..e380027ad 100644 --- a/physics/rrtmgp_sw_cloud_optics.F90 +++ b/physics/rrtmgp_sw_cloud_optics.F90 @@ -14,8 +14,8 @@ module rrtmgp_sw_cloud_optics contains -!! \section arg_table_rrtmgp_sw_cloud_optics -!! \html_include rrtmgp_lw_cloud_optics.html +!! \section arg_table_rrtmgp_sw_cloud_optics_init +!! \htmlinclude rrtmgp_lw_cloud_optics.html !! ! ######################################################################################### ! SUBROUTINE sw_cloud_optics_init @@ -305,7 +305,7 @@ subroutine rrtmgp_sw_cloud_optics_init(Model,mpicomm, mpirank, mpiroot, sw_cloud endif end subroutine rrtmgp_sw_cloud_optics_init -!! \section arg_table_rrtmgp_sw_cloud_optics +!! \section arg_table_rrtmgp_sw_cloud_optics_run !! \htmlinclude rrtmgp_sw_cloud_optics.html !! ! ######################################################################################### diff --git a/physics/rrtmgp_sw_cloud_optics.meta b/physics/rrtmgp_sw_cloud_optics.meta index 3de57da2c..d70370d70 100644 --- a/physics/rrtmgp_sw_cloud_optics.meta +++ b/physics/rrtmgp_sw_cloud_optics.meta @@ -234,7 +234,7 @@ intent = out optional = F [cldtausw] - standard_name = cloud_optical_depth_layers_at_0_55mu_band + standard_name = RRTMGP_cloud_optical_depth_layers_at_0_55mu_band long_name = approx .55mu band layer cloud optical depth units = none dimensions = (horizontal_dimension,vertical_dimension_plus_one) diff --git a/physics/rrtmgp_sw_clrallsky_driver.F90 b/physics/rrtmgp_sw_clrallsky_driver.F90 index b990ce142..99f42a688 100644 --- a/physics/rrtmgp_sw_clrallsky_driver.F90 +++ b/physics/rrtmgp_sw_clrallsky_driver.F90 @@ -26,7 +26,7 @@ end subroutine rrtmgp_sw_clrallsky_driver_init ! ######################################################################################### ! SUBROUTINE rrtmgp_sw_clrallsky_driver_run ! ######################################################################################### -!! \section arg_table_rrtmgp_sw_clrallsky_driver +!! \section arg_table_rrtmgp_sw_clrallsky_driver_run !! \htmlinclude rrtmgp_sw_clrallsky_driver.html !! subroutine rrtmgp_sw_clrallsky_driver_run(Model, Radtend, ncol, sw_gas_props, p_lay, t_lay, p_lev, gas_concentrations, & diff --git a/physics/rrtmgp_sw_gas_optics.F90 b/physics/rrtmgp_sw_gas_optics.F90 index 7a3860620..37bf25c74 100644 --- a/physics/rrtmgp_sw_gas_optics.F90 +++ b/physics/rrtmgp_sw_gas_optics.F90 @@ -14,7 +14,7 @@ module rrtmgp_sw_gas_optics ! ######################################################################################### ! SUBROUTINE sw_gas_optics_init ! ######################################################################################### -!! \section arg_table_rrtmgp_sw_gas_optics +!! \section arg_table_rrtmgp_sw_gas_optics_init !! \htmlinclude rrtmgp_sw_gas_optics.html !! subroutine rrtmgp_sw_gas_optics_init(Model, Radtend, mpicomm, mpirank, mpiroot, sw_gas_props, & @@ -409,7 +409,7 @@ end subroutine rrtmgp_sw_gas_optics_init ! If calling rte/mo_rte_sw.F90:rte_sw() directly, place calls to compute source ! function and gas_optics() here. ! ######################################################################################### -!! \section arg_table_rrtmgp_sw_gas_optics +!! \section arg_table_rrtmgp_sw_gas_optics_run !! \htmlinclude rrtmgp_sw_gas_optics.html !! subroutine rrtmgp_sw_gas_optics_run(Model, Radtend, sw_gas_props, ncol, p_lay, p_lev, t_lay, t_lev, & diff --git a/physics/rrtmgp_sw_rte.F90 b/physics/rrtmgp_sw_rte.F90 index 49242142d..d31b9a785 100644 --- a/physics/rrtmgp_sw_rte.F90 +++ b/physics/rrtmgp_sw_rte.F90 @@ -26,7 +26,7 @@ end subroutine rrtmgp_sw_rte_init ! ######################################################################################### ! SUBROUTINE rrtmgp_sw_rte_run ! ######################################################################################### -!! \section arg_table_rrtmgp_sw_rte +!! \section arg_table_rrtmgp_sw_rte_run !! \htmlinclude rrtmgp_sw_rte.html !! subroutine rrtmgp_sw_rte_run(Model, Radtend, Statein, ncol, sw_gas_props, p_lay, t_lay, p_lev, gas_concentrations, &