VARtSV.F90

Go to the documentation of this file.

MODULE vartsv

USE var_sv, only : nsol, nsno, klonv

IMPLICIT NONE
! +
      INTEGER, PARAMETER      ::   ntaver = 4
! +
      REAL,ALLOCATABLE,SAVE                ::   toicsv(:)    ! Snow to ice balance    
!$OMP THREADPRIVATE(toicSV)

      REAL,ALLOCATABLE,SAVE                ::   dz1_sv(:,:) ! "inverse" layer thicknes
!$OMP THREADPRIVATE(dz1_SV)
      REAL,ALLOCATABLE,SAVE                ::   dz2_sv(:,:) ! layer thickness
!$OMP THREADPRIVATE(dz2_SV)
      REAL, DIMENSION(:),ALLOCATABLE,SAVE  ::   tsf_sv  ! surface temperature !hj12032010
!$OMP THREADPRIVATE(Tsf_SV)
      REAL, DIMENSION(:),ALLOCATABLE,SAVE  ::   tsfnsv  ! new surface temperature 
!$OMP THREADPRIVATE(TsfnSV)
      REAL, DIMENSION(:),ALLOCATABLE,SAVE  ::   acohsv, bcohsv ! coefficients for Enthalpy
!$OMP THREADPRIVATE(AcoHSV, BcoHSV)                             ! evolution,from atmosphere
      REAL, DIMENSION(:),ALLOCATABLE,SAVE  ::   acoqsv, bcoqsv ! coefficients for Humidity
!$OMP THREADPRIVATE( AcoQSV, BcoQSV)                            ! evolution,from atmosphere
      REAL, DIMENSION(:),ALLOCATABLE,SAVE  ::   ps__sv  ! surface pressure 
!$OMP THREADPRIVATE(ps__SV)
      REAL, DIMENSION(:),ALLOCATABLE,SAVE  ::   p1l_sv  ! 1st layer pressure 
!$OMP THREADPRIVATE(p1l_SV)
      REAL, DIMENSION(:),ALLOCATABLE,SAVE  ::   cdh_sv  ! drag coeff Energy (?)
!$OMP THREADPRIVATE(cdH_SV)
      REAL, DIMENSION(:),ALLOCATABLE,SAVE  ::   rsolsv  ! Radiation balance surface
!$OMP THREADPRIVATE(rsolSV)
      REAL,SAVE                            ::   lambsv  ! coefficient soil layers
!$OMP THREADPRIVATE(lambSV)

                                                                   ! #AW 
      REAL, ALLOCATABLE,SAVE               ::   v__mem(:,:)                         
!$OMP THREADPRIVATE(V__mem)                                        ! #AW
      REAL, ALLOCATABLE,SAVE               ::   vvmmem(:)                              
!$OMP THREADPRIVATE(VVmmem)                                        ! #AH 
      REAL, ALLOCATABLE,SAVE               ::   t__mem(:,:)                           
!$OMP THREADPRIVATE(T__mem)                                        ! #AH 
      REAL, ALLOCATABLE,SAVE               ::   dtmmem(:)                             
!$OMP THREADPRIVATE(dTmmem)
        
CONTAINS

  SUBROUTINE init_vartsv
  IMPLICIT NONE
  
      ALLOCATE(toicsv(klonv))

      ALLOCATE(dz1_sv(klonv,-nsol:nsno))     ! "inverse" layer thicknes
      ALLOCATE(dz2_sv(klonv,-nsol:nsno))     ! layer thickness
      ALLOCATE(tsf_sv(klonv))                ! surface temperature !hj12032010
      ALLOCATE(tsfnsv(klonv))                ! new surface temperature 
      ALLOCATE(acohsv(klonv), bcohsv(klonv)) ! coefficients for Enthalpy
                                             ! evolution,from atmosphere
      ALLOCATE(acoqsv(klonv), bcoqsv(klonv)) ! coefficients for Humidity
                                             ! evolution,from atmosphere
      ALLOCATE(ps__sv(klonv))                ! surface pressure 
      ALLOCATE(p1l_sv(klonv))                ! 1st layer pressure 
      ALLOCATE(cdh_sv(klonv))                ! drag coeff Energy (?)
      ALLOCATE(rsolsv(klonv))                ! Radiation balance surface

                                                                   ! #AW
      ALLOCATE(v__mem(klonv,ntaver))                               ! #AW
      ALLOCATE(vvmmem(klonv))                                      ! #AH
      ALLOCATE(t__mem(klonv,ntaver))                               ! #AH
      ALLOCATE(dtmmem(klonv))
  END SUBROUTINE init_vartsv

END MODULE vartsv