VARySV.F90

Go to the documentation of this file.

MODULE varysv

USE var_sv, only : klonv, nsol, nsno


IMPLICIT NONE

! +
      INTEGER, DIMENSION(:),SAVE,ALLOCATABLE ::   nlaysv  ! New   Snow     Layer   Switch   
!$OMP THREADPRIVATE(NLaysv)
      INTEGER, DIMENSION(:),SAVE,ALLOCATABLE ::   i_thin  ! Index of the thinest Layer      
!$OMP THREADPRIVATE(i_thin)
      INTEGER, DIMENSION(:),SAVE,ALLOCATABLE ::   lindsv  ! Contiguous Layer relative Index
!$OMP THREADPRIVATE(LIndsv)
      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   albisv  ! Integrated Surface Albedo
!$OMP THREADPRIVATE(albisv)
      !hj prelim                                            
      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   alb1sv  ! Surface Albedo VIS      
!$OMP THREADPRIVATE(alb1sv)
      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   alb2sv  ! Surface Albedo NIR      
!$OMP THREADPRIVATE(alb2sv)
      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   alb3sv  ! Surface Albedo FIR      
!$OMP THREADPRIVATE(alb3sv)

      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   albssv  ! Soil               Albedo [-]   
!$OMP THREADPRIVATE(albssv)
      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   socasv  ! Canopy  Absorbed Solar Radiat.  
!$OMP THREADPRIVATE(SoCasv)
      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   sososv  !? Surface Absorbed Solar Radiat.  
!$OMP THREADPRIVATE(SoSosv)
      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   irv_sv  ! Vegetation IR Flux  [W/m2]      
!$OMP THREADPRIVATE(IRv_sv)
      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   evg_sv  ! Emissivity of Vegetation+Snow   
!$OMP THREADPRIVATE(Evg_sv)
      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   eso_sv  !? Emissivity of       Soil+Snow   
!$OMP THREADPRIVATE(Eso_sv)
      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   tau_sv  ! Transmited Radiation Fraction   
!$OMP THREADPRIVATE(tau_sv)
      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   rrmxsv  ! Canopy Maximum Intercepted Rain 
!$OMP THREADPRIVATE(rrMxsv)
      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   laiesv  ! effective LAI for transpirati.  
!$OMP THREADPRIVATE(LAIesv)
      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   lai_sv  ! corrected LAI in case of snow   
!$OMP THREADPRIVATE(LAI_sv)
      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   glf_sv  ! Green  Leaf Fraction            
!$OMP THREADPRIVATE(glf_sv)
      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   sigmsv  ! Canopy Ventilation  Factor      
!$OMP THREADPRIVATE(Sigmsv)
      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   hsv_sv  ! Sensible Heat Flux  [W/m2]      
!$OMP THREADPRIVATE(HSv_sv)
      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   hlv_sv  ! Latent   Heat Flux  [W/m2]      
!$OMP THREADPRIVATE(HLv_sv)
      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   hss_sv  !? Sensible Heat Flux (t)          
!$OMP THREADPRIVATE(HSs_sv)
      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   hls_sv  !? Latent   Heat Flux (t)          
!$OMP THREADPRIVATE(HLs_sv)
      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   sqrcm0  ! in Neutral Drag Coef.Moment.    
!$OMP THREADPRIVATE(sqrCm0)
      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   sqrch0  ! in Neutral Drag Coef.Heat       
!$OMP THREADPRIVATE(sqrCh0)
      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   lx_h2o  ! Latent Heat of Vaporiz./Sublim. 
!$OMP THREADPRIVATE(Lx_H2O)
      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   ram_sv  ! Aerodyn.Resistance (Moment.)    
!$OMP THREADPRIVATE(ram_sv)
      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   rah_sv  ! Aerodyn.Resistance (Heat)       
!$OMP THREADPRIVATE(rah_sv)
      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   fh__sv  ! Stability Function              
!$OMP THREADPRIVATE(Fh__sv)
      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   dfh_sv  ! Stability Function (Deriv.)     
!$OMP THREADPRIVATE(dFh_sv)
      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   evp_sv  !x Evaporation        [kg/m2]      
!$OMP THREADPRIVATE(Evp_sv)
      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   evt_sv  !x Evapotranspiration [kg/m2]      
!$OMP THREADPRIVATE(EvT_sv)
      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   lsdzsv  ! Land/Sea Vert. Discretiz. Fact. 
!$OMP THREADPRIVATE(LSdzsv)
      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   tsrfsv  ! Surface    Temperature          
!$OMP THREADPRIVATE(Tsrfsv)
      REAL,SAVE,ALLOCATABLE  ::   sex_sv(:,:)  ! Verticaly Integr.Extinct.Coef.  
!$OMP THREADPRIVATE(sEX_sv)
      REAL,SAVE,ALLOCATABLE  ::   zzsnsv(:,:)    ! Snow  Pack Thickness      [m]   
