ModelState_t Derived Type

  1. model_state.f90
  2. model_state
  3. ModelState_t

type, public :: ModelState_t

Model state


Inherits

type~~modelstate_t~~InheritsGraph type~modelstate_t ModelState_t ModImplicit_t ModImplicit_t type~modelstate_t->ModImplicit_t mod_implicit ModSpectral_t ModSpectral_t type~modelstate_t->ModSpectral_t mod_spectral ModGeometry_t ModGeometry_t type~modelstate_t->ModGeometry_t mod_geometry

Inherited by

type~~modelstate_t~~InheritedByGraph type~modelstate_t ModelState_t type~modelstate_ptr_t ModelState_Ptr_t type~modelstate_ptr_t->type~modelstate_t p

Contents

Variables

initialized mod_geometry mod_geometry_initialized mod_spectral mod_spectral_initialized mod_implicit mod_implicit_initialized vor vor_initialized div div_initialized t t_initialized ps ps_initialized tr tr_initialized phi phi_initialized phis phis_initialized u_grid u_grid_initialized v_grid v_grid_initialized t_grid t_grid_initialized q_grid q_grid_initialized phi_grid phi_grid_initialized ps_grid ps_grid_initialized precnv precnv_initialized precls precls_initialized snowcv snowcv_initialized snowls snowls_initialized cbmf cbmf_initialized tsr tsr_initialized ssrd ssrd_initialized ssr ssr_initialized slrd slrd_initialized slr slr_initialized olr olr_initialized slru slru_initialized ustr ustr_initialized vstr vstr_initialized shf shf_initialized evap evap_initialized hfluxn hfluxn_initialized tt_rsw tt_rsw_initialized phi0 phi0_initialized orog orog_initialized phis0 phis0_initialized alb0 alb0_initialized forog forog_initialized fmask_orig fmask_orig_initialized xgeop1 xgeop1_initialized xgeop2 xgeop2_initialized stl12 stl12_initialized snowd12 snowd12_initialized soilw12 soilw12_initialized veg_low veg_low_initialized veg_high veg_high_initialized soil_wc_l1 soil_wc_l1_initialized soil_wc_l2 soil_wc_l2_initialized soil_wc_l3 soil_wc_l3_initialized sst12 sst12_initialized sea_ice_frac12 sea_ice_frac12_initialized sst_anom sst_anom_initialized flux_solar_in flux_solar_in_initialized flux_ozone_lower flux_ozone_lower_initialized flux_ozone_upper flux_ozone_upper_initialized zenit_correction zenit_correction_initialized stratospheric_correction stratospheric_correction_initialized qcloud_equiv qcloud_equiv_initialized rhcapl rhcapl_initialized cdland cdland_initialized stlcl_obs stlcl_obs_initialized snowdcl_obs snowdcl_obs_initialized soilwcl_obs soilwcl_obs_initialized land_temp land_temp_initialized snow_depth snow_depth_initialized soil_avail_water soil_avail_water_initialized stl_lm stl_lm_initialized fmask_land fmask_land_initialized bmask_land bmask_land_initialized rhcaps rhcaps_initialized rhcapi rhcapi_initialized cdsea cdsea_initialized cdice cdice_initialized fmask_sea fmask_sea_initialized bmask_sea bmask_sea_initialized deglat_s deglat_s_initialized hfseacl hfseacl_initialized sstom12 sstom12_initialized sstcl_ob sstcl_ob_initialized sicecl_ob sicecl_ob_initialized ticecl_ob ticecl_ob_initialized sstan_ob sstan_ob_initialized sstcl_om sstcl_om_initialized sst_am sst_am_initialized sstan_am sstan_am_initialized sice_am sice_am_initialized tice_am tice_am_initialized sst_om sst_om_initialized sice_om sice_om_initialized tice_om tice_om_initialized ssti_om ssti_om_initialized wsst_ob wsst_ob_initialized fband fband_initialized alb_land alb_land_initialized alb_sea alb_sea_initialized alb_surface alb_surface_initialized snowc snowc_initialized rad_flux rad_flux_initialized rad_tau2 rad_tau2_initialized rad_st4a rad_st4a_initialized rad_strat_corr rad_strat_corr_initialized lon lon_initialized lat lat_initialized lev lev_initialized current_step increase_co2 compute_shortwave air_absortivity_co2 land_coupling_flag sst_anomaly_coupling_flag ablco2_ref

