cable_IO_vars_module Module


Uses


Variables

Type Visibility Attributes Name Initial
real, public :: shod
integer, public :: sdoy
integer, public :: smoy
integer, public :: syear
character(len=200), public :: timeunits
character(len=10), public :: calendar
character(len=3), public :: time_coord
real(kind=r_2), public, POINTER, DIMENSION(:) :: timevar
integer, public, DIMENSION(12) :: daysm = (/31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31/)
integer, public, DIMENSION(12) :: daysml = (/31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31/)
integer, public, DIMENSION(12) :: lastday = (/31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334, 365/)
integer, public, DIMENSION(12) :: lastdayl = (/31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335, 366/)
logical, public :: leaps
real, public, POINTER, DIMENSION(:) :: latitude
real, public, POINTER, DIMENSION(:) :: longitude
real, public, POINTER, DIMENSION(:,:) :: lat_all
real, public, POINTER, DIMENSION(:,:) :: lon_all
character(len=4), public :: metGrid
integer, public, POINTER, DIMENSION(:,:) :: mask
integer, public, POINTER, DIMENSION(:) :: land_x

An array mapping local land indexes on the current MPI rank to global x (longitude) indexes.
integer, public, POINTER, DIMENSION(:) :: land_y

An array mapping local land indexes on the current MPI rank to global y (latitude) indexes.
integer, public, POINTER, DIMENSION(:) :: land_x_global

An array mapping global land indexes to global x (longitude) indexes.
integer, public, POINTER, DIMENSION(:) :: land_y_global

An array mapping global land indexes to global y (latitude) indexes.
integer, public :: xdimsize
integer, public :: ydimsize
integer, public :: ngridcells
type(land_type), public, DIMENSION(:), POINTER :: landpt

Land information for each land point in the local grid of this MPI rank
type(land_type), public, DIMENSION(:), POINTER :: landpt_global

Land information for each land point in the global grid
type(patch_type), public, DIMENSION(:), POINTER :: patch
integer, public :: max_vegpatches
integer, public :: nmetpatches
integer, public :: land_decomp_start

Starting land point index of this MPI rank in global land array
integer, public :: land_decomp_end

Ending land point index of this MPI rank in global land array
integer, public :: patch_decomp_start

Starting patch index of this MPI rank in global patch array
integer, public :: patch_decomp_end

Ending patch index of this MPI rank in global patch array
type(globalMet_type), public :: globalMetfile
type(gswp_type), public :: gswpfile
integer, public :: ncciy
integer, public :: ncid_rin
integer, public :: logn
logical, public :: verbose
logical, public :: soilparmnew
integer, public, POINTER :: soiltype_metfile(:,:)
integer, public, POINTER :: vegtype_metfile(:,:)
real, public, POINTER :: vegpatch_metfile(:,:)
type(input_details_type), public :: exists
type(output_settings_type), public, SAVE :: output
type(checks_type), public :: check
real, public, POINTER, DIMENSION(:) :: PrecipScale
real, public, POINTER, DIMENSION(:,:) :: defaultLAI
real, public :: fixedCO2

Enumerations

enum, bind(c)

Enumerators

enumerator:: NO_CHECK = 0
enumerator:: ON_TIMESTEP = 1
enumerator:: ON_WRITE = 2
enumerator:: RANGE_CHECK = 3

Derived Types

type, public ::  patch_type

Components

Type Visibility Attributes Name Initial
real, public :: frac
real, public :: latitude
real, public :: longitude

type, public ::  land_type

Components

Type Visibility Attributes Name Initial
integer, public :: nap
integer, public :: cstart
integer, public :: cend
integer, public :: ilat
integer, public :: ilon

type, public ::  globalMet_type

Components

Type Visibility Attributes Name Initial
logical, public :: l_gpcc
logical, public :: l_gswp
logical, public :: l_ncar
logical, public :: l_access
character(len=99), public :: rainf
character(len=99), public :: snowf
character(len=99), public :: LWdown
character(len=99), public :: SWdown
character(len=99), public :: PSurf
character(len=99), public :: Qair
character(len=99), public :: Tair
character(len=99), public :: wind

