seq_diag_mct.F90 File Reference

Go to the source code of this file.

Modules
module	seq_diag_mct
Functions/Subroutines
subroutine	seq_diag_mct::seq_diag_zero_mct (EClock, mode)
subroutine	seq_diag_mct::seq_diag_accum_mct ()
subroutine	seq_diag_mct::seq_diag_sum0_mct ()
subroutine	seq_diag_mct::seq_diag_atm_mct (dom_a, frac_a, a2x_a, x2a_a)
subroutine	seq_diag_mct::seq_diag_lnd_mct (dom_l, frac_l, l2x_l, x2l_l)
subroutine	seq_diag_mct::seq_diag_rtm_mct (dom_r, r2x_r)
subroutine	seq_diag_mct::seq_diag_ocn_mct (dom_o, frac_o, o2x_o, x2o_o, xao_o, r2x_o)
subroutine	seq_diag_mct::seq_diag_ice_mct (dom_i, frac_i, i2x_i, x2i_i)
subroutine	seq_diag_mct::seq_diag_print_mct (EClock, stop_alarm, budg_print_inst, budg_print_daily, budg_print_month, budg_print_ann, budg_print_ltann, budg_print_ltend)
subroutine	seq_diag_mct::seq_diag_avect_mct (cdata, AV, comment)
subroutine	seq_diag_mct::seq_diag_avdiff_mct (AV1, AV2, ID, comment)
Variables
real(r8), parameter	seq_diag_mct::HFLXtoWFLX = - (shr_const_ocn_ref_sal-shr_const_ice_ref_sal) / (shr_const_ocn_ref_sal*shr_const_latice)
integer(in), parameter	seq_diag_mct::c_size = 18
integer(in), parameter	seq_diag_mct::c_atm_as = 1
integer(in), parameter	seq_diag_mct::c_atm_ar = 2
integer(in), parameter	seq_diag_mct::c_inh_is = 3
integer(in), parameter	seq_diag_mct::c_inh_ir = 4
integer(in), parameter	seq_diag_mct::c_ish_is = 5
integer(in), parameter	seq_diag_mct::c_ish_ir = 6
integer(in), parameter	seq_diag_mct::c_lnd_ls = 7
integer(in), parameter	seq_diag_mct::c_lnd_lr = 8
integer(in), parameter	seq_diag_mct::c_ocn_os = 9
integer(in), parameter	seq_diag_mct::c_ocn_or = 10
integer(in), parameter	seq_diag_mct::c_inh_as = 11
integer(in), parameter	seq_diag_mct::c_inh_ar = 12
integer(in), parameter	seq_diag_mct::c_ish_as = 13
integer(in), parameter	seq_diag_mct::c_ish_ar = 14
integer(in), parameter	seq_diag_mct::c_lnd_as = 15
integer(in), parameter	seq_diag_mct::c_lnd_ar = 16
integer(in), parameter	seq_diag_mct::c_ocn_as = 17
integer(in), parameter	seq_diag_mct::c_ocn_ar = 18
character(len=8), dimension(c_size), parameter	seq_diag_mct::cname = (/,,,,,, ,,,, ,,,, ,,, /)
integer(in), parameter	seq_diag_mct::f_size = 17
integer(in), parameter	seq_diag_mct::f_a = 1
integer(in), parameter	seq_diag_mct::f_h = 2
integer(in), parameter	seq_diag_mct::f_w = 11
integer(in), parameter	seq_diag_mct::f_area = 1
integer(in), parameter	seq_diag_mct::f_hfrz = 2
integer(in), parameter	seq_diag_mct::f_hmelt = 3
integer(in), parameter	seq_diag_mct::f_hswnet = 4
integer(in), parameter	seq_diag_mct::f_hlwdn = 5
integer(in), parameter	seq_diag_mct::f_hlwup = 6
integer(in), parameter	seq_diag_mct::f_hlatv = 7
integer(in), parameter	seq_diag_mct::f_hlatf = 8
integer(in), parameter	seq_diag_mct::f_hioff = 9
integer(in), parameter	seq_diag_mct::f_hsen = 10
integer(in), parameter	seq_diag_mct::f_wfrz = 11
integer(in), parameter	seq_diag_mct::f_wmelt = 12
integer(in), parameter	seq_diag_mct::f_wrain = 13
integer(in), parameter	seq_diag_mct::f_wsnow = 14
integer(in), parameter	seq_diag_mct::f_wevap = 15
integer(in), parameter	seq_diag_mct::f_wroff = 16
integer(in), parameter	seq_diag_mct::f_wioff = 17
character(len=8), dimension(f_size), parameter	seq_diag_mct::fname = (/,,,,, ,,,,, ,,,, ,, /)
integer(in), parameter	seq_diag_mct::p_size = 5
integer(in), parameter	seq_diag_mct::p_inst = 1
integer(in), parameter	seq_diag_mct::p_day = 2
integer(in), parameter	seq_diag_mct::p_mon = 3
integer(in), parameter	seq_diag_mct::p_ann = 4
integer(in), parameter	seq_diag_mct::p_inf = 5
character(len=8), dimension(p_size), parameter	seq_diag_mct::pname = (/,,,, /)
real(r8)	seq_diag_mct::budg_dataL
real(r8)	seq_diag_mct::budg_dataG
real(r8), dimension(f_size, c_size, p_size)	seq_diag_mct::budg_ns
character(len=*), paramete	seq_diag_mct::afldname )
character(len=*), paramete	seq_diag_mct::latname )
character(len=*), paramete	seq_diag_mct::afracname )
character(len=*), paramete	seq_diag_mct::lfracname )
character(len=*), paramete	seq_diag_mct::ofracname )
character(len=*), paramete	seq_diag_mct::ifracname )
character(len=*), paramete	seq_diag_mct::ascalname )
character(len=*), paramete	seq_diag_mct::lfrinname )
character(*), paramete	seq_diag_mct::modName )
integer(in), parameter	seq_diag_mct::debug = 0