clm2d_allocate.f90

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

  SUBROUTINE clm2d_allocate (lon, lat, msl)

!=======================================================================
!      Source file: clm2d_allocate.f90
! Original version: Yongjiu Dai, September 15, 1999
!
! Allocates memory for CLM 2d field
!=======================================================================

      USE clm2d_module

      IMPLICIT NONE
      
      integer, INTENT(in) :: & 
              lon,   &! atm number of longitudes
              lat,   &! atm number of latitudes
              msl     ! number of soil layer

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

      allocate (pgcmxy (lon,lat))
      allocate (psrfxy (lon,lat))
      allocate (pco2xy (lon,lat))
      allocate (po2xy  (lon,lat))
      allocate (ugcmxy (lon,lat))
      allocate (vgcmxy (lon,lat))
      allocate (tgcmxy (lon,lat))
      allocate (qgcmxy (lon,lat))
      allocate (zgcmxy (lon,lat,3))

      allocate (prcxy  (lon,lat))
      allocate (prlxy  (lon,lat))
      allocate (flwdsxy(lon,lat))
      allocate (solsxy (lon,lat))
      allocate (sollxy (lon,lat))
      allocate (solsdxy(lon,lat))
      allocate (solldxy(lon,lat))

! ------------------- output variables ----------------------------
      allocate (shxy   (lon,lat))
      allocate (lhxy   (lon,lat))
      allocate (cfxy   (lon,2,lat))
      allocate (tauxxy (lon,lat))
      allocate (tauyxy (lon,lat))
      allocate (tsxy   (lon,lat))
      allocate (lwupxy (lon,lat))
      allocate (trefxy (lon,lat))
      allocate (asdirxy(lon,lat))
      allocate (asdifxy(lon,lat))
      allocate (aldirxy(lon,lat))
      allocate (aldifxy(lon,lat))
      allocate (scv2xy (lon,lat))
      allocate (oroxy  (lon,lat))

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

      allocate (tgxy    (lon,lat))
      allocate (fsnoxy  (lon,lat))
      allocate (sigfxy  (lon,lat))
      allocate (tlsunxy (lon,lat))
      allocate (tlshaxy (lon,lat))
      allocate (ldewxy  (lon,lat))
      allocate (sagxy   (lon,lat))
      allocate (snowdpxy(lon,lat))

      allocate (soitemxy (lon,lat,msl))
      allocate (soiliqxy (lon,lat,msl))
      allocate (soiicexy (lon,lat,msl))

      allocate (fsenlxy (lon,lat))
      allocate (fevplxy (lon,lat))
      allocate (etrxy   (lon,lat))
      allocate (fsengxy (lon,lat))
      allocate (fevpgxy (lon,lat))
      allocate (fgrndxy (lon,lat))
      allocate (rsurxy  (lon,lat))
      allocate (rnofxy  (lon,lat))
      allocate (rstxy   (lon,lat))
      allocate (assimxy (lon,lat))
      allocate (respcxy (lon,lat))

      allocate (sabvxy  (lon,lat))
      allocate (sabgxy  (lon,lat))
      allocate (sabvgxy (lon,lat))

  END SUBROUTINE clm2d_allocate