radiation_save Module


Uses

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

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_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), dimension(config%n_g_lw, istartcol:iendcol) :: lw_emission
real(kind=jprb), 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