CABLE_CRU Module


Uses


Variables

Type Visibility Attributes Name Initial
type(CRU_TYPE), public :: CRU
integer, private, parameter :: rain = 1
integer, private, parameter :: lwdn = 2
integer, private, parameter :: swdn = 3
integer, private, parameter :: pres = 4
integer, private, parameter :: qair = 5
integer, private, parameter :: tmax = 6
integer, private, parameter :: tmin = 7
integer, private, parameter :: uwind = 8
integer, private, parameter :: vwind = 9
integer, private, parameter :: prevTmax = 10
integer, private, parameter :: nextTmin = 11
integer, private :: ErrStatus
real, private, parameter :: SecDay = 86400.
character(len=6), private, parameter, DIMENSION(9) :: PREF = (/"rain  ", "lwdown", "swdown", "press ", "qair  ", "tmax  ", "tmin  ", "uwind ", "vwind "/)

Derived Types

type, public ::  CRU_MET_TYPE

Components

Type Visibility Attributes Name Initial
real, public, DIMENSION(:), ALLOCATABLE :: METVALS

type, public ::  CRU_TYPE

Components

Type Visibility Attributes Name Initial
integer, public :: mland
integer, public :: NMET
integer, public :: xdimsize
integer, public :: ydimsize
integer, public :: tdimsize
integer, public :: CYEAR
integer, public :: MetStart
integer, public :: MetEnd
integer, public :: CTSTEP
integer, public :: DTsecs
integer, public :: ktau
integer, public, DIMENSION(9) :: F_ID
integer, public, DIMENSION(9) :: V_ID
real, public, DIMENSION(:), ALLOCATABLE :: AVG_LWDN
real, public, DIMENSION(:), ALLOCATABLE :: CO2VALS
logical, public :: DirectRead
logical, public :: LeapYears
logical, public, DIMENSION(:,:), ALLOCATABLE :: LandMask
character(len=30), public :: Run
character(len=15), public :: CO2
character(len=15), public :: Ndep
character(len=15), public :: Forcing
character(len=200), public :: BasePath
character(len=200), public :: MetPath
character(len=200), public :: LandMaskFile
character(len=30), public, DIMENSION(9) :: VAR_NAME
character(len=200), public, DIMENSION(9) :: MetFile
type(CRU_MET_TYPE), public, DIMENSION(11) :: MET
real, public, DIMENSION(:), ALLOCATABLE :: NdepVALS
integer, public :: NdepF_ID
integer, public :: NdepV_ID
integer, public :: Ndep_CTSTEP

Subroutines

public subroutine CRU_INIT(CRU)

Arguments

Type IntentOptional Attributes Name
type(CRU_TYPE) :: CRU

public subroutine CRU_GET_FILENAME(CRU, cyear, par, FN)

Arguments

Type IntentOptional Attributes Name
type(CRU_TYPE), intent(inout) :: CRU
integer, intent(in) :: cyear
integer, intent(in) :: par
character(len=200), intent(out) :: FN

public subroutine GET_CRU_CO2(CRU, CO2air)

Arguments

Type IntentOptional Attributes Name
type(CRU_TYPE) :: CRU
real, intent(out) :: CO2air

public subroutine GET_CRU_Ndep(CRU)

Arguments

Type IntentOptional Attributes Name
type(CRU_TYPE), intent(inout) :: CRU

public subroutine OPEN_CRU_MET(CRU)

Arguments

Type IntentOptional Attributes Name
type(CRU_TYPE), intent(inout) :: CRU

public subroutine CRU_GET_DAILY_MET(CRU, LastDayOfYear, LastYearOfMet)

Arguments

Type IntentOptional Attributes Name
type(CRU_TYPE) :: CRU
logical, intent(in) :: LastDayOfYear
logical, intent(in) :: LastYearOfMet

public subroutine CRU_GET_SUBDIURNAL_MET(CRU, MET, CurYear, ktau, kend, LastYearOfMet)

Arguments

Type IntentOptional Attributes Name
type(CRU_TYPE) :: CRU
type(met_type) :: MET
integer, intent(in) :: CurYear
integer, intent(in) :: ktau
integer, intent(in) :: kend
logical, intent(in) :: LastYearOfMet