stock_constants_mod

Parameters, routines, and types for computing stocks in xgrid_mod. More...

Data Types
type	stock_type
	Holds stocks amounts per PE values. More...

Functions/Subroutines
subroutine, public	stocks_report (Time)
	Writes update to stock report. More...
subroutine, public	stocks_report_init (Time)
	Starts a stock report. More...
subroutine, public	stocks_set_init_time (Time)

Variables
type(stock_type), dimension(nelems), save, public	atm_stock
character(len=3), dimension(ncomps), parameter	comp_names =(/'ATM', 'LND', 'ICE', 'OCN'/)
real(r8_kind), parameter	eps = 1.0e-10_r8_kind
type(stock_type), dimension(nelems), save, public	ice_stock
integer	id_conservation_check
integer	id_get_1_from_xgrid = 0
integer	id_get_1_from_xgrid_repro = 0
integer	id_get_2_from_xgrid = 0
integer	id_load_xgrid
integer	id_load_xgrid1
integer	id_load_xgrid2
integer	id_load_xgrid3
integer	id_load_xgrid4
integer	id_load_xgrid5
integer	id_put_1_to_xgrid_order_1 = 0
integer	id_put_1_to_xgrid_order_2 = 0
integer	id_put_2_to_xgrid = 0
integer	id_regen
integer	id_set_comm
integer	id_setup_xmap = 0
integer	ie_nest =0
integer	ie_parent =0
type(time_type), save	init_time
integer	is_nest =0
integer	is_parent =0
integer, parameter, private	istock_atm =1
integer, parameter, public	istock_bottom =2
integer, parameter, public	istock_heat =2
integer, parameter, private	istock_ice =3
integer, parameter, private	istock_lnd =2
integer, parameter, private	istock_ocn =4
integer, parameter, public	istock_salt =3
integer, parameter, public	istock_side =3
integer, parameter, public	istock_top =1
integer, parameter, public	istock_water =1
integer	je_nest =0
integer	je_parent =0
integer	js_nest =0
integer	js_parent =0
real(r8_kind), parameter	large_number = 1.e20_r8_kind
type(stock_type), dimension(nelems), save, public	lnd_stock
logical	module_is_initialized = .FALSE.
integer, parameter, private	ncomps =4
integer, parameter	nelems_report =3
integer	nnest =0
integer, parameter	nsides = 3
	top, bottom, side
type(stock_type), dimension(nelems), save, public	ocn_stock
character(len=5), dimension(nelems), parameter	stock_names =(/'water', 'heat ', 'salt '/)
character(len=12), dimension(nelems), parameter	stock_units =(/'[Kg] ','[Joules]','[Kg] '/)
integer, public	stocks_file
integer	tile_nest
integer	tile_parent

Detailed Description

Parameters, routines, and types for computing stocks in xgrid_mod.

---

Data Type Documentation

stock_constants_mod::stock_type

type stock_constants_mod::stock_type

Holds stocks amounts per PE values.

Definition at line 53 of file stock_constants.F90.

Collaboration diagram for stock_type:

Public Attributes
real(r8_kind), dimension(nsides)	dq = 0.0_r8_kind
	stock increments at present time on the Ice grid
real(r8_kind), dimension(nsides)	dq_in = 0.0_r8_kind
	stock increments at present time on the Ocean grid
real(r8_kind)	q_now = 0.0_r8_kind
	total stocks at time t
real(r8_kind)	q_start = 0.0_r8_kind
	total stocks at start time

Function/Subroutine Documentation

stocks_report()

subroutine, public stock_constants_mod::stocks_report

(

type(time_type), intent(in)

Time

)

Writes update to stock report.

Parameters

[in]

time

Model time

Definition at line 170 of file stock_constants.F90.

stocks_report_init()

subroutine, public stock_constants_mod::stocks_report_init

(

type(time_type), intent(in)

Time

)

Starts a stock report.

Parameters

[in]

time

Model time

Definition at line 85 of file stock_constants.F90.

stocks_set_init_time()

subroutine, public stock_constants_mod::stocks_set_init_time

(

type(time_type), intent(in)

Time

)

Parameters

[in]

time

init time to set for stock report

Definition at line 336 of file stock_constants.F90.