MODD_FLAKE_n Module



Contents


Derived Types

type, public :: FLAKE_t

Components

TypeVisibility AttributesNameInitial
real, public, POINTER, DIMENSION(:):: XZS
real, public, POINTER, DIMENSION(:):: XZ0
real, public, POINTER, DIMENSION(:):: XUSTAR
real, public, POINTER, DIMENSION(:):: XEMIS
real, public, POINTER, DIMENSION(:,:):: XCOVER
logical, public, POINTER, DIMENSION(:):: LCOVER
logical, public :: LSBL
type(DATE_TIME), public :: TTIME
real, public :: XTSTEP
real, public :: XOUT_TSTEP
logical, public :: LSEDIMENTS
logical, public :: LSKINTEMP
character(len=3), public :: CSNOW_FLK
character(len=5), public :: CFLK_FLUX
character(len=4), public :: CFLK_ALB
real, public, POINTER, DIMENSION(:):: XWATER_DEPTH
real, public, POINTER, DIMENSION(:):: XWATER_FETCH
real, public, POINTER, DIMENSION(:):: XT_BS
real, public, POINTER, DIMENSION(:):: XDEPTH_BS
real, public, POINTER, DIMENSION(:):: XCORIO
real, public, POINTER, DIMENSION(:):: XDIR_ALB
real, public, POINTER, DIMENSION(:):: XSCA_ALB
real, public, POINTER, DIMENSION(:):: XICE_ALB
real, public, POINTER, DIMENSION(:):: XSNOW_ALB
real, public, POINTER, DIMENSION(:):: XEXTCOEF_WATER
real, public, POINTER, DIMENSION(:):: XEXTCOEF_ICE
real, public, POINTER, DIMENSION(:):: XEXTCOEF_SNOW
real, public, POINTER, DIMENSION(:):: XT_SNOW
real, public, POINTER, DIMENSION(:):: XT_ICE
real, public, POINTER, DIMENSION(:):: XT_MNW
real, public, POINTER, DIMENSION(:):: XT_WML
real, public, POINTER, DIMENSION(:):: XT_BOT
real, public, POINTER, DIMENSION(:):: XT_B1
real, public, POINTER, DIMENSION(:):: XCT
real, public, POINTER, DIMENSION(:):: XH_SNOW
real, public, POINTER, DIMENSION(:):: XH_ICE
real, public, POINTER, DIMENSION(:):: XH_ML
real, public, POINTER, DIMENSION(:):: XH_B1
real, public, POINTER, DIMENSION(:):: XTS
real, public, POINTER, DIMENSION(:):: XCPL_FLAKE_EVAP
real, public, POINTER, DIMENSION(:):: XCPL_FLAKE_RAIN
real, public, POINTER, DIMENSION(:):: XCPL_FLAKE_SNOW

Subroutines

public subroutine FLAKE_INIT(YFLAKE)

Arguments

Type IntentOptional AttributesName
type(FLAKE_t), intent(inout) :: YFLAKE