type, public ::  gswp_type

Components

Type Visibility Attributes Name Initial
character(len=200), public :: rainf
character(len=200), public :: snowf
character(len=200), public :: LWdown
character(len=200), public :: SWdown
character(len=200), public :: PSurf
character(len=200), public :: Qair
character(len=200), public :: Tair
character(len=200), public :: wind
character(len=200), public :: mask

type, public ::  parID_type

Components

Type Visibility Attributes Name Initial
integer, public :: bch
integer, public :: latitude
integer, public :: clay
integer, public :: css
integer, public :: rhosoil
integer, public :: hyds
integer, public :: rs20
integer, public :: sand
integer, public :: sfc
integer, public :: silt
integer, public :: ssat
integer, public :: sucs
integer, public :: swilt
integer, public :: froot
integer, public :: zse
integer, public :: canst1
integer, public :: dleaf
integer, public :: meth
integer, public :: za_tq
integer, public :: za_uv
integer, public :: ejmax
integer, public :: frac4
integer, public :: hc
integer, public :: lai
integer, public :: rp20
integer, public :: rpcoef
integer, public :: shelrb
integer, public :: vbeta
integer, public :: xalbnir
integer, public :: vcmax
integer, public :: xfang
integer, public :: ratecp
integer, public :: ratecs
integer, public :: area
integer, public :: refsbare
integer, public :: isoil
integer, public :: iveg
integer, public :: albsoil
integer, public :: taul
integer, public :: refl
integer, public :: tauw
integer, public :: refw
integer, public :: wai
integer, public :: vegcf
integer, public :: extkn
integer, public :: tminvj
integer, public :: tmaxvj
integer, public :: veg_class
integer, public :: soil_class
integer, public :: mvtype
integer, public :: mstype
integer, public :: patchfrac
integer, public :: WatSat
integer, public :: GWWatSat
integer, public :: SoilMatPotSat
integer, public :: GWSoilMatPotSat
integer, public :: HkSat
integer, public :: GWHkSat
integer, public :: FrcSand
integer, public :: FrcClay
integer, public :: Clappb
integer, public :: Watr
integer, public :: GWWatr
integer, public :: sfc_vec
integer, public :: forg
integer, public :: swilt_vec
integer, public :: slope
integer, public :: slope_std
integer, public :: GWdz
integer, public :: SatFracmax
integer, public :: Qhmax
integer, public :: QhmaxEfold
integer, public :: HKefold
integer, public :: HKdepth
integer, public :: ishorizon
integer, public :: nhorizons
integer, public :: clitt
integer, public :: zeta
integer, public :: fsatmax
integer, public :: gamma
integer, public :: ZR
integer, public :: F10
integer, public :: g0
integer, public :: g1

type, public ::  input_details_type

Components

Type Visibility Attributes Name Initial
logical, public :: Wind
logical, public :: LWdown
logical, public :: CO2air
logical, public :: PSurf
logical, public :: Snowf
logical, public :: avPrecip
logical, public :: LAI
logical, public :: LAI_T
logical, public :: LAI_M
logical, public :: LAI_P
logical, public :: parameters
logical, public :: initial
logical, public :: patch
logical, public :: laiPatch

type, public ::  output_settings_type

Output settings read from the &cable namelist. What is written, and how often, is set by the output configuration file named in filename%output_config.

Components

Type Visibility Attributes Name Initial
logical, public :: restart = .FALSE.

Write a restart file at the end of the run.
character(len=7), public :: grid = 'default'

Layout of the output files: 'default' follows the meteorological forcing; 'land' or 'mask' force the compressed land-point or the lat/lon layout.

type, public ::  checks_type

Components

Type Visibility Attributes Name Initial
logical, public :: energy_bal
logical, public :: mass_bal
integer(kind=KIND(RANGE_CHECK)), public :: ranges
logical, public :: exit

Functions

public function to_land_index_global(land_index_local) result(land_index_global)

Translate local land index on current MPI rank to global land index

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: land_index_local

Return Value integer


Subroutines

public subroutine set_decomp_for_coupled()

Arguments

None