clm2d_module.f90

来自「CLM集合卡曼滤波数据同化算法」· F90 代码 · 共 90 行

   MODULE clm2d_module

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

         IMPLICIT NONE

! ------------------- input variables -----------------------------

   real, dimension(:,:), allocatable :: &      !(lon,lat)
         pgcmxy,    &! atm bottom level pressure (pa)
         psrfxy,    &! surface pressure (pa)
         pco2xy,    &!
         po2xy,     &!
         ugcmxy,    &! atm bottom level zonal wind (m/s)
         vgcmxy,    &! atm bottom level meridional wind (m/s)
         tgcmxy,    &! atm bottom level temperature (kelvin)
         qgcmxy,    &! atm btm level specific humidity (kg/kg)

         prcxy,     &! atm convective precipitation rate (mm h2o/s)
         prlxy,     &! atm large-scale precipitation rate (mm h2o/s)
         flwdsxy,   &! atm downward longwave rad onto surface (w/m**2)
         solsxy,    &! atm vis direct beam solar rad onto srf (w/m**2)
         sollxy,    &! atm nir direct beam solar rad onto srf (w/m**2)
         solsdxy,   &! atm vis diffuse solar rad onto srf (w/m**2)
         solldxy     ! atm nir diffuse solar rad onto srf(w/m**2)

   real, dimension(:,:,:), allocatable :: &    !(lon,lat,3)
         zgcmxy      ! atm btm level height above surface (m)

! ------------------- output variables ----------------------------
   real, dimension(:,:), allocatable :: &      !(lon,lat)
         shxy,      &! sensible heat flux (w/m**2) [+ to atm]
         lhxy,      &! latent heat flux (w/m**2) [+ to atm]
         tauxxy,    &! zonal surface stress (kg/m/s**2)
         tauyxy,    &! meridional surface stress (kg/m/s**2)
         tsxy,      &! surface radiative temperature (kelvin)
         lwupxy,    &! longwave up flux (W/m**2)
         trefxy,    &! 2 m height air temperature (kelvin)
         asdirxy,   &! albedo -- visible waveband, direct
         asdifxy,   &! albedo -- visible waveband, diffuse
         aldirxy,   &! albedo -- near infrared waveband, direct
         aldifxy,   &! albedo -- near infrared waveband, diffuse
         scv2xy,    &! snow  liquid water equivalent (mm)
         oroxy       ! 0 = non-land. 1 = land

   real, dimension(:,:,:), allocatable :: &      !(lon,2,lat)
         cfxy        ! const fluxes (kg/m**2/s) [+ to atm]

! ------------------- additional output variables -----------------
! return these land surface fields to atmospheric model so they can
! be written to atm history files

   real, dimension(:,:), allocatable :: &      !(lon,lat)
         tgxy,      &! ground surface temperature [K]
         fsnoxy,    &! fraction of snow cover on ground
         sigfxy,    &! fraction of veg cover, excluding snow-covered veg [-]
         tlsunxy,   &! sunlit leaf temperature [K]
         tlshaxy,   &! shaded leaf temperature [K]
         ldewxy,    &! depth of water on foliage [mm]
         sagxy,     &! non dimensional snow age [-]
         snowdpxy    ! snow depth [meter]

   real, dimension(:,:,:), allocatable :: &    !(lon,lat,10)
         soitemxy,  &! soil temperature [K]
         soiliqxy,  &! liquid water in layers [kg/m2]
         soiicexy    ! ice lens in layers [kg/m2]

   real, dimension(:,:), allocatable :: &      !(lon,lat)
         fsenlxy,   &! sensible heat from leaves [W/m2]
         fevplxy,   &! evaporation+transpiration from leaves [mm/s]
         etrxy,     &! transpiration rate [mm/s]
         fsengxy,   &! sensible heat flux from ground [W/m2]
         fevpgxy,   &! evaporation heat flux from ground [mm/s]
         fgrndxy,   &! ground heat flux [W/m2]
         rsurxy,    &! surface runoff (mm h2o/s)
         rnofxy,    &! total runoff (mm h2o/s)
         rstxy,     &!
         assimxy,   &!
         respcxy,   &!

         sabvxy,    &! solar absorbed by vegetation [W/m2]
         sabgxy,    &! solar absorbed by ground  [W/m2]
         sabvgxy     ! solar absorbed by ground + vegetation [W/m2]

   END MODULE clm2d_module