CAM
cam_history.F90 File Reference

Data Types

type  cam_history::master_entry
 
type  cam_history::master_list
 
type  cam_history::rvar_id
 
type  cam_history::rdim_id
 
interface  cam_history::addfld
 

Modules

module  cam_history
 

Functions/Subroutines

subroutine, public cam_history::init_masterlinkedlist ()
 
subroutine, public cam_history::intht ()
 
subroutine, public cam_history::history_readnl (nlfile, dtime)
 
subroutine cam_history::set_field_dimensions (field)
 
subroutine cam_history::setup_interpolation_and_define_vector_complements ()
 
subroutine cam_history::restart_vars_setnames ()
 
subroutine cam_history::restart_dims_setnames ()
 
subroutine, public cam_history::init_restart_history (File)
 
type(var_desc_t) function, pointer cam_history::restartvar_getdesc (name)
 
subroutine, public cam_history::write_restart_history (File, yr_spec, mon_spec, day_spec, sec_spec)
 
subroutine, public cam_history::read_restart_history (File)
 
character(len=max_string_len) function, public cam_history::get_hfilepath (tape)
 
character(len=max_string_len) function, public cam_history::get_hist_restart_filepath (tape)
 
integer function, public cam_history::get_ptapes ()
 
recursive type(master_entry) function, pointer cam_history::get_entry_by_name (listentry, name)
 
subroutine cam_history::avgflagtostring (avgflag, time_op)
 
subroutine cam_history::fldlst ()
 
subroutine cam_history::print_active_fldlst ()
 
subroutine cam_history::inifld (t, listentry, avgflag, prec_wrt)
 
subroutine cam_history::patch_init (t)
 
subroutine cam_history::strip_null (str)
 
character(len=max_fieldname_len) function cam_history::strip_suffix (name)
 
character(len=fieldname_len) function cam_history::getname (inname)
 
subroutine cam_history::parserangestring (rangestr, chars, begval, begchar, begname, endval, endchar, endname)
 
subroutine cam_history::parselonlat (lonlatname, beglon, endlon, lonname, beglat, endlat, latname)
 
character(len=1) function cam_history::getflag (inname)
 
subroutine cam_history::list_index (list, name, index)
 
recursive subroutine, public cam_history::outfld (fname, field, idim, c, avg_subcol_field)
 
subroutine cam_history::get_field_properties (fname, found, tape_out, ff_out)
 
logical function cam_history::is_initfile (file_index)
 
integer function cam_history::strcmpf (name1, name2)
 
subroutine cam_history::h_inquire (t)
 
subroutine, public cam_history::add_default (name, tindex, flag)
 
subroutine cam_history::h_override (t)
 
subroutine cam_history::h_define (t, restart)
 
subroutine cam_history::h_normalize (f, t)
 
subroutine cam_history::h_zero (f, t)
 
subroutine cam_history::dump_field (f, t, restart)
 
logical function, public cam_history::write_inithist ()
 
subroutine, public cam_history::wshist (rgnht_in)
 
subroutine cam_history::addfld_1d (fname, vdim_name, avgflag, units, long_name, gridname, flag_xyfill, sampling_seq, standard_name, fill_value)
 
subroutine cam_history::addfld_nd (fname, dimnames, avgflag, units, long_name, gridname, flag_xyfill, sampling_seq, standard_name, fill_value)
 
logical function cam_history::field_part_of_vector (fname, meridional_name, zonal_name)
 
subroutine, public cam_history::register_vector_field (zonal_field_name, meridional_field_name)
 
subroutine cam_history::add_entry_to_master (newentry)
 
subroutine, public cam_history::wrapup (rstwr, nlend)
 
integer function cam_history::gen_hash_key (string)
 
integer function cam_history::get_masterlist_indx (fldname)
 
subroutine cam_history::bld_outfld_hash_tbls ()
 
subroutine cam_history::bld_htapefld_indices
 
logical function, public cam_history::hist_fld_active (fname)
 
logical function, dimension(numcols), public cam_history::hist_fld_col_active (fname, lchnk, numcols)
 

Variables

type(master_entry), pointer cam_history::masterlinkedlist => null()
 
type(master_list), dimension(:), pointer cam_history::masterlist => null()
 
type(active_entry), dimension(:), pointer cam_history::tape => null()
 
type(active_entry), dimension(:), allocatable, target cam_history::history_tape
 
type(active_entry), dimension(:), allocatable, target cam_history::restarthistory_tape
 
integer, parameter cam_history::restartvarcnt = 37
 
integer, parameter cam_history::restartdimcnt = 10
 
type(rvar_id), dimension(restartvarcnt) cam_history::restartvars
 
type(rdim_id), dimension(restartdimcnt) cam_history::restartdims
 
