radiation_save Module


Uses

  • module~~radiation_save~~UsesGraph module~radiation_save radiation_save module~parkind1~2 PARKIND1 module~radiation_save->module~parkind1~2

Used by

  • module~~radiation_save~~UsedByGraph module~radiation_save radiation_save proc~radiation_scheme~3 RADIATION_SCHEME proc~radiation_scheme~3->module~radiation_save proc~radiation_scheme RADIATION_SCHEME proc~radiation_scheme->module~radiation_save proc~radiation_scheme~2 RADIATION_SCHEME proc~radiation_scheme~2->module~radiation_save proc~radiation_scheme_s2 RADIATION_SCHEME_S2 proc~radiation_scheme_s2->module~radiation_save proc~radiation radiation proc~radiation->module~radiation_save program~ecrad_ifs_driver ecrad_ifs_driver program~ecrad_ifs_driver->module~radiation_save program~ecrad_driver ecrad_driver program~ecrad_driver->module~radiation_save program~ecrad_ifs_driver~2 ecrad_ifs_driver program~ecrad_ifs_driver~2->module~radiation_save proc~radiation~2 radiation proc~radiation~2->module~radiation_save

Contents

Subroutines


Subroutines

public subroutine save_fluxes(file_name, config, thermodynamics, flux, iverbose, is_hdf5_file, experiment_name, is_double_precision)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: file_name
type(config_type), intent(in) :: config
type(thermodynamics_type), intent(in) :: thermodynamics
type(flux_type), intent(in) :: flux
integer, intent(in), optional :: iverbose
logical, intent(in), optional :: is_hdf5_file
character(len=*), intent(in), optional :: experiment_name
logical, intent(in), optional :: is_double_precision

public subroutine save_net_fluxes(file_name, config, thermodynamics, flux, iverbose, is_hdf5_file, experiment_name, is_double_precision)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: file_name
type(config_type), intent(in) :: config
type(thermodynamics_type), intent(in) :: thermodynamics
type(flux_type), intent(in) :: flux
integer, intent(in), optional :: iverbose
logical, intent(in), optional :: is_hdf5_file
character(len=*), intent(in), optional :: experiment_name
logical, intent(in), optional :: is_double_precision

public subroutine save_radiative_properties(file_name, nlev, istartcol, iendcol, config, single_level, thermodynamics, cloud, planck_hl, lw_emission, lw_albedo, sw_albedo_direct, sw_albedo_diffuse, incoming_sw, od_lw, ssa_lw, g_lw, od_sw, ssa_sw, g_sw, od_lw_cloud, ssa_lw_cloud, g_lw_cloud, od_sw_cloud, ssa_sw_cloud, g_sw_cloud)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: file_name
integer, intent(in) :: nlev
integer, intent(in) :: istartcol
integer, intent(in) :: iendcol
type(config_type), intent(in) :: config
type(single_level_type), intent(in) :: single_level
type(thermodynamics_type), intent(in) :: thermodynamics
type(cloud_type), intent(in) :: cloud
real(kind=jprb), intent(in), dimension(config%n_g_lw,nlev+1,istartcol:iendcol) :: planck_hl
real(kind=jprb), intent(in), dimension(config%n_g_lw, istartcol:iendcol) :: lw_emission
real(kind=jprb), intent(in), dimension(config%n_g_lw, istartcol:iendcol) :: lw_albedo
real(kind=jprb), intent(in), dimension(config%n_g_sw,istartcol:iendcol) :: sw_albedo_direct
real(kind=jprb), intent(in), dimension(config%n_g_sw,istartcol:iendcol) :: sw_albedo_diffuse
real(kind=jprb), intent(in), dimension(config%n_g_sw,istartcol:iendcol) :: incoming_sw
real(kind=jprb), intent(in), dimension(config%n_g_lw,nlev,istartcol:iendcol) :: od_lw
real(kind=jprb), intent(in), dimension(config%n_g_lw_if_scattering,nlev,istartcol:iendcol) :: ssa_lw
real(kind=jprb), intent(in), dimension(config%n_g_lw_if_scattering,nlev,istartcol:iendcol) :: g_lw
real(kind=jprb), intent(in), dimension(config%n_g_sw,nlev,istartcol:iendcol) :: od_sw
real(kind=jprb), intent(in), dimension(config%n_g_sw,nlev,istartcol:iendcol) :: ssa_sw
real(kind=jprb), intent(in), dimension(config%n_g_sw,nlev,istartcol:iendcol) :: g_sw
real(kind=jprb), intent(in), dimension(config%n_bands_lw,nlev,istartcol:iendcol) :: od_lw_cloud
real(kind=jprb), intent(in), dimension(config%n_bands_lw_if_scattering,nlev,istartcol:iendcol) :: ssa_lw_cloud
real(kind=jprb), intent(in), dimension(config%n_bands_lw_if_scattering,nlev,istartcol:iendcol) :: g_lw_cloud
real(kind=jprb), intent(in), dimension(config%n_bands_sw,nlev,istartcol:iendcol) :: od_sw_cloud
real(kind=jprb), intent(in), dimension(config%n_bands_sw,nlev,istartcol:iendcol) :: ssa_sw_cloud
real(kind=jprb), intent(in), dimension(config%n_bands_sw,nlev,istartcol:iendcol) :: g_sw_cloud

public subroutine save_inputs(file_name, config, single_level, thermodynamics, gas, cloud, aerosol, lat, lon, iverbose)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: file_name
type(config_type), intent(in) :: config
type(single_level_type), intent(in) :: single_level
type(thermodynamics_type), intent(in) :: thermodynamics
type(gas_type), intent(inout) :: gas
type(cloud_type), intent(in) :: cloud
type(aerosol_type), intent(in), optional :: aerosol
real(kind=jprb), intent(in), optional :: lat(:)
real(kind=jprb), intent(in), optional :: lon(:)
integer, intent(in), optional :: iverbose

public subroutine save_sw_diagnostics(file_name, config, wavelength_bound, mapping, flux, iverbose, is_hdf5_file, experiment_name, is_double_precision)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: file_name
type(config_type), intent(in) :: config
real(kind=jprb), intent(in) :: wavelength_bound(:)
real(kind=jprb), intent(in) :: mapping(:,:)
type(flux_type), intent(in) :: flux
integer, intent(in), optional :: iverbose
logical, intent(in), optional :: is_hdf5_file
character(len=*), intent(in), optional :: experiment_name
logical, intent(in), optional :: is_double_precision