histFileMod Module


Uses


Variables

Type Visibility Attributes Name Initial
integer, public, parameter :: max_tapes = 10
integer, public, parameter :: max_flds = 2500
integer, public, parameter :: max_namlen = 64
integer, public, parameter :: scale_type_strlen = 32
integer, public, parameter :: no_snow_normal = 1
integer, public, parameter :: no_snow_zero = 2
logical, public :: hist_empty_htapes = .false.
integer, public :: hist_ndens(max_tapes) = 2
integer, public :: hist_mfilt(max_tapes) = (/1, (30, ni=2, max_tapes)/)
logical, public :: hist_dov2xy(max_tapes) = (/.true., (.true., ni=2, max_tapes)/)
integer, public :: hist_nhtfrq(max_tapes) = (/0, (-24, ni=2, max_tapes)/)
character(len=avgflag_strlen), public :: hist_avgflag_pertape(max_tapes) = (/(' ', ni=1, max_tapes)/)
character(len=max_namlen), public :: hist_type1d_pertape(max_tapes) = (/(' ', ni=1, max_tapes)/)
character(len=max_namlen), public :: fincl(max_flds,max_tapes)
character(len=max_namlen), public :: hist_fincl1(max_flds) = ' '
character(len=max_namlen), public :: hist_fincl2(max_flds) = ' '
character(len=max_namlen), public :: hist_fincl3(max_flds) = ' '
character(len=max_namlen), public :: hist_fincl4(max_flds) = ' '
character(len=max_namlen), public :: hist_fincl5(max_flds) = ' '
character(len=max_namlen), public :: hist_fincl6(max_flds) = ' '
character(len=max_namlen), public :: hist_fincl7(max_flds) = ' '
character(len=max_namlen), public :: hist_fincl8(max_flds) = ' '
character(len=max_namlen), public :: hist_fincl9(max_flds) = ' '
character(len=max_namlen), public :: hist_fincl10(max_flds) = ' '
character(len=max_namlen), public :: fexcl(max_flds,max_tapes)
character(len=max_namlen), public :: hist_fexcl1(max_flds) = ' '
character(len=max_namlen), public :: hist_fexcl2(max_flds) = ' '
character(len=max_namlen), public :: hist_fexcl3(max_flds) = ' '
character(len=max_namlen), public :: hist_fexcl4(max_flds) = ' '
character(len=max_namlen), public :: hist_fexcl5(max_flds) = ' '
character(len=max_namlen), public :: hist_fexcl6(max_flds) = ' '
character(len=max_namlen), public :: hist_fexcl7(max_flds) = ' '
character(len=max_namlen), public :: hist_fexcl8(max_flds) = ' '
character(len=max_namlen), public :: hist_fexcl9(max_flds) = ' '
character(len=max_namlen), public :: hist_fexcl10(max_flds) = ' '

Subroutines

public subroutine hist_printflds()

Arguments

None

public subroutine hist_htapes_build()

Arguments

None

public subroutine htapes_fieldlist()

Arguments

None

public subroutine hist_update_hbuf(bounds)

Arguments

Type IntentOptional Attributes Name
type(bounds_type), intent(in) :: bounds

public subroutine hist_htapes_wrapup(rstwr, nlend, bounds, watsat_col, sucsat_col, bsw_col, hksat_col)

Arguments

Type IntentOptional Attributes Name
logical, intent(in) :: rstwr
logical, intent(in) :: nlend
type(bounds_type), intent(in) :: bounds
real(kind=r8), intent(in) :: watsat_col(bounds%begc:,1:)
real(kind=r8), intent(in) :: sucsat_col(bounds%begc:,1:)
real(kind=r8), intent(in) :: bsw_col(bounds%begc:,1:)
real(kind=r8), intent(in) :: hksat_col(bounds%begc:,1:)

public subroutine hist_restart_ncd(bounds, ncid, flag, rdate)

Arguments