integer, parameter cam_history::ptapes_dim_ind = 1
 
integer, parameter cam_history::max_string_len_dim_ind = 2
 
integer, parameter cam_history::fieldname_lenp2_dim_ind = 3
 
integer, parameter cam_history::pflds_dim_ind = 4
 
integer, parameter cam_history::max_chars_dim_ind = 5
 
integer, parameter cam_history::max_fieldname_len_dim_ind = 6
 
integer, parameter cam_history::maxnflds_dim_ind = 7
 
integer, parameter cam_history::maxvarmdims_dim_ind = 8
 
integer, parameter cam_history::registeredmdims_dim_ind = 9
 
integer, parameter cam_history::max_hcoordname_len_dim_ind = 10
 
integer cam_history::nfmaster = 0
 
integer, dimension(ptapes) cam_history::nflds
 
integer cam_history::i
 
integer, dimension(ptapes), public cam_history::nhtfrq = (/0, (-24, i=2,ptapes)/)
 
integer, dimension(ptapes), public cam_history::mfilt = 30
 
integer, dimension(ptapes), public cam_history::nfils
 
integer, dimension(ptapes) cam_history::ndens = 2
 
integer, dimension(ptapes) cam_history::ncprec = -999
 
real(r8), dimension(ptapes) cam_history::beg_time
 
logical, dimension(ptapes) cam_history::rgnht = .false.
 
logical, dimension(ptapes), public cam_history::hstwr = .false.
 
logical cam_history::empty_htapes = .false.
 
logical cam_history::htapes_defined = .false.
 
character(len= *), parameter cam_history::history_namelist = 'cam_history_nl'
 
character(len=max_string_len), dimension(ptapes) cam_history::hrestpath = (/(' ',i=1,ptapes)/)
 
character(len=max_string_len), dimension(ptapes) cam_history::nfpath = (/(' ',i=1,ptapes)/)
 
character(len=max_string_len), dimension(ptapes) cam_history::cpath
 
character(len=max_string_len), dimension(ptapes) cam_history::nhfil
 
character(len=1), dimension(ptapes), public cam_history::avgflag_pertape = (/(' ',i=1,ptapes)/)
 
character(len=16) cam_history::logname
 
character(len=16) cam_history::host
 
character(len=max_string_len), public cam_history::ctitle = ' '
 
character(len=8) cam_history::inithist = 'YEARLY'
 
logical, public cam_history::inithist_all = .false.
 
character(len=fieldname_lenp2), dimension(pflds, ptapes), public cam_history::fincl
 
character(len=max_chars), dimension(pflds, ptapes) cam_history::fincllonlat
 
character(len=fieldname_lenp2), dimension(pflds, ptapes) cam_history::fexcl
 
character(len=fieldname_lenp2), dimension(pflds, ptapes) cam_history::fwrtpr
 
character(len=fieldname_suffix_len) cam_history::fieldname_suffix = '&IC'
 
logical, dimension(ptapes), public cam_history::interpolate_output = .false.
 
type(interp_info_t), dimension(ptapes - 2) cam_history::interpolate_info
 
character(len=7), parameter cam_history::hist_avg_flags = ' ABIXML'
 
character(len=22), parameter cam_history::lt_desc = 'mean (over local time)'
 
logical, dimension(ptapes) cam_history::collect_column_output
 
integer cam_history::maxvarmdims =1
 
integer, parameter cam_history::tbl_hash_pri_sz_lg2 = 16
 
integer, parameter cam_history::tbl_hash_oflow_percent = 20
 
integer, parameter cam_history::tbl_hash_pri_sz = 2**tbl_hash_pri_sz_lg2
 
integer, parameter cam_history::tbl_hash_oflow_sz = tbl_hash_pri_sz * (tbl_hash_oflow_percent/100.0_r8)
 
integer, dimension(0:tbl_hash_pri_sz-1) cam_history::tbl_hash_pri
 
integer, dimension(tbl_hash_oflow_sz) cam_history::tbl_hash_oflow
 
integer, parameter cam_history::gen_hash_key_offset = z'000053db'
 
integer, parameter cam_history::tbl_max_idx = 15
 
integer, dimension(0:tbl_max_idx) cam_history::tbl_gen_hash_key = (/61,59,53,47,43,41,37,31,29,23,17,13,11,7,3,1/)
 
character(len=max_string_len) cam_history::rhfilename_spec = '%c.cam.rh%t.%y-%m-%d-%s.nc'
 
character(len=max_string_len), dimension(ptapes), public cam_history::hfilename_spec = (/ (' ', i=1, ptapes) /)
 
integer, dimension(ptapes) cam_history::lcltod_start
 
integer, dimension(ptapes) cam_history::lcltod_stop