clmtv_module.f90

CLM集合卡曼滤波数据同化算法

  MODULE clmtv_module

!=======================================================================
!      Source file: clmtv_module.f90
! Original version: Yongjiu Dai, September 15, 1999
!
!=======================================================================

        IMPLICIT NONE

! -----------------------------------------------------------------
! [1] main land surface variables needed for restart
! -----------------------------------------------------------------

  integer, dimension(:), allocatable :: &
        snl          ! number of snow layers

  real, dimension(:,:), allocatable :: &
        dz,         &! layer thickiness [m]
        z,          &! node depth [m]
        zi,         &! interface depth [m]
        tss,        &! soil temperature [K]
        wliq,       &! liquid water in layers [kg/m2]
        wice,       &! ice lens in layers [kg/m2]
        rootr        ! root resistance of a layer, all layers add to 1.0

  real, dimension(:), allocatable :: &
        green,      &!
        fveg,       &! fraction of vegetation cover
        fsno,       &! fraction of snow cover on ground
        sigf,       &! fraction of veg cover, excluding snow-covered veg [-]
        tlsun,      &! sunlit leaf temperature [K]
        tlsha,      &! shaded leaf temperature [K]
        ldew,       &! depth of water on foliage [mm]
        sag,        &! non dimensional snow age [-]
        scv,        &! snow cover, water equivalent [mm]
        snowdp,     &! snow depth [meter]
        etrc,       &! maximum possible transpiration rate [mm/s]
        tg           ! ground surface temperature [K]

  real, dimension(:), allocatable :: &
        xerr,       &! accumulation of the error of water banace
        zerr         ! accumulation of the error of energy balance

! -----------------------------------------------------------------
! [2] vegetation dynamic parameters 
! -----------------------------------------------------------------

  real, dimension(:), allocatable :: &
        lai,        &! leaf area index
        sai          ! stem area index

! -----------------------------------------------------------------
! [3] albedo calculation for next time step
! -----------------------------------------------------------------

  real, dimension(:,:,:), allocatable :: &
        albg,       &! albedo, ground [-]
        albv,       &! albedo, vegetation [-]
        alb,        &! averaged albedo [-]
        ssun,       &!
        ssha,       &!
        tranc        ! canopy transmittances for solar radiation

  real, dimension(:), allocatable :: &
        thermk,     &! canopy gap fraction for tir radiation
        extkb,      &! (k, g(mu)/mu) direct solar extinction coefficient
        extkd        ! diffuse and scattered diffuse PAR extinction coefficient

! -----------------------------------------------------------------
! [4] currrnt julian day (including fraction), year for next time step
! -----------------------------------------------------------------
  integer &
        iyear,      &! current year of model run
        jday,       &! current julian day of model run
        mcsec        ! current seconds of model run (0 - 86400)

  real, dimension(:), allocatable :: &
        cosz         ! cosine of solar zenith angle

! -----------------------------------------------------------------

  END MODULE clmtv_module