VAR0SV.F90

Go to the documentation of this file.

MODULE var0sv

USE var_sv, only : nsol, nsno 
USE vardsv, only : nsot, nvgt

IMPLICIT NONE
                                                  
      INTEGER    :: islpsv(-nsol:0)                                           
      INTEGER    :: isnpsv(      nsno)                                        
      INTEGER    :: islmsv(-nsol:0)    
                                      
      INTEGER,PARAMETER :: nkhy=50                                            
      REAL       :: implic,explic                                             
      REAL       :: dzmisv(-nsol:0)          ! dz_(i-1/2)                     
      REAL       :: dzi_sv(-nsol:0)          ! dz_(i-1)/(dz_(i)+dz_(i-1))     
      REAL       :: dziisv(-nsol:0)          ! dz_(i)  /(dz_(i)+dz_(i-1))     
      REAL       :: dtz_sv(-nsol:0)          ! dt / dz                        
      REAL       :: dz78sv(-nsol:0)          ! 7/8 (dz)                       
      REAL       :: dz34sv(-nsol:0)          ! 3/4 (dz)                       
      REAL       :: dz_8sv(-nsol:0)          ! 1/8 (dz)                       
      REAL       :: dzavsv(-nsol:0)          ! 1/8dz_(-1)+3/4dz+1/8dz_(+1)    
      REAL       :: ocndsv                   ! Swab Ocean / Soil Ratio        
      REAL       :: rf__sv( 0:nvgt,-nsol:0)  ! Root Fraction                  
      REAL       :: rocssv( 0:nsot)          ! Soil Contribution to (ro c)_s  
      REAL       :: etamsv( 0:nsot)          ! Soil Minimum Humidity          
      REAL       :: s1__sv( 0:nsot)          ! ... X eta**( b+2), DR97(3.36)  
      REAL       :: s2__sv( 0:nsot)          ! ... X eta**(2b+3), DR97(3.35)  
      REAL       :: akdtsv( 0:nsot, 0:nkhy)  ! Khyd=a*eta+b: a * dt           
      REAL       :: bkdtsv( 0:nsot, 0:nkhy)  ! Khyd=a*eta+b: b * dt           

END MODULE var0sv