Components

TypeVisibility AttributesNameInitial
logical, private :: initialized =.false.
class(ModGeometry_t), private, allocatable:: mod_geometry
logical, private :: mod_geometry_initialized =.false.
class(ModSpectral_t), private, allocatable:: mod_spectral
logical, private :: mod_spectral_initialized =.false.
class(ModImplicit_t), private, allocatable:: mod_implicit
logical, private :: mod_implicit_initialized =.false.
complex(kind=8), private, allocatable, dimension(:, :, :, :):: vor
logical, private :: vor_initialized =.false.
complex(kind=8), private, allocatable, dimension(:, :, :, :):: div
logical, private :: div_initialized =.false.
complex(kind=8), private, allocatable, dimension(:, :, :, :):: t
logical, private :: t_initialized =.false.
complex(kind=8), private, allocatable, dimension(:, :, :):: ps
logical, private :: ps_initialized =.false.
complex(kind=8), private, allocatable, dimension(:, :, :, :, :):: tr
logical, private :: tr_initialized =.false.
complex(kind=8), private, allocatable, dimension(:, :, :):: phi
logical, private :: phi_initialized =.false.
complex(kind=8), private, allocatable, dimension(:, :):: phis
logical, private :: phis_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :, :):: u_grid
logical, private :: u_grid_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :, :):: v_grid
logical, private :: v_grid_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :, :):: t_grid
logical, private :: t_grid_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :, :):: q_grid
logical, private :: q_grid_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :, :):: phi_grid
logical, private :: phi_grid_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: ps_grid
logical, private :: ps_grid_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: precnv
logical, private :: precnv_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: precls
logical, private :: precls_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: snowcv
logical, private :: snowcv_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: snowls
logical, private :: snowls_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: cbmf
logical, private :: cbmf_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: tsr
logical, private :: tsr_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: ssrd
logical, private :: ssrd_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: ssr
logical, private :: ssr_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: slrd
logical, private :: slrd_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: slr
logical, private :: slr_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: olr
logical, private :: olr_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :, :):: slru
logical, private :: slru_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :, :):: ustr
logical, private :: ustr_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :, :):: vstr
logical, private :: vstr_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :, :):: shf
logical, private :: shf_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :, :):: evap
logical, private :: evap_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :, :):: hfluxn
logical, private :: hfluxn_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :, :):: tt_rsw
logical, private :: tt_rsw_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: phi0
logical, private :: phi0_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: orog
logical, private :: orog_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: phis0
logical, private :: phis0_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: alb0
logical, private :: alb0_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: forog
logical, private :: forog_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: fmask_orig
logical, private :: fmask_orig_initialized =.false.
real(kind=8), private, allocatable, dimension(:):: xgeop1
logical, private :: xgeop1_initialized =.false.
real(kind=8), private, allocatable, dimension(:):: xgeop2
logical, private :: xgeop2_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :, :):: stl12
logical, private :: stl12_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :, :):: snowd12
logical, private :: snowd12_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :, :):: soilw12
logical, private :: soilw12_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: veg_low
logical, private :: veg_low_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: veg_high
logical, private :: veg_high_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :, :):: soil_wc_l1
logical, private :: soil_wc_l1_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :, :):: soil_wc_l2
logical, private :: soil_wc_l2_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :, :):: soil_wc_l3
logical, private :: soil_wc_l3_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :, :):: sst12
logical, private :: sst12_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :, :):: sea_ice_frac12
logical, private :: sea_ice_frac12_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :, :):: sst_anom
logical, private :: sst_anom_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: flux_solar_in
logical, private :: flux_solar_in_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: flux_ozone_lower
logical, private :: flux_ozone_lower_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: flux_ozone_upper
logical, private :: flux_ozone_upper_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: zenit_correction
logical, private :: zenit_correction_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: stratospheric_correction
logical, private :: stratospheric_correction_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: qcloud_equiv
logical, private :: qcloud_equiv_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: rhcapl
logical, private :: rhcapl_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: cdland
logical, private :: cdland_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: stlcl_obs
logical, private :: stlcl_obs_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: snowdcl_obs
logical, private :: snowdcl_obs_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: soilwcl_obs
logical, private :: soilwcl_obs_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: land_temp
logical, private :: land_temp_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: snow_depth
logical, private :: snow_depth_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: soil_avail_water
logical, private :: soil_avail_water_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: stl_lm
logical, private :: stl_lm_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: fmask_land
logical, private :: fmask_land_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: bmask_land
logical, private :: bmask_land_initialized =.false.
real(kind=p), private, allocatable, dimension(:, :):: rhcaps
logical, private :: rhcaps_initialized =.false.
real(kind=p), private, allocatable, dimension(:, :):: rhcapi
logical, private :: rhcapi_initialized =.false.
real(kind=p), private, allocatable, dimension(:, :):: cdsea
logical, private :: cdsea_initialized =.false.
real(kind=p), private, allocatable, dimension(:, :):: cdice
logical, private :: cdice_initialized =.false.
real(kind=p), private, allocatable, dimension(:, :):: fmask_sea
logical, private :: fmask_sea_initialized =.false.
real(kind=p), private, allocatable, dimension(:, :):: bmask_sea
logical, private :: bmask_sea_initialized =.false.
real(kind=p), private, allocatable, dimension(:):: deglat_s
logical, private :: deglat_s_initialized =.false.
real(kind=p), private, allocatable, dimension(:, :):: hfseacl
logical, private :: hfseacl_initialized =.false.
real(kind=p), private, allocatable, dimension(:, :, :):: sstom12
logical, private :: sstom12_initialized =.false.
real(kind=p), private, allocatable, dimension(:, :):: sstcl_ob
logical, private :: sstcl_ob_initialized =.false.
real(kind=p), private, allocatable, dimension(:, :):: sicecl_ob
logical, private :: sicecl_ob_initialized =.false.
real(kind=p), private, allocatable, dimension(:, :):: ticecl_ob
logical, private :: ticecl_ob_initialized =.false.
real(kind=p), private, allocatable, dimension(:, :):: sstan_ob
logical, private :: sstan_ob_initialized =.false.
real(kind=p), private, allocatable, dimension(:, :):: sstcl_om
logical, private :: sstcl_om_initialized =.false.
real(kind=p), private, allocatable, dimension(:, :):: sst_am
logical, private :: sst_am_initialized =.false.
real(kind=p), private, allocatable, dimension(:, :):: sstan_am
logical, private :: sstan_am_initialized =.false.
real(kind=p), private, allocatable, dimension(:, :):: sice_am
logical, private :: sice_am_initialized =.false.
real(kind=p), private, allocatable, dimension(:, :):: tice_am
logical, private :: tice_am_initialized =.false.
real(kind=p), private, allocatable, dimension(:, :):: sst_om
logical, private :: sst_om_initialized =.false.
real(kind=p), private, allocatable, dimension(:, :):: sice_om
logical, private :: sice_om_initialized =.false.
real(kind=p), private, allocatable, dimension(:, :):: tice_om
logical, private :: tice_om_initialized =.false.
real(kind=p), private, allocatable, dimension(:, :):: ssti_om
logical, private :: ssti_om_initialized =.false.
real(kind=p), private, allocatable, dimension(:, :):: wsst_ob
logical, private :: wsst_ob_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: fband
logical, private :: fband_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: alb_land
logical, private :: alb_land_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: alb_sea
logical, private :: alb_sea_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: alb_surface
logical, private :: alb_surface_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :):: snowc
logical, private :: snowc_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :, :):: rad_flux
logical, private :: rad_flux_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :, :, :):: rad_tau2
logical, private :: rad_tau2_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :, :, :):: rad_st4a
logical, private :: rad_st4a_initialized =.false.
real(kind=8), private, allocatable, dimension(:, :, :):: rad_strat_corr
logical, private :: rad_strat_corr_initialized =.false.
real, private, allocatable, dimension(:):: lon
logical, private :: lon_initialized =.false.
real, private, allocatable, dimension(:):: lat
logical, private :: lat_initialized =.false.
real, private, allocatable, dimension(:):: lev
logical, private :: lev_initialized =.false.
integer, private :: current_step
logical, private :: increase_co2
logical, private :: compute_shortwave
real(kind=8), private :: air_absortivity_co2
logical, private :: land_coupling_flag
logical, private :: sst_anomaly_coupling_flag
real(kind=8), private :: ablco2_ref