speedy_driver – SPEEDY.f90

Uses

Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Subroutines

init step transform_spectral2grid transform_grid2spectral apply_grid_filter controlparams_init controlparams_close create_datetime get_datetime close_datetime modelstate_init modelstate_init_sst_anom modelstate_close get_vor set_vor get_vor_shape get_div set_div get_div_shape get_t set_t get_t_shape get_ps set_ps get_ps_shape get_tr set_tr get_tr_shape get_phi set_phi get_phi_shape get_phis set_phis get_phis_shape get_u_grid set_u_grid get_u_grid_shape get_v_grid set_v_grid get_v_grid_shape get_t_grid set_t_grid get_t_grid_shape get_q_grid set_q_grid get_q_grid_shape get_phi_grid set_phi_grid get_phi_grid_shape get_ps_grid set_ps_grid get_ps_grid_shape get_precnv set_precnv get_precnv_shape get_precls set_precls get_precls_shape get_snowcv set_snowcv get_snowcv_shape get_snowls set_snowls get_snowls_shape get_cbmf set_cbmf get_cbmf_shape get_tsr set_tsr get_tsr_shape get_ssrd set_ssrd get_ssrd_shape get_ssr set_ssr get_ssr_shape get_slrd set_slrd get_slrd_shape get_slr set_slr get_slr_shape get_olr set_olr get_olr_shape get_slru set_slru get_slru_shape get_ustr set_ustr get_ustr_shape get_vstr set_vstr get_vstr_shape get_shf set_shf get_shf_shape get_evap set_evap get_evap_shape get_hfluxn set_hfluxn get_hfluxn_shape get_tt_rsw set_tt_rsw get_tt_rsw_shape get_phi0 set_phi0 get_phi0_shape get_orog set_orog get_orog_shape get_phis0 set_phis0 get_phis0_shape get_alb0 set_alb0 get_alb0_shape get_forog set_forog get_forog_shape get_fmask_orig set_fmask_orig get_fmask_orig_shape get_xgeop1 set_xgeop1 get_xgeop1_shape get_xgeop2 set_xgeop2 get_xgeop2_shape get_stl12 set_stl12 get_stl12_shape get_snowd12 set_snowd12 get_snowd12_shape get_soilw12 set_soilw12 get_soilw12_shape get_veg_low set_veg_low get_veg_low_shape get_veg_high set_veg_high get_veg_high_shape get_soil_wc_l1 set_soil_wc_l1 get_soil_wc_l1_shape get_soil_wc_l2 set_soil_wc_l2 get_soil_wc_l2_shape get_soil_wc_l3 set_soil_wc_l3 get_soil_wc_l3_shape get_sst12 set_sst12 get_sst12_shape get_sea_ice_frac12 set_sea_ice_frac12 get_sea_ice_frac12_shape get_sst_anom set_sst_anom get_sst_anom_shape get_flux_solar_in set_flux_solar_in get_flux_solar_in_shape get_flux_ozone_lower set_flux_ozone_lower get_flux_ozone_lower_shape get_flux_ozone_upper set_flux_ozone_upper get_flux_ozone_upper_shape get_zenit_correction set_zenit_correction get_zenit_correction_shape get_stratospheric_correction set_stratospheric_correction get_stratospheric_correction_shape get_qcloud_equiv set_qcloud_equiv get_qcloud_equiv_shape get_rhcapl set_rhcapl get_rhcapl_shape get_cdland set_cdland get_cdland_shape get_stlcl_obs set_stlcl_obs get_stlcl_obs_shape get_snowdcl_obs set_snowdcl_obs get_snowdcl_obs_shape get_soilwcl_obs set_soilwcl_obs get_soilwcl_obs_shape get_land_temp set_land_temp get_land_temp_shape get_snow_depth set_snow_depth get_snow_depth_shape get_soil_avail_water set_soil_avail_water get_soil_avail_water_shape get_stl_lm set_stl_lm get_stl_lm_shape get_fmask_land set_fmask_land get_fmask_land_shape get_bmask_land set_bmask_land get_bmask_land_shape get_rhcaps set_rhcaps get_rhcaps_shape get_rhcapi set_rhcapi get_rhcapi_shape get_cdsea set_cdsea get_cdsea_shape get_cdice set_cdice get_cdice_shape get_fmask_sea set_fmask_sea get_fmask_sea_shape get_bmask_sea set_bmask_sea get_bmask_sea_shape get_deglat_s set_deglat_s get_deglat_s_shape get_hfseacl set_hfseacl get_hfseacl_shape get_sstom12 set_sstom12 get_sstom12_shape get_sstcl_ob set_sstcl_ob get_sstcl_ob_shape get_sicecl_ob set_sicecl_ob get_sicecl_ob_shape get_ticecl_ob set_ticecl_ob get_ticecl_ob_shape get_sstan_ob set_sstan_ob get_sstan_ob_shape get_sstcl_om set_sstcl_om get_sstcl_om_shape get_sst_am set_sst_am get_sst_am_shape get_sstan_am set_sstan_am get_sstan_am_shape get_sice_am set_sice_am get_sice_am_shape get_tice_am set_tice_am get_tice_am_shape get_sst_om set_sst_om get_sst_om_shape get_sice_om set_sice_om get_sice_om_shape get_tice_om set_tice_om get_tice_om_shape get_ssti_om set_ssti_om get_ssti_om_shape get_wsst_ob set_wsst_ob get_wsst_ob_shape get_fband set_fband get_fband_shape get_alb_land set_alb_land get_alb_land_shape get_alb_sea set_alb_sea get_alb_sea_shape get_alb_surface set_alb_surface get_alb_surface_shape get_snowc set_snowc get_snowc_shape get_rad_flux set_rad_flux get_rad_flux_shape get_rad_tau2 set_rad_tau2 get_rad_tau2_shape get_rad_st4a set_rad_st4a get_rad_st4a_shape get_rad_strat_corr set_rad_strat_corr get_rad_strat_corr_shape get_lon set_lon get_lon_shape get_lat set_lat get_lat_shape get_lev set_lev get_lev_shape get_current_step set_current_step get_increase_co2 set_increase_co2 get_compute_shortwave set_compute_shortwave get_air_absortivity_co2 set_air_absortivity_co2 get_land_coupling_flag set_land_coupling_flag get_sst_anomaly_coupling_flag set_sst_anomaly_coupling_flag get_ablco2_ref set_ablco2_ref is_array_vor is_array_div is_array_t is_array_ps is_array_tr is_array_phi is_array_phis is_array_u_grid is_array_v_grid is_array_t_grid is_array_q_grid is_array_phi_grid is_array_ps_grid is_array_precnv is_array_precls is_array_snowcv is_array_snowls is_array_cbmf is_array_tsr is_array_ssrd is_array_ssr is_array_slrd is_array_slr is_array_olr is_array_slru is_array_ustr is_array_vstr is_array_shf is_array_evap is_array_hfluxn is_array_tt_rsw is_array_phi0 is_array_orog is_array_phis0 is_array_alb0 is_array_forog is_array_fmask_orig is_array_xgeop1 is_array_xgeop2 is_array_stl12 is_array_snowd12 is_array_soilw12 is_array_veg_low is_array_veg_high is_array_soil_wc_l1 is_array_soil_wc_l2 is_array_soil_wc_l3 is_array_sst12 is_array_sea_ice_frac12 is_array_sst_anom is_array_flux_solar_in is_array_flux_ozone_lower is_array_flux_ozone_upper is_array_zenit_correction is_array_stratospheric_correction is_array_qcloud_equiv is_array_rhcapl is_array_cdland is_array_stlcl_obs is_array_snowdcl_obs is_array_soilwcl_obs is_array_land_temp is_array_snow_depth is_array_soil_avail_water is_array_stl_lm is_array_fmask_land is_array_bmask_land is_array_rhcaps is_array_rhcapi is_array_cdsea is_array_cdice is_array_fmask_sea is_array_bmask_sea is_array_deglat_s is_array_hfseacl is_array_sstom12 is_array_sstcl_ob is_array_sicecl_ob is_array_ticecl_ob is_array_sstan_ob is_array_sstcl_om is_array_sst_am is_array_sstan_am is_array_sice_am is_array_tice_am is_array_sst_om is_array_sice_om is_array_tice_om is_array_ssti_om is_array_wsst_ob is_array_fband is_array_alb_land is_array_alb_sea is_array_alb_surface is_array_snowc is_array_rad_flux is_array_rad_tau2 is_array_rad_st4a is_array_rad_strat_corr is_array_lon is_array_lat is_array_lev is_array_current_step is_array_increase_co2 is_array_compute_shortwave is_array_air_absortivity_co2 is_array_land_coupling_flag is_array_sst_anomaly_coupling_flag is_array_ablco2_ref