Type IntentOptional Attributes Name
type(bounds_type), intent(in) :: bounds
type(File_desc_t), intent(inout) :: ncid
character(len=*), intent(in) :: flag
character(len=*), intent(in), optional :: rdate

public subroutine hist_addfld1d(fname, units, avgflag, long_name, type1d_out, ptr_gcell, ptr_lunit, ptr_col, ptr_patch, ptr_lnd, ptr_atm, p2c_scale_type, c2l_scale_type, l2g_scale_type, set_lake, set_nolake, set_urb, set_nourb, set_noglcmec, set_spec, default)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: fname
character(len=*), intent(in) :: units
character(len=*), intent(in) :: avgflag
character(len=*), intent(in) :: long_name
character(len=*), intent(in), optional :: type1d_out
real(kind=r8), optional, pointer :: ptr_gcell(:)
real(kind=r8), optional, pointer :: ptr_lunit(:)
real(kind=r8), optional, pointer :: ptr_col(:)
real(kind=r8), optional, pointer :: ptr_patch(:)
real(kind=r8), optional, pointer :: ptr_lnd(:)
real(kind=r8), optional, pointer :: ptr_atm(:)
character(len=*), intent(in), optional :: p2c_scale_type
character(len=*), intent(in), optional :: c2l_scale_type
character(len=*), intent(in), optional :: l2g_scale_type
real(kind=r8), intent(in), optional :: set_lake
real(kind=r8), intent(in), optional :: set_nolake
real(kind=r8), intent(in), optional :: set_urb
real(kind=r8), intent(in), optional :: set_nourb
real(kind=r8), intent(in), optional :: set_noglcmec
real(kind=r8), intent(in), optional :: set_spec
character(len=*), intent(in), optional :: default

public subroutine hist_addfld2d(fname, type2d, units, avgflag, long_name, type1d_out, ptr_gcell, ptr_lunit, ptr_col, ptr_patch, ptr_lnd, ptr_atm, p2c_scale_type, c2l_scale_type, l2g_scale_type, set_lake, set_nolake, set_urb, set_nourb, set_spec, no_snow_behavior, default)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: fname
character(len=*), intent(in) :: type2d
character(len=*), intent(in) :: units
character(len=*), intent(in) :: avgflag
character(len=*), intent(in) :: long_name
character(len=*), intent(in), optional :: type1d_out
real(kind=r8), optional, pointer :: ptr_gcell(:,:)
real(kind=r8), optional, pointer :: ptr_lunit(:,:)
real(kind=r8), optional, pointer :: ptr_col(:,:)
real(kind=r8), optional, pointer :: ptr_patch(:,:)
real(kind=r8), optional, pointer :: ptr_lnd(:,:)
real(kind=r8), optional, pointer :: ptr_atm(:,:)
character(len=*), intent(in), optional :: p2c_scale_type
character(len=*), intent(in), optional :: c2l_scale_type
character(len=*), intent(in), optional :: l2g_scale_type
real(kind=r8), intent(in), optional :: set_lake
real(kind=r8), intent(in), optional :: set_nolake
real(kind=r8), intent(in), optional :: set_urb
real(kind=r8), intent(in), optional :: set_nourb
real(kind=r8), intent(in), optional :: set_spec
integer, intent(in), optional :: no_snow_behavior
character(len=*), intent(in), optional :: default

public subroutine hist_addfld_decomp(fname, type2d, units, avgflag, long_name, ptr_col, ptr_patch, l2g_scale_type, default)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: fname
character(len=*), intent(in) :: type2d
character(len=*), intent(in) :: units
character(len=*), intent(in) :: avgflag
character(len=*), intent(in) :: long_name
real(kind=r8), optional, pointer :: ptr_col(:,:)
real(kind=r8), optional, pointer :: ptr_patch(:,:)
character(len=*), intent(in), optional :: l2g_scale_type
character(len=*), intent(in), optional :: default

public subroutine hist_add_subscript(name, dim)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: name
integer, intent(in) :: dim