miscell_module.f90

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

  MODULE miscell_module

!=======================================================================
!      Source file: miscell_module.f90
! Original version: Yongjiu Dai, September 15, 1999
!
! miscellaneous variables
!=======================================================================

        IMPLICIT NONE

! Forcing
  real, dimension(:), allocatable :: &
        sols,      &! atm vis direct beam solar rad onto srf [W/m2]
        soll,      &! atm nir direct beam solar rad onto srf [W/m2]
        solsd,     &! atm vis diffuse solar rad onto srf [W/m2]
        solld,     &! atm nir diffuse solar rad onto srf [W/m2]
        frl,       &! atmospheric infrared (longwave) radiation [W/m2]
        pco2m,     &!
        po2m,      &!
        us,        &! wind in eastward direction [m/s]
        vs,        &! wind in northward direction [m/s]
        tm,        &! temperature at reference height [kelvin]
        qm,        &! specific humidity at reference height [kg/kg]
        rainrate,  &! rain rate [mm/s]
        snowrate,  &! snow rate [mm/s]
        psrf,      &! atmospheric pressure at the surface [pa]
        rhoair,    &! air density [kg/m3]
        hu,        &! observational height of wind [m]
        ht,        &! observational height of temperature [m]
        hq          ! observational height of humidity [m]

  integer, dimension(:), allocatable :: &
       iptype       ! precipitation type (from met data) 1= rain 2 =snow

! Fluxes
  real, dimension(:), allocatable :: & 
        taux,      &! wind stress: E-W [kg/m/s**2]
        tauy,      &! wind stress: N-S [kg/m/s**2]
        fsena,     &! sensible heat from canopy height to atmosphere [W/m2]
        fevpa,     &! evapotranspiration from canopy to atmosphere [mm/s]
        lfevpa,    &! latent heat flux from canopy height to atmosphere [W/m2]
        fsenl,     &! sensible heat from leaves [W/m2]
        fevpl,     &! evaporation+transpiration from leaves [mm/s]
        etr,       &! transpiration rate [mm/s]
        fseng,     &! sensible heat flux from ground [W/m2]
        fevpg,     &! evaporation heat flux from ground [mm/s]
        olrg,      &! outgoing long-wave radiation from ground+canopy
        fgrnd,     &! ground heat flux [W/m2]
        trad,      &! radiative temperature of surface [K]
        tref,      &! 2 m height air temperature [kelvin]
        rsur,      &! surface runoff (mm h2o/s)
        rnof,      &! total runoff (mm h2o/s)
        rst,       &!
        assim,     &!
        respc       !

!  Albedo and net solar radiation
  real, dimension(:), allocatable :: &
        parsun,    &!
        parsha,    &!
        sabvsun,   &! solar absorbed by sunlit vegetation [W/m2]
        sabvsha,   &! solar absorbed by shaded vegetation [W/m2]
        sabg,      &! solar absorbed by ground  [W/m2]
        sabvg       ! solar absorbed by ground + vegetation [W/m2]

! for temporary use
  real, dimension(:), allocatable :: &
        totwb,     &! total water in [n] time step [mm]
        errore,    &! error of energy banace in current time step
        wt,        &! fraction of vegetation buried (covered) by snow [-]
        ssw         ! water volumetric content of soil surface layer [m3/m3]

  END MODULE miscell_module