Subroutines

public subroutine init(state_container, control_container)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_container
integer(kind=8),	intent(in)			::	control_container

public subroutine step(state_container, control_container, error_code)

Arguments

Type	Intent		Name
integer(kind=8),	intent(in)	::	state_container
integer(kind=8),	intent(in)	::	control_container
integer,	intent(out)	::	error_code

public subroutine transform_spectral2grid(state_container)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_container

public subroutine transform_grid2spectral(state_container)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_container

public subroutine apply_grid_filter(state_container)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_container

public subroutine controlparams_init(control_cnt, start_datetime_cnt, end_datetime_cnt, diag_interval)

Initialize the ControlParams and return the container with the object.

Arguments

Type	Intent		Name
integer(kind=8),	intent(out)	::	control_cnt	Container for the ControlParams_Ptr_t object.
integer(kind=8),	intent(in)	::	start_datetime_cnt
integer(kind=8),	intent(in)	::	end_datetime_cnt
integer,	intent(in)	::	diag_interval

public subroutine controlparams_close(this)

Deallocate the ControlParams

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	this

public subroutine create_datetime(year, month, day, hour, minute, datetime_cnt)

Arguments

Type	Intent		Name
integer,	intent(in)	::	year
integer,	intent(in)	::	month
integer,	intent(in)	::	day
integer,	intent(in)	::	hour
integer,	intent(in)	::	minute
integer(kind=8),	intent(out)	::	datetime_cnt

public subroutine get_datetime(this, year, month, day, hour, minute)

Arguments

Type	Intent		Name
integer(kind=8),	intent(in)	::	this
integer,	intent(out)	::	year
integer,	intent(out)	::	month
integer,	intent(out)	::	day
integer,	intent(out)	::	hour
integer,	intent(out)	::	minute

public subroutine close_datetime(this)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	this

public subroutine modelstate_init(state_cnt)

Initialize the ModelState and return the container with the object.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(out)			::	state_cnt	Container for the ModelState_Ptr_t object.

public subroutine modelstate_init_sst_anom(state_cnt, n_months)

Allocate sst_anom

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt	Container for the ModelState_Ptr_t object.
integer,	intent(in)			::	n_months

public subroutine modelstate_close(state_cnt)

Deallocate the ModelState

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt

public subroutine get_vor(state_cnt, vor_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
complex(kind=8),	intent(out)			::	vor_out(mx,nx,kx,t_levs)	Vorticity

public subroutine set_vor(state_cnt, vor_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
complex(kind=8),	intent(in)			::	vor_in(mx,nx,kx,t_levs)	Vorticity

public subroutine get_vor_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(4)	Vorticity

public subroutine get_div(state_cnt, div_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
complex(kind=8),	intent(out)			::	div_out(mx,nx,kx,t_levs)	Divergence

public subroutine set_div(state_cnt, div_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
complex(kind=8),	intent(in)			::	div_in(mx,nx,kx,t_levs)	Divergence

public subroutine get_div_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(4)	Divergence

public subroutine get_t(state_cnt, t_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
complex(kind=8),	intent(out)			::	t_out(mx,nx,kx,t_levs)	Temperature

public subroutine set_t(state_cnt, t_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
complex(kind=8),	intent(in)			::	t_in(mx,nx,kx,t_levs)	Temperature

public subroutine get_t_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(4)	Temperature

public subroutine get_ps(state_cnt, ps_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
complex(kind=8),	intent(out)			::	ps_out(mx,nx,t_levs)	Log of (normalised) surface pressure

public subroutine set_ps(state_cnt, ps_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
complex(kind=8),	intent(in)			::	ps_in(mx,nx,t_levs)	Log of (normalised) surface pressure

public subroutine get_ps_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(3)	Log of (normalised) surface pressure

public subroutine get_tr(state_cnt, tr_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
complex(kind=8),	intent(out)			::	tr_out(mx,nx,kx,t_levs,ntr)	Tracers (tr(1): specific humidity in g/kg)

public subroutine set_tr(state_cnt, tr_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
complex(kind=8),	intent(in)			::	tr_in(mx,nx,kx,t_levs,ntr)	Tracers (tr(1): specific humidity in g/kg)

public subroutine get_tr_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(5)	Tracers (tr(1): specific humidity in g/kg)

public subroutine get_phi(state_cnt, phi_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
complex(kind=8),	intent(out)			::	phi_out(mx,nx,kx)	Atmospheric geopotential

public subroutine set_phi(state_cnt, phi_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
complex(kind=8),	intent(in)			::	phi_in(mx,nx,kx)	Atmospheric geopotential

public subroutine get_phi_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(3)	Atmospheric geopotential

public subroutine get_phis(state_cnt, phis_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
complex(kind=8),	intent(out)			::	phis_out(mx,nx)	Surface geopotential

public subroutine set_phis(state_cnt, phis_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
complex(kind=8),	intent(in)			::	phis_in(mx,nx)	Surface geopotential

public subroutine get_phis_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Surface geopotential

public subroutine get_u_grid(state_cnt, u_grid_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	u_grid_out(ix,il,kx)	eastward_wind

public subroutine set_u_grid(state_cnt, u_grid_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	u_grid_in(ix,il,kx)	eastward_wind

public subroutine get_u_grid_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(3)	eastward_wind

public subroutine get_v_grid(state_cnt, v_grid_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	v_grid_out(ix,il,kx)	northward_wind

public subroutine set_v_grid(state_cnt, v_grid_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	v_grid_in(ix,il,kx)	northward_wind

public subroutine get_v_grid_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(3)	northward_wind

public subroutine get_t_grid(state_cnt, t_grid_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	t_grid_out(ix,il,kx)	air_temperature

public subroutine set_t_grid(state_cnt, t_grid_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	t_grid_in(ix,il,kx)	air_temperature

public subroutine get_t_grid_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(3)	air_temperature

public subroutine get_q_grid(state_cnt, q_grid_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	q_grid_out(ix,il,kx)	specific_humidity

public subroutine set_q_grid(state_cnt, q_grid_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	q_grid_in(ix,il,kx)	specific_humidity

public subroutine get_q_grid_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(3)	specific_humidity

public subroutine get_phi_grid(state_cnt, phi_grid_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	phi_grid_out(ix,il,kx)	geopotential_height

public subroutine set_phi_grid(state_cnt, phi_grid_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	phi_grid_in(ix,il,kx)	geopotential_height

public subroutine get_phi_grid_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(3)	geopotential_height

public subroutine get_ps_grid(state_cnt, ps_grid_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	ps_grid_out(ix,il)	surface_air_pressure

public subroutine set_ps_grid(state_cnt, ps_grid_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	ps_grid_in(ix,il)	surface_air_pressure

public subroutine get_ps_grid_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	surface_air_pressure

public subroutine get_precnv(state_cnt, precnv_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	precnv_out(ix,il)	Convective precipitation, total

public subroutine set_precnv(state_cnt, precnv_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	precnv_in(ix,il)	Convective precipitation, total

public subroutine get_precnv_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Convective precipitation, total

public subroutine get_precls(state_cnt, precls_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	precls_out(ix,il)	Large-scale precipitation, total

public subroutine set_precls(state_cnt, precls_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	precls_in(ix,il)	Large-scale precipitation, total

public subroutine get_precls_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Large-scale precipitation, total

public subroutine get_snowcv(state_cnt, snowcv_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	snowcv_out(ix,il)	Convective precipitation, snow only

public subroutine set_snowcv(state_cnt, snowcv_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	snowcv_in(ix,il)	Convective precipitation, snow only

public subroutine get_snowcv_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Convective precipitation, snow only

public subroutine get_snowls(state_cnt, snowls_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	snowls_out(ix,il)	Large-scale precipitation, snow only

public subroutine set_snowls(state_cnt, snowls_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	snowls_in(ix,il)	Large-scale precipitation, snow only

public subroutine get_snowls_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Large-scale precipitation, snow only

public subroutine get_cbmf(state_cnt, cbmf_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	cbmf_out(ix,il)	Cloud-base mass flux

public subroutine set_cbmf(state_cnt, cbmf_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	cbmf_in(ix,il)	Cloud-base mass flux

public subroutine get_cbmf_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Cloud-base mass flux

public subroutine get_tsr(state_cnt, tsr_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	tsr_out(ix,il)	Top-of-atmosphere shortwave radiation (downward)

public subroutine set_tsr(state_cnt, tsr_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	tsr_in(ix,il)	Top-of-atmosphere shortwave radiation (downward)

public subroutine get_tsr_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Top-of-atmosphere shortwave radiation (downward)

public subroutine get_ssrd(state_cnt, ssrd_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	ssrd_out(ix,il)	Surface shortwave radiation (downward-only)

public subroutine set_ssrd(state_cnt, ssrd_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	ssrd_in(ix,il)	Surface shortwave radiation (downward-only)

public subroutine get_ssrd_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Surface shortwave radiation (downward-only)

public subroutine get_ssr(state_cnt, ssr_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	ssr_out(ix,il)	Surface shortwave radiation (net downward)

public subroutine set_ssr(state_cnt, ssr_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	ssr_in(ix,il)	Surface shortwave radiation (net downward)

public subroutine get_ssr_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Surface shortwave radiation (net downward)

public subroutine get_slrd(state_cnt, slrd_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	slrd_out(ix,il)	Surface longwave radiation (downward-only)

public subroutine set_slrd(state_cnt, slrd_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	slrd_in(ix,il)	Surface longwave radiation (downward-only)

public subroutine get_slrd_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Surface longwave radiation (downward-only)

public subroutine get_slr(state_cnt, slr_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	slr_out(ix,il)	Surface longwave radiation (net upward)

public subroutine set_slr(state_cnt, slr_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	slr_in(ix,il)	Surface longwave radiation (net upward)

public subroutine get_slr_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Surface longwave radiation (net upward)

public subroutine get_olr(state_cnt, olr_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	olr_out(ix,il)	Outgoing longwave radiation (upward)

public subroutine set_olr(state_cnt, olr_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	olr_in(ix,il)	Outgoing longwave radiation (upward)

public subroutine get_olr_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Outgoing longwave radiation (upward)

public subroutine get_slru(state_cnt, slru_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	slru_out(ix,il,aux_dim)	Surface longwave emission (upward)

public subroutine set_slru(state_cnt, slru_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	slru_in(ix,il,aux_dim)	Surface longwave emission (upward)

public subroutine get_slru_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(3)	Surface longwave emission (upward)

public subroutine get_ustr(state_cnt, ustr_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	ustr_out(ix,il,aux_dim)	U-stress

public subroutine set_ustr(state_cnt, ustr_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	ustr_in(ix,il,aux_dim)	U-stress

public subroutine get_ustr_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(3)	U-stress

public subroutine get_vstr(state_cnt, vstr_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	vstr_out(ix,il,aux_dim)	Vstress

public subroutine set_vstr(state_cnt, vstr_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	vstr_in(ix,il,aux_dim)	Vstress

public subroutine get_vstr_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(3)	Vstress

public subroutine get_shf(state_cnt, shf_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	shf_out(ix,il,aux_dim)	Sensible heat flux

public subroutine set_shf(state_cnt, shf_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	shf_in(ix,il,aux_dim)	Sensible heat flux

public subroutine get_shf_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(3)	Sensible heat flux

public subroutine get_evap(state_cnt, evap_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	evap_out(ix,il,aux_dim)	Evaporation

public subroutine set_evap(state_cnt, evap_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	evap_in(ix,il,aux_dim)	Evaporation

public subroutine get_evap_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(3)	Evaporation

public subroutine get_hfluxn(state_cnt, hfluxn_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	hfluxn_out(ix,il,aux_dim)	Net heat flux into surface

public subroutine set_hfluxn(state_cnt, hfluxn_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	hfluxn_in(ix,il,aux_dim)	Net heat flux into surface

public subroutine get_hfluxn_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(3)	Net heat flux into surface

public subroutine get_tt_rsw(state_cnt, tt_rsw_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	tt_rsw_out(ix,il,kx)	Flux of short-wave radiation absorbed in each atmospheric layer

public subroutine set_tt_rsw(state_cnt, tt_rsw_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	tt_rsw_in(ix,il,kx)	Flux of short-wave radiation absorbed in each atmospheric layer

public subroutine get_tt_rsw_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(3)	Flux of short-wave radiation absorbed in each atmospheric layer

public subroutine get_phi0(state_cnt, phi0_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	phi0_out(ix,il)	Unfiltered surface geopotential

public subroutine set_phi0(state_cnt, phi0_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	phi0_in(ix,il)	Unfiltered surface geopotential

public subroutine get_phi0_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Unfiltered surface geopotential

public subroutine get_orog(state_cnt, orog_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	orog_out(ix,il)	Orography

public subroutine set_orog(state_cnt, orog_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	orog_in(ix,il)	Orography

public subroutine get_orog_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Orography

public subroutine get_phis0(state_cnt, phis0_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	phis0_out(ix,il)	Spectrally-filtered surface geopotential

public subroutine set_phis0(state_cnt, phis0_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	phis0_in(ix,il)	Spectrally-filtered surface geopotential

public subroutine get_phis0_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Spectrally-filtered surface geopotential

public subroutine get_alb0(state_cnt, alb0_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	alb0_out(ix,il)	Bare-land annual-mean albedo

public subroutine set_alb0(state_cnt, alb0_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	alb0_in(ix,il)	Bare-land annual-mean albedo

public subroutine get_alb0_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Bare-land annual-mean albedo

public subroutine get_forog(state_cnt, forog_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	forog_out(ix,il)	Orographic factor for land surface drag

public subroutine set_forog(state_cnt, forog_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	forog_in(ix,il)	Orographic factor for land surface drag

public subroutine get_forog_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Orographic factor for land surface drag

public subroutine get_fmask_orig(state_cnt, fmask_orig_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	fmask_orig_out(ix,il)	Original (fractional) land-sea mask

public subroutine set_fmask_orig(state_cnt, fmask_orig_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	fmask_orig_in(ix,il)	Original (fractional) land-sea mask

public subroutine get_fmask_orig_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Original (fractional) land-sea mask

public subroutine get_xgeop1(state_cnt, xgeop1_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	xgeop1_out(kx)	Constant 1 for hydrostatic equation

public subroutine set_xgeop1(state_cnt, xgeop1_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	xgeop1_in(kx)	Constant 1 for hydrostatic equation

public subroutine get_xgeop1_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(1)	Constant 1 for hydrostatic equation

public subroutine get_xgeop2(state_cnt, xgeop2_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	xgeop2_out(kx)	Constant 2 for hydrostatic equation

public subroutine set_xgeop2(state_cnt, xgeop2_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	xgeop2_in(kx)	Constant 2 for hydrostatic equation

public subroutine get_xgeop2_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(1)	Constant 2 for hydrostatic equation

public subroutine get_stl12(state_cnt, stl12_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	stl12_out(ix,il,12)	Land surface temperature monthly-mean climatology

public subroutine set_stl12(state_cnt, stl12_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	stl12_in(ix,il,12)	Land surface temperature monthly-mean climatology

public subroutine get_stl12_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(3)	Land surface temperature monthly-mean climatology

public subroutine get_snowd12(state_cnt, snowd12_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	snowd12_out(ix,il,12)	Snow depth (water equivalent) monthly-mean climatology

public subroutine set_snowd12(state_cnt, snowd12_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	snowd12_in(ix,il,12)	Snow depth (water equivalent) monthly-mean climatology

public subroutine get_snowd12_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(3)	Snow depth (water equivalent) monthly-mean climatology

public subroutine get_soilw12(state_cnt, soilw12_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	soilw12_out(ix,il,12)	Soil water availability monthly-mean climatology

public subroutine set_soilw12(state_cnt, soilw12_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	soilw12_in(ix,il,12)	Soil water availability monthly-mean climatology

public subroutine get_soilw12_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(3)	Soil water availability monthly-mean climatology

public subroutine get_veg_low(state_cnt, veg_low_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	veg_low_out(ix,il)	Low vegetation fraction

public subroutine set_veg_low(state_cnt, veg_low_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	veg_low_in(ix,il)	Low vegetation fraction

public subroutine get_veg_low_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Low vegetation fraction

public subroutine get_veg_high(state_cnt, veg_high_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	veg_high_out(ix,il)	High vegetation fraction

public subroutine set_veg_high(state_cnt, veg_high_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	veg_high_in(ix,il)	High vegetation fraction

public subroutine get_veg_high_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	High vegetation fraction

public subroutine get_soil_wc_l1(state_cnt, soil_wc_l1_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	soil_wc_l1_out(ix,il,12)	Soil water content: Layer 1

public subroutine set_soil_wc_l1(state_cnt, soil_wc_l1_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	soil_wc_l1_in(ix,il,12)	Soil water content: Layer 1

public subroutine get_soil_wc_l1_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(3)	Soil water content: Layer 1

public subroutine get_soil_wc_l2(state_cnt, soil_wc_l2_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	soil_wc_l2_out(ix,il,12)	Soil water content: Layer 2

public subroutine set_soil_wc_l2(state_cnt, soil_wc_l2_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	soil_wc_l2_in(ix,il,12)	Soil water content: Layer 2

public subroutine get_soil_wc_l2_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(3)	Soil water content: Layer 2

public subroutine get_soil_wc_l3(state_cnt, soil_wc_l3_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	soil_wc_l3_out(ix,il,12)	Soil water content: Layer 3

public subroutine set_soil_wc_l3(state_cnt, soil_wc_l3_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	soil_wc_l3_in(ix,il,12)	Soil water content: Layer 3

public subroutine get_soil_wc_l3_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(3)	Soil water content: Layer 3

public subroutine get_sst12(state_cnt, sst12_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	sst12_out(ix,il,12)	Sea/ice surface temperature

public subroutine set_sst12(state_cnt, sst12_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	sst12_in(ix,il,12)	Sea/ice surface temperature

public subroutine get_sst12_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(3)	Sea/ice surface temperature

public subroutine get_sea_ice_frac12(state_cnt, sea_ice_frac12_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	sea_ice_frac12_out(ix,il,12)	Sea ice fraction

public subroutine set_sea_ice_frac12(state_cnt, sea_ice_frac12_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	sea_ice_frac12_in(ix,il,12)	Sea ice fraction

public subroutine get_sea_ice_frac12_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(3)	Sea ice fraction

public subroutine get_sst_anom(state_cnt, sst_anom_out, n_months)

Arguments

Type	Intent		Name
integer(kind=8),	intent(in)	::	state_cnt
real(kind=8),	intent(out)	::	sst_anom_out(ix,il,0:n_months+1)	Observed SST anomaly (input).
integer,	intent(in)	::	n_months

public subroutine set_sst_anom(state_cnt, sst_anom_in, n_months)

Arguments

Type	Intent		Name
integer(kind=8),	intent(in)	::	state_cnt
real(kind=8),	intent(in)	::	sst_anom_in(ix,il,0:n_months+1)	Observed SST anomaly (input).
integer,	intent(in)	::	n_months

public subroutine get_sst_anom_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(3)	Observed SST anomaly (input).

public subroutine get_flux_solar_in(state_cnt, flux_solar_in_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	flux_solar_in_out(ix,il)	Flux of incoming solar radiation

public subroutine set_flux_solar_in(state_cnt, flux_solar_in_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	flux_solar_in_in(ix,il)	Flux of incoming solar radiation

public subroutine get_flux_solar_in_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Flux of incoming solar radiation

public subroutine get_flux_ozone_lower(state_cnt, flux_ozone_lower_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	flux_ozone_lower_out(ix,il)	Flux absorbed by ozone (lower stratosphere)

public subroutine set_flux_ozone_lower(state_cnt, flux_ozone_lower_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	flux_ozone_lower_in(ix,il)	Flux absorbed by ozone (lower stratosphere)

public subroutine get_flux_ozone_lower_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Flux absorbed by ozone (lower stratosphere)

public subroutine get_flux_ozone_upper(state_cnt, flux_ozone_upper_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	flux_ozone_upper_out(ix,il)	Flux absorbed by ozone (upper stratosphere)

public subroutine set_flux_ozone_upper(state_cnt, flux_ozone_upper_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	flux_ozone_upper_in(ix,il)	Flux absorbed by ozone (upper stratosphere)

public subroutine get_flux_ozone_upper_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Flux absorbed by ozone (upper stratosphere)

public subroutine get_zenit_correction(state_cnt, zenit_correction_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	zenit_correction_out(ix,il)	Zenith angle correction to (downward) absorptivity

public subroutine set_zenit_correction(state_cnt, zenit_correction_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	zenit_correction_in(ix,il)	Zenith angle correction to (downward) absorptivity

public subroutine get_zenit_correction_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Zenith angle correction to (downward) absorptivity

public subroutine get_stratospheric_correction(state_cnt, stratospheric_correction_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	stratospheric_correction_out(ix,il)	Stratospheric correction for polar night

public subroutine set_stratospheric_correction(state_cnt, stratospheric_correction_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	stratospheric_correction_in(ix,il)	Stratospheric correction for polar night

public subroutine get_stratospheric_correction_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Stratospheric correction for polar night

public subroutine get_qcloud_equiv(state_cnt, qcloud_equiv_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	qcloud_equiv_out(ix,il)	Equivalent specific humidity of clouds

public subroutine set_qcloud_equiv(state_cnt, qcloud_equiv_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	qcloud_equiv_in(ix,il)	Equivalent specific humidity of clouds

public subroutine get_qcloud_equiv_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Equivalent specific humidity of clouds

public subroutine get_rhcapl(state_cnt, rhcapl_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	rhcapl_out(ix,il)	1/heat capacity (land)

public subroutine set_rhcapl(state_cnt, rhcapl_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	rhcapl_in(ix,il)	1/heat capacity (land)

public subroutine get_rhcapl_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	1/heat capacity (land)

public subroutine get_cdland(state_cnt, cdland_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	cdland_out(ix,il)	1/dissipation time (land)

public subroutine set_cdland(state_cnt, cdland_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	cdland_in(ix,il)	1/dissipation time (land)

public subroutine get_cdland_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	1/dissipation time (land)

public subroutine get_stlcl_obs(state_cnt, stlcl_obs_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	stlcl_obs_out(ix,il)	Climatological land surface temperature

public subroutine set_stlcl_obs(state_cnt, stlcl_obs_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	stlcl_obs_in(ix,il)	Climatological land surface temperature

public subroutine get_stlcl_obs_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Climatological land surface temperature

public subroutine get_snowdcl_obs(state_cnt, snowdcl_obs_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	snowdcl_obs_out(ix,il)	Climatological snow depth (water equivalent)

public subroutine set_snowdcl_obs(state_cnt, snowdcl_obs_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	snowdcl_obs_in(ix,il)	Climatological snow depth (water equivalent)

public subroutine get_snowdcl_obs_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Climatological snow depth (water equivalent)

public subroutine get_soilwcl_obs(state_cnt, soilwcl_obs_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	soilwcl_obs_out(ix,il)	Climatological soil water availability

public subroutine set_soilwcl_obs(state_cnt, soilwcl_obs_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	soilwcl_obs_in(ix,il)	Climatological soil water availability

public subroutine get_soilwcl_obs_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Climatological soil water availability

public subroutine get_land_temp(state_cnt, land_temp_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	land_temp_out(ix,il)	Land surface temperature

public subroutine set_land_temp(state_cnt, land_temp_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	land_temp_in(ix,il)	Land surface temperature

public subroutine get_land_temp_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Land surface temperature

public subroutine get_snow_depth(state_cnt, snow_depth_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	snow_depth_out(ix,il)	Snow depth (water equivalent)

public subroutine set_snow_depth(state_cnt, snow_depth_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	snow_depth_in(ix,il)	Snow depth (water equivalent)

public subroutine get_snow_depth_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Snow depth (water equivalent)

public subroutine get_soil_avail_water(state_cnt, soil_avail_water_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	soil_avail_water_out(ix,il)	Soil water availability

public subroutine set_soil_avail_water(state_cnt, soil_avail_water_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	soil_avail_water_in(ix,il)	Soil water availability

public subroutine get_soil_avail_water_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Soil water availability

public subroutine get_stl_lm(state_cnt, stl_lm_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	stl_lm_out(ix,il)	Land-model surface temperature

public subroutine set_stl_lm(state_cnt, stl_lm_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	stl_lm_in(ix,il)	Land-model surface temperature

public subroutine get_stl_lm_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Land-model surface temperature

public subroutine get_fmask_land(state_cnt, fmask_land_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	fmask_land_out(ix,il)	Fraction of land

public subroutine set_fmask_land(state_cnt, fmask_land_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	fmask_land_in(ix,il)	Fraction of land

public subroutine get_fmask_land_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Fraction of land

public subroutine get_bmask_land(state_cnt, bmask_land_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	bmask_land_out(ix,il)	Binary land mask

public subroutine set_bmask_land(state_cnt, bmask_land_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	bmask_land_in(ix,il)	Binary land mask

public subroutine get_bmask_land_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Binary land mask

public subroutine get_rhcaps(state_cnt, rhcaps_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(out)			::	rhcaps_out(ix,il)	1./heat_capacity (sea)

public subroutine set_rhcaps(state_cnt, rhcaps_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(in)			::	rhcaps_in(ix,il)	1./heat_capacity (sea)

public subroutine get_rhcaps_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	1./heat_capacity (sea)

public subroutine get_rhcapi(state_cnt, rhcapi_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(out)			::	rhcapi_out(ix,il)	1./heat_capacity (ice)

public subroutine set_rhcapi(state_cnt, rhcapi_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(in)			::	rhcapi_in(ix,il)	1./heat_capacity (ice)

public subroutine get_rhcapi_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	1./heat_capacity (ice)

public subroutine get_cdsea(state_cnt, cdsea_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(out)			::	cdsea_out(ix,il)	1./dissip_time (sea)

public subroutine set_cdsea(state_cnt, cdsea_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(in)			::	cdsea_in(ix,il)	1./dissip_time (sea)

public subroutine get_cdsea_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	1./dissip_time (sea)

public subroutine get_cdice(state_cnt, cdice_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(out)			::	cdice_out(ix,il)	1./dissip_time (ice)

public subroutine set_cdice(state_cnt, cdice_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(in)			::	cdice_in(ix,il)	1./dissip_time (ice)

public subroutine get_cdice_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	1./dissip_time (ice)

public subroutine get_fmask_sea(state_cnt, fmask_sea_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(out)			::	fmask_sea_out(ix,il)	Fraction of sea

public subroutine set_fmask_sea(state_cnt, fmask_sea_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(in)			::	fmask_sea_in(ix,il)	Fraction of sea

public subroutine get_fmask_sea_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Fraction of sea

public subroutine get_bmask_sea(state_cnt, bmask_sea_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(out)			::	bmask_sea_out(ix,il)	Binary sea mask

public subroutine set_bmask_sea(state_cnt, bmask_sea_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(in)			::	bmask_sea_in(ix,il)	Binary sea mask

public subroutine get_bmask_sea_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Binary sea mask

public subroutine get_deglat_s(state_cnt, deglat_s_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(out)			::	deglat_s_out(il)	Grid latitudes

public subroutine set_deglat_s(state_cnt, deglat_s_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(in)			::	deglat_s_in(il)	Grid latitudes

public subroutine get_deglat_s_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(1)	Grid latitudes

public subroutine get_hfseacl(state_cnt, hfseacl_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(out)			::	hfseacl_out(ix,il)	Annual-mean heat flux into sea sfc.

public subroutine set_hfseacl(state_cnt, hfseacl_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(in)			::	hfseacl_in(ix,il)	Annual-mean heat flux into sea sfc.

public subroutine get_hfseacl_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Annual-mean heat flux into sea sfc.

public subroutine get_sstom12(state_cnt, sstom12_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(out)			::	sstom12_out(ix,il,12)	Ocean model SST climatology

public subroutine set_sstom12(state_cnt, sstom12_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(in)			::	sstom12_in(ix,il,12)	Ocean model SST climatology

public subroutine get_sstom12_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(3)	Ocean model SST climatology

public subroutine get_sstcl_ob(state_cnt, sstcl_ob_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(out)			::	sstcl_ob_out(ix,il)	Observed clim. SST

public subroutine set_sstcl_ob(state_cnt, sstcl_ob_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(in)			::	sstcl_ob_in(ix,il)	Observed clim. SST

public subroutine get_sstcl_ob_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Observed clim. SST

public subroutine get_sicecl_ob(state_cnt, sicecl_ob_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(out)			::	sicecl_ob_out(ix,il)	Clim. sea ice fraction

public subroutine set_sicecl_ob(state_cnt, sicecl_ob_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(in)			::	sicecl_ob_in(ix,il)	Clim. sea ice fraction

public subroutine get_sicecl_ob_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Clim. sea ice fraction

public subroutine get_ticecl_ob(state_cnt, ticecl_ob_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(out)			::	ticecl_ob_out(ix,il)	Clim. sea ice temperature

public subroutine set_ticecl_ob(state_cnt, ticecl_ob_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(in)			::	ticecl_ob_in(ix,il)	Clim. sea ice temperature

public subroutine get_ticecl_ob_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Clim. sea ice temperature

public subroutine get_sstan_ob(state_cnt, sstan_ob_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(out)			::	sstan_ob_out(ix,il)	Daily observed SST anomaly

public subroutine set_sstan_ob(state_cnt, sstan_ob_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(in)			::	sstan_ob_in(ix,il)	Daily observed SST anomaly

public subroutine get_sstan_ob_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Daily observed SST anomaly

public subroutine get_sstcl_om(state_cnt, sstcl_om_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(out)			::	sstcl_om_out(ix,il)	Ocean model clim. SST

public subroutine set_sstcl_om(state_cnt, sstcl_om_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(in)			::	sstcl_om_in(ix,il)	Ocean model clim. SST

public subroutine get_sstcl_om_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Ocean model clim. SST

public subroutine get_sst_am(state_cnt, sst_am_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(out)			::	sst_am_out(ix,il)	SST (full-field)

public subroutine set_sst_am(state_cnt, sst_am_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(in)			::	sst_am_in(ix,il)	SST (full-field)

public subroutine get_sst_am_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	SST (full-field)

public subroutine get_sstan_am(state_cnt, sstan_am_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(out)			::	sstan_am_out(ix,il)	SST anomaly

public subroutine set_sstan_am(state_cnt, sstan_am_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(in)			::	sstan_am_in(ix,il)	SST anomaly

public subroutine get_sstan_am_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	SST anomaly

public subroutine get_sice_am(state_cnt, sice_am_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(out)			::	sice_am_out(ix,il)	Sea ice fraction

public subroutine set_sice_am(state_cnt, sice_am_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(in)			::	sice_am_in(ix,il)	Sea ice fraction

public subroutine get_sice_am_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Sea ice fraction

public subroutine get_tice_am(state_cnt, tice_am_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(out)			::	tice_am_out(ix,il)	Sea ice temperature

public subroutine set_tice_am(state_cnt, tice_am_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(in)			::	tice_am_in(ix,il)	Sea ice temperature

public subroutine get_tice_am_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Sea ice temperature

public subroutine get_sst_om(state_cnt, sst_om_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(out)			::	sst_om_out(ix,il)	Ocean model SST

public subroutine set_sst_om(state_cnt, sst_om_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(in)			::	sst_om_in(ix,il)	Ocean model SST

public subroutine get_sst_om_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Ocean model SST

public subroutine get_sice_om(state_cnt, sice_om_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(out)			::	sice_om_out(ix,il)	Model sea ice fraction

public subroutine set_sice_om(state_cnt, sice_om_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(in)			::	sice_om_in(ix,il)	Model sea ice fraction

public subroutine get_sice_om_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Model sea ice fraction

public subroutine get_tice_om(state_cnt, tice_om_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(out)			::	tice_om_out(ix,il)	Model sea ice temperature

public subroutine set_tice_om(state_cnt, tice_om_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(in)			::	tice_om_in(ix,il)	Model sea ice temperature

public subroutine get_tice_om_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Model sea ice temperature

public subroutine get_ssti_om(state_cnt, ssti_om_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(out)			::	ssti_om_out(ix,il)	Model SST + sea ice temp.

public subroutine set_ssti_om(state_cnt, ssti_om_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(in)			::	ssti_om_in(ix,il)	Model SST + sea ice temp.

public subroutine get_ssti_om_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Model SST + sea ice temp.

public subroutine get_wsst_ob(state_cnt, wsst_ob_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(out)			::	wsst_ob_out(ix,il)	Weight for obs. SST anomaly in coupled runs

public subroutine set_wsst_ob(state_cnt, wsst_ob_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=p),	intent(in)			::	wsst_ob_in(ix,il)	Weight for obs. SST anomaly in coupled runs

public subroutine get_wsst_ob_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Weight for obs. SST anomaly in coupled runs

public subroutine get_fband(state_cnt, fband_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	fband_out(100:400,4)	Energy fraction emitted in each LW band = f(T)

public subroutine set_fband(state_cnt, fband_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	fband_in(100:400,4)	Energy fraction emitted in each LW band = f(T)

public subroutine get_fband_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Energy fraction emitted in each LW band = f(T)

public subroutine get_alb_land(state_cnt, alb_land_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	alb_land_out(ix,il)	Daily-mean albedo over land (bare-land + snow)

public subroutine set_alb_land(state_cnt, alb_land_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	alb_land_in(ix,il)	Daily-mean albedo over land (bare-land + snow)

public subroutine get_alb_land_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Daily-mean albedo over land (bare-land + snow)

public subroutine get_alb_sea(state_cnt, alb_sea_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	alb_sea_out(ix,il)	Daily-mean albedo over sea (open sea + sea ice)

public subroutine set_alb_sea(state_cnt, alb_sea_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	alb_sea_in(ix,il)	Daily-mean albedo over sea (open sea + sea ice)

public subroutine get_alb_sea_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Daily-mean albedo over sea (open sea + sea ice)

public subroutine get_alb_surface(state_cnt, alb_surface_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	alb_surface_out(ix,il)	Combined surface albedo (land + sea)

public subroutine set_alb_surface(state_cnt, alb_surface_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	alb_surface_in(ix,il)	Combined surface albedo (land + sea)

public subroutine get_alb_surface_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Combined surface albedo (land + sea)

public subroutine get_snowc(state_cnt, snowc_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	snowc_out(ix,il)	Effective snow cover (fraction)

public subroutine set_snowc(state_cnt, snowc_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	snowc_in(ix,il)	Effective snow cover (fraction)

public subroutine get_snowc_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(2)	Effective snow cover (fraction)

public subroutine get_rad_flux(state_cnt, rad_flux_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	rad_flux_out(ix,il,4)	Radiative flux in different spectral bands

public subroutine set_rad_flux(state_cnt, rad_flux_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	rad_flux_in(ix,il,4)	Radiative flux in different spectral bands

public subroutine get_rad_flux_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(3)	Radiative flux in different spectral bands

public subroutine get_rad_tau2(state_cnt, rad_tau2_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	rad_tau2_out(ix,il,kx,4)	Transmissivity of atmospheric layers

public subroutine set_rad_tau2(state_cnt, rad_tau2_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	rad_tau2_in(ix,il,kx,4)	Transmissivity of atmospheric layers

public subroutine get_rad_tau2_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(4)	Transmissivity of atmospheric layers

public subroutine get_rad_st4a(state_cnt, rad_st4a_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	rad_st4a_out(ix,il,kx,2)	Blackbody emission from full and half atmospheric levels

public subroutine set_rad_st4a(state_cnt, rad_st4a_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	rad_st4a_in(ix,il,kx,2)	Blackbody emission from full and half atmospheric levels

public subroutine get_rad_st4a_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(4)	Blackbody emission from full and half atmospheric levels

public subroutine get_rad_strat_corr(state_cnt, rad_strat_corr_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	rad_strat_corr_out(ix,il,2)	Stratospheric correction term

public subroutine set_rad_strat_corr(state_cnt, rad_strat_corr_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	rad_strat_corr_in(ix,il,2)	Stratospheric correction term

public subroutine get_rad_strat_corr_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(3)	Stratospheric correction term

public subroutine get_lon(state_cnt, lon_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real,	intent(out)			::	lon_out(ix)	longitude

public subroutine set_lon(state_cnt, lon_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real,	intent(in)			::	lon_in(ix)	longitude

public subroutine get_lon_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(1)	longitude

public subroutine get_lat(state_cnt, lat_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real,	intent(out)			::	lat_out(il)	latitude

public subroutine set_lat(state_cnt, lat_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real,	intent(in)			::	lat_in(il)	latitude

public subroutine get_lat_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(1)	latitude

public subroutine get_lev(state_cnt, lev_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real,	intent(out)			::	lev_out(kx)	Vertical sigma coordinate

public subroutine set_lev(state_cnt, lev_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real,	intent(in)			::	lev_in(kx)	Vertical sigma coordinate

public subroutine get_lev_shape(state_cnt, array_shape)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	array_shape(1)	Vertical sigma coordinate

public subroutine get_current_step(state_cnt, current_step_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(out)			::	current_step_out	Current model step.

public subroutine set_current_step(state_cnt, current_step_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
integer,	intent(in)			::	current_step_in	Current model step.

public subroutine get_increase_co2(state_cnt, increase_co2_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
logical,	intent(out)			::	increase_co2_out	Flag for CO2 optical thickness increase

public subroutine set_increase_co2(state_cnt, increase_co2_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
logical,	intent(in)			::	increase_co2_in	Flag for CO2 optical thickness increase

public subroutine get_compute_shortwave(state_cnt, compute_shortwave_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
logical,	intent(out)			::	compute_shortwave_out	Flag for shortwave radiation routine (turned on and off in main loop depending on the value of nstrad)

public subroutine set_compute_shortwave(state_cnt, compute_shortwave_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
logical,	intent(in)			::	compute_shortwave_in	Flag for shortwave radiation routine (turned on and off in main loop depending on the value of nstrad)

public subroutine get_air_absortivity_co2(state_cnt, air_absortivity_co2_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	air_absortivity_co2_out	Absorptivity of air in CO2 band

public subroutine set_air_absortivity_co2(state_cnt, air_absortivity_co2_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	air_absortivity_co2_in	Absorptivity of air in CO2 band

public subroutine get_land_coupling_flag(state_cnt, land_coupling_flag_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
logical,	intent(out)			::	land_coupling_flag_out	Flag for land-coupling (0: off, 1: on)

public subroutine set_land_coupling_flag(state_cnt, land_coupling_flag_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
logical,	intent(in)			::	land_coupling_flag_in	Flag for land-coupling (0: off, 1: on)

public subroutine get_sst_anomaly_coupling_flag(state_cnt, sst_anomaly_coupling_flag_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
logical,	intent(out)			::	sst_anomaly_coupling_flag_out	Weight for obs. SST anomaly in coupled runs

public subroutine set_sst_anomaly_coupling_flag(state_cnt, sst_anomaly_coupling_flag_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
logical,	intent(in)			::	sst_anomaly_coupling_flag_in	Weight for obs. SST anomaly in coupled runs

public subroutine get_ablco2_ref(state_cnt, ablco2_ref_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(out)			::	ablco2_ref_out	Initial absorptivity of air in CO2 band (t=t0)

public subroutine set_ablco2_ref(state_cnt, ablco2_ref_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=8),	intent(in)			::	state_cnt
real(kind=8),	intent(in)			::	ablco2_ref_in	Initial absorptivity of air in CO2 band (t=t0)

public subroutine is_array_vor(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_div(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_t(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_ps(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_tr(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_phi(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_phis(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_u_grid(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_v_grid(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_t_grid(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_q_grid(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_phi_grid(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_ps_grid(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_precnv(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_precls(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_snowcv(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_snowls(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_cbmf(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_tsr(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_ssrd(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_ssr(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_slrd(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_slr(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_olr(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_slru(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_ustr(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_vstr(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_shf(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_evap(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_hfluxn(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_tt_rsw(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_phi0(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_orog(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_phis0(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_alb0(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_forog(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_fmask_orig(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_xgeop1(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_xgeop2(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_stl12(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_snowd12(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_soilw12(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_veg_low(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_veg_high(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_soil_wc_l1(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_soil_wc_l2(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_soil_wc_l3(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_sst12(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_sea_ice_frac12(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_sst_anom(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_flux_solar_in(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_flux_ozone_lower(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_flux_ozone_upper(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_zenit_correction(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_stratospheric_correction(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_qcloud_equiv(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_rhcapl(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_cdland(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_stlcl_obs(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_snowdcl_obs(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_soilwcl_obs(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_land_temp(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_snow_depth(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_soil_avail_water(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_stl_lm(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_fmask_land(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_bmask_land(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_rhcaps(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_rhcapi(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_cdsea(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_cdice(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_fmask_sea(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_bmask_sea(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_deglat_s(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_hfseacl(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_sstom12(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_sstcl_ob(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_sicecl_ob(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_ticecl_ob(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_sstan_ob(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_sstcl_om(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_sst_am(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_sstan_am(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_sice_am(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_tice_am(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_sst_om(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_sice_om(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_tice_om(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_ssti_om(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_wsst_ob(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_fband(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_alb_land(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_alb_sea(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_alb_surface(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_snowc(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_rad_flux(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_rad_tau2(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_rad_st4a(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_rad_strat_corr(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_lon(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_lat(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_lev(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_current_step(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_increase_co2(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_compute_shortwave(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_air_absortivity_co2(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_land_coupling_flag(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_sst_anomaly_coupling_flag(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

public subroutine is_array_ablco2_ref(var_is_array)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	var_is_array

speedy_driver Module

Contents

Subroutines

Uses

Contents

Subroutines

Subroutines

public subroutine init(state_container, control_container)

Arguments

public subroutine step(state_container, control_container, error_code)

Arguments

public subroutine transform_spectral2grid(state_container)

Arguments

public subroutine transform_grid2spectral(state_container)

Arguments

public subroutine apply_grid_filter(state_container)

Arguments

public subroutine controlparams_init(control_cnt, start_datetime_cnt, end_datetime_cnt, diag_interval)

Arguments

public subroutine controlparams_close(this)

Arguments

public subroutine create_datetime(year, month, day, hour, minute, datetime_cnt)

Arguments

public subroutine get_datetime(this, year, month, day, hour, minute)

Arguments

public subroutine close_datetime(this)

Arguments

public subroutine modelstate_init(state_cnt)

Arguments

public subroutine modelstate_init_sst_anom(state_cnt, n_months)

Arguments

public subroutine modelstate_close(state_cnt)

Arguments

public subroutine get_vor(state_cnt, vor_out)

Arguments

public subroutine set_vor(state_cnt, vor_in)

Arguments

public subroutine get_vor_shape(state_cnt, array_shape)

Arguments

public subroutine get_div(state_cnt, div_out)

Arguments

public subroutine set_div(state_cnt, div_in)

Arguments

public subroutine get_div_shape(state_cnt, array_shape)

Arguments

public subroutine get_t(state_cnt, t_out)

Arguments

public subroutine set_t(state_cnt, t_in)

Arguments

public subroutine get_t_shape(state_cnt, array_shape)

Arguments

public subroutine get_ps(state_cnt, ps_out)

Arguments

public subroutine set_ps(state_cnt, ps_in)

Arguments

public subroutine get_ps_shape(state_cnt, array_shape)

Arguments

public subroutine get_tr(state_cnt, tr_out)

Arguments

public subroutine set_tr(state_cnt, tr_in)

Arguments

public subroutine get_tr_shape(state_cnt, array_shape)

Arguments

public subroutine get_phi(state_cnt, phi_out)

Arguments

public subroutine set_phi(state_cnt, phi_in)

Arguments

public subroutine get_phi_shape(state_cnt, array_shape)

Arguments

public subroutine get_phis(state_cnt, phis_out)

Arguments

public subroutine set_phis(state_cnt, phis_in)

Arguments

public subroutine get_phis_shape(state_cnt, array_shape)

Arguments

public subroutine get_u_grid(state_cnt, u_grid_out)

Arguments

public subroutine set_u_grid(state_cnt, u_grid_in)

Arguments

public subroutine get_u_grid_shape(state_cnt, array_shape)