!$OMP THREADPRIVATE(zzsnsv)
      REAL,SAVE,ALLOCATABLE  ::   psi_sv(:,:)    ! Soil   Water        Potential   
!$OMP THREADPRIVATE(psi_sv)
      REAL,SAVE,ALLOCATABLE  ::   khydsv(:,:)    ! Soil   Hydraulic    Conductiv.  
!$OMP THREADPRIVATE(Khydsv)
      REAL,SAVE,ALLOCATABLE  ::   rootsv(:,:)       ! Root Water Pump      [kg/m2/s]  
!$OMP THREADPRIVATE(Rootsv)
      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   eexcsv  ! Energy in Excess, current       
!$OMP THREADPRIVATE(EExcsv)

CONTAINS
  SUBROUTINE init_varysv
  IMPLICIT NONE
      INTEGER                ::   ikl

      ALLOCATE(nlaysv(klonv))  ! New   Snow     Layer   Switch   
      ALLOCATE(i_thin(klonv))  ! Index of the thinest Layer      
      ALLOCATE(lindsv(klonv))  ! Contiguous Layer relative Index
      ALLOCATE(albisv(klonv))  ! Integrated Surface Albedo
      !hj prelim                                            
      ALLOCATE(alb1sv(klonv))  ! Surface Albedo VIS      
      ALLOCATE(alb2sv(klonv))  ! Surface Albedo NIR      
      ALLOCATE(alb3sv(klonv))  ! Surface Albedo FIR       

      !
      ALLOCATE(albssv(klonv))  ! Soil               Albedo [-]   
      ALLOCATE(socasv(klonv))  ! Canopy  Absorbed Solar Radiat.  
      ALLOCATE(sososv(klonv))  !? Surface Absorbed Solar Radiat.  
      ALLOCATE(irv_sv(klonv))  ! Vegetation IR Flux  [W/m2]      
      ALLOCATE(evg_sv(klonv))  ! Emissivity of Vegetation+Snow   
      ALLOCATE(eso_sv(klonv))  !? Emissivity of       Soil+Snow   
      ALLOCATE(tau_sv(klonv))  ! Transmited Radiation Fraction   
      ALLOCATE(rrmxsv(klonv))  ! Canopy Maximum Intercepted Rain 
      ALLOCATE(laiesv(klonv))  ! effective LAI for transpirati.  
      ALLOCATE(lai_sv(klonv))  ! corrected LAI in case of snow   
      ALLOCATE(glf_sv(klonv))  ! Green  Leaf Fraction            
      ALLOCATE(sigmsv(klonv))  ! Canopy Ventilation  Factor      
      ALLOCATE(hsv_sv(klonv))  ! Sensible Heat Flux  [W/m2]      
      ALLOCATE(hlv_sv(klonv))  ! Latent   Heat Flux  [W/m2]      
      ALLOCATE(hss_sv(klonv))  !? Sensible Heat Flux (t)          
      ALLOCATE(hls_sv(klonv))  !? Latent   Heat Flux (t)          
      ALLOCATE(sqrcm0(klonv))  ! in Neutral Drag Coef.Moment.    
      ALLOCATE(sqrch0(klonv))  ! in Neutral Drag Coef.Heat       
      ALLOCATE(lx_h2o(klonv))  ! Latent Heat of Vaporiz./Sublim. 
      ALLOCATE(ram_sv(klonv))  ! Aerodyn.Resistance (Moment.)    
      ALLOCATE(rah_sv(klonv))  ! Aerodyn.Resistance (Heat)       
      ALLOCATE(fh__sv(klonv))  ! Stability Function              
      ALLOCATE(dfh_sv(klonv))  ! Stability Function (Deriv.)     
      ALLOCATE(evp_sv(klonv))  !x Evaporation        [kg/m2]      
      ALLOCATE(evt_sv(klonv))  !x Evapotranspiration [kg/m2]      
      ALLOCATE(lsdzsv(klonv))  ! Land/Sea Vert. Discretiz. Fact. 
      ALLOCATE(tsrfsv(klonv))  ! Surface    Temperature          
      ALLOCATE(sex_sv(klonv,-nsol:nsno+1))  ! Verticaly Integr.Extinct.Coef.  
      ALLOCATE(zzsnsv(klonv,    0:nsno))    ! Snow  Pack Thickness      [m]   
      ALLOCATE(psi_sv(klonv,-nsol:0   ))    ! Soil   Water        Potential   
      ALLOCATE(khydsv(klonv,-nsol:0   ))    ! Soil   Hydraulic    Conductiv.  
      ALLOCATE(rootsv(klonv,-nsol:0))       ! Root Water Pump      [kg/m2/s]  
      ALLOCATE(eexcsv(klonv))  ! Energy in Excess, current         

      DO ikl=1,klonv
        nlaysv(ikl)   = 0
        i_thin(ikl)   = 0
        lindsv(ikl)   = 0
      END DO

  END SUBROUTINE init_varysv

END MODULE varysv