CABLE_PLUME_MIP Module


Uses


Variables

Type Visibility Attributes Name Initial
type(PLUME_MIP_TYPE), public :: PLUME
integer, private, parameter :: prec = 1
integer, private, parameter :: snow = 2
integer, private, parameter :: lwdn = 3
integer, private, parameter :: swdn = 4
integer, private, parameter :: pres = 5
integer, private, parameter :: rhum = 6
integer, private, parameter :: tmax = 7
integer, private, parameter :: tmin = 8
integer, private, parameter :: wind = 9
integer, private, parameter :: prevTmax = 10
integer, private, parameter :: nextTmin = 11
integer, private :: STATUS
real, private, parameter :: SecDay = 86400.
character(len=6), private, parameter, DIMENSION(9) :: PREF = (/"pr    ", "prsn  ", "rlds  ", "rsds  ", "ps    ", "hurs  ", "tasmax", "tasmin", "wind  "/)

Derived Types

type, public ::  PLUME_MET_TYPE

Components

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

type, public ::  PLUME_MIP_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 :: DT
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=15), public :: Run
character(len=15), public :: Forcing
character(len=15), public :: RCP
character(len=15), public :: CO2
character(len=15), public :: NDEP
character(len=15), public :: RCPdir
character(len=200), public :: BasePath
character(len=200), public :: MetPath
character(len=200), public :: LandMaskFile
character(len=12), public, DIMENSION(9) :: VAR_NAME
character(len=200), public, DIMENSION(9) :: MetFile
type(PLUME_MET_TYPE), public, DIMENSION(11) :: MET

Functions

public function FILE_SWITCH(PLUME, action)

Arguments

Type IntentOptional Attributes Name
type(PLUME_MIP_TYPE), intent(in) :: PLUME
character(len=5), intent(in) :: action

Return Value logical


Subroutines

public subroutine PLUME_MIP_INIT(PLUME)

Arguments

Type IntentOptional Attributes Name
type(PLUME_MIP_TYPE) :: PLUME

public subroutine PLUME_GET_FILENAME(PLUME, cyear, par, FN)

Arguments

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

public subroutine GET_PLUME_CO2(PLUME, CO2air)

Arguments

Type IntentOptional Attributes Name
type(PLUME_MIP_TYPE) :: PLUME
real, intent(out) :: CO2air

public subroutine OPEN_PLUME_MET(PLUME)

Arguments

Type IntentOptional Attributes Name
type(PLUME_MIP_TYPE) :: PLUME

public subroutine PLUME_GET_DAILY_MET(PLUME, TminFlag, islast)

Arguments

Type IntentOptional Attributes Name
type(PLUME_MIP_TYPE) :: PLUME
logical, intent(in) :: TminFlag
logical, intent(in) :: islast

public subroutine PLUME_MIP_GET_MET(PLUME, MET, CurYear, ktau, kend, islast)

Arguments

Type IntentOptional Attributes Name
type(PLUME_MIP_TYPE) :: PLUME
type(met_type) :: MET
integer, intent(in) :: CurYear
integer, intent(in) :: ktau
integer, intent(in) :: kend
logical, intent(in) :: islast