|
| subroutine, public | init_masterlinkedlist () |
| |
| subroutine, public | intht () |
| |
| subroutine, public | history_readnl (nlfile, dtime) |
| |
| subroutine | set_field_dimensions (field) |
| |
| subroutine | setup_interpolation_and_define_vector_complements () |
| |
| subroutine | restart_vars_setnames () |
| |
| subroutine | restart_dims_setnames () |
| |
| subroutine, public | init_restart_history (File) |
| |
| type(var_desc_t) function, pointer | restartvar_getdesc (name) |
| |
| subroutine, public | write_restart_history (File, yr_spec, mon_spec, day_spec, sec_spec) |
| |
| subroutine, public | read_restart_history (File) |
| |
| character(len=max_string_len) function, public | get_hfilepath (tape) |
| |
| character(len=max_string_len) function, public | get_hist_restart_filepath (tape) |
| |
| integer function, public | get_ptapes () |
| |
| recursive type(master_entry) function, pointer | get_entry_by_name (listentry, name) |
| |
| subroutine | avgflagtostring (avgflag, time_op) |
| |
| subroutine | fldlst () |
| |
| subroutine | print_active_fldlst () |
| |
| subroutine | inifld (t, listentry, avgflag, prec_wrt) |
| |
| subroutine | patch_init (t) |
| |
| subroutine | strip_null (str) |
| |
| character(len=max_fieldname_len) function | strip_suffix (name) |
| |
| character(len=fieldname_len) function | getname (inname) |
| |
| subroutine | parserangestring (rangestr, chars, begval, begchar, begname, endval, endchar, endname) |
| |
| subroutine | parselonlat (lonlatname, beglon, endlon, lonname, beglat, endlat, latname) |
| |
| character(len=1) function | getflag (inname) |
| |
| subroutine | list_index (list, name, index) |
| |
| recursive subroutine, public | outfld (fname, field, idim, c, avg_subcol_field) |
| |
| subroutine | get_field_properties (fname, found, tape_out, ff_out) |
| |
| logical function | is_initfile (file_index) |
| |
| integer function | strcmpf (name1, name2) |
| |
| subroutine | h_inquire (t) |
| |
| subroutine, public | add_default (name, tindex, flag) |
| |
| subroutine | h_override (t) |
| |
| subroutine | h_define (t, restart) |
| |
| subroutine | h_normalize (f, t) |
| |
| subroutine | h_zero (f, t) |
| |
| subroutine | dump_field (f, t, restart) |
| |
| logical function, public | write_inithist () |
| |
| subroutine, public | wshist (rgnht_in) |
| |
| subroutine | addfld_1d (fname, vdim_name, avgflag, units, long_name, gridname, flag_xyfill, sampling_seq, standard_name, fill_value) |
| |
| subroutine | addfld_nd (fname, dimnames, avgflag, units, long_name, gridname, flag_xyfill, sampling_seq, standard_name, fill_value) |
| |
| logical function | field_part_of_vector (fname, meridional_name, zonal_name) |
| |
| subroutine, public | register_vector_field (zonal_field_name, meridional_field_name) |
| |
| subroutine | add_entry_to_master (newentry) |
| |
| subroutine, public | wrapup (rstwr, nlend) |
| |
| integer function | gen_hash_key (string) |
| |
| integer function | get_masterlist_indx (fldname) |
| |
| subroutine | bld_outfld_hash_tbls () |
| |
| subroutine | bld_htapefld_indices |
| |
| logical function, public | hist_fld_active (fname) |
| |
| logical function, dimension(numcols), public | hist_fld_col_active (fname, lchnk, numcols) |
| |
|
| type(master_entry), pointer | masterlinkedlist => null() |
| |
| type(master_list), dimension(:), pointer | masterlist => null() |
| |
| type(active_entry), dimension(:), pointer | tape => null() |
| |
| type(active_entry), dimension(:), allocatable, target | history_tape |
| |
| type(active_entry), dimension(:), allocatable, target | restarthistory_tape |
| |
| integer, parameter | restartvarcnt = 37 |
| |
| integer, parameter | restartdimcnt = 10 |
| |
| type(rvar_id), dimension(restartvarcnt) | restartvars |
| |
| type(rdim_id), dimension(restartdimcnt) | restartdims |
| |
| integer, parameter | ptapes_dim_ind = 1 |
| |
| integer, parameter | max_string_len_dim_ind = 2 |
| |
| integer, parameter | fieldname_lenp2_dim_ind = 3 |
| |
| integer, parameter | pflds_dim_ind = 4 |
| |
| integer, parameter | max_chars_dim_ind = 5 |
| |
| integer, parameter | max_fieldname_len_dim_ind = 6 |
| |
| integer, parameter | maxnflds_dim_ind = 7 |
| |
| integer, parameter | maxvarmdims_dim_ind = 8 |
| |
| integer, parameter | registeredmdims_dim_ind = 9 |
| |
| integer, parameter | max_hcoordname_len_dim_ind = 10 |
| |
| integer | nfmaster = 0 |
| |
| integer, dimension(ptapes) | nflds |
| |
| integer | i |
| |
| integer, dimension(ptapes), public | nhtfrq = (/0, (-24, i=2,ptapes)/) |
| |
| integer, dimension(ptapes), public | mfilt = 30 |
| |
| integer, dimension(ptapes), public | nfils |
| |
| integer, dimension(ptapes) | ndens = 2 |
| |
| integer, dimension(ptapes) | ncprec = -999 |
| |
| real(r8), dimension(ptapes) | beg_time |
| |
| logical, dimension(ptapes) | rgnht = .false. |
| |
| logical, dimension(ptapes), public | hstwr = .false. |
| |
| logical | empty_htapes = .false. |
| |
| logical | htapes_defined = .false. |
| |
| character(len= *), parameter | history_namelist = 'cam_history_nl' |
| |
| character(len=max_string_len), dimension(ptapes) | hrestpath = (/(' ',i=1,ptapes)/) |
| |
| character(len=max_string_len), dimension(ptapes) | nfpath = (/(' ',i=1,ptapes)/) |
| |
| character(len=max_string_len), dimension(ptapes) | cpath |
| |
| character(len=max_string_len), dimension(ptapes) | nhfil |
| |
| character(len=1), dimension(ptapes), public | avgflag_pertape = (/(' ',i=1,ptapes)/) |
| |
| character(len=16) | logname |
| |
| character(len=16) | host |
| |
| character(len=max_string_len), public | ctitle = ' ' |
| |
| character(len=8) | inithist = 'YEARLY' |
| |
| logical, public | inithist_all = .false. |
| |
| character(len=fieldname_lenp2), dimension(pflds, ptapes), public | fincl |
| |
| character(len=max_chars), dimension(pflds, ptapes) | fincllonlat |
| |
| character(len=fieldname_lenp2), dimension(pflds, ptapes) | fexcl |
| |
| character(len=fieldname_lenp2), dimension(pflds, ptapes) | fwrtpr |
| |
| character(len=fieldname_suffix_len) | fieldname_suffix = '&IC' |
| |
| logical, dimension(ptapes), public | interpolate_output = .false. |
| |
| type(interp_info_t), dimension(ptapes - 2) | interpolate_info |
| |
| character(len=7), parameter | hist_avg_flags = ' ABIXML' |
| |
| character(len=22), parameter | lt_desc = 'mean (over local time)' |
| |
| logical, dimension(ptapes) | collect_column_output |
| |
| integer | maxvarmdims =1 |
| |
| integer, parameter | tbl_hash_pri_sz_lg2 = 16 |
| |
| integer, parameter | tbl_hash_oflow_percent = 20 |
| |
| integer, parameter | tbl_hash_pri_sz = 2**tbl_hash_pri_sz_lg2 |
| |
| integer, parameter | tbl_hash_oflow_sz = tbl_hash_pri_sz * (tbl_hash_oflow_percent/100.0_r8) |
| |
| integer, dimension(0:tbl_hash_pri_sz-1) | tbl_hash_pri |
| |
| integer, dimension(tbl_hash_oflow_sz) | tbl_hash_oflow |
| |
| integer, parameter | gen_hash_key_offset = z'000053db' |
| |
| integer, parameter | tbl_max_idx = 15 |
| |
| integer, dimension(0:tbl_max_idx) | 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) | rhfilename_spec = '%c.cam.rh%t.%y-%m-%d-%s.nc' |
| |
| character(len=max_string_len), dimension(ptapes), public | hfilename_spec = (/ (' ', i=1, ptapes) /) |
| |
| integer, dimension(ptapes) | lcltod_start |
| |
| integer, dimension(ptapes) | lcltod_stop |
| |