source: LMDZ5/branches/LF-private/libf/phylmd/sisvat/VAR0SV.F90 @ 2871

Last change on this file since 2871 was 1865, checked in by Laurent Fairhead, 11 years ago

Inclusion de la bibliothèque SISVAT/MAR à LMDZ pour le traitement des surfaces
"land ice"

  1. Menegoz

Integration of the SISVAT/MAR library to LMDZ to model the land ice surfaces

  1. Menegoz
File size: 1.8 KB
Line 
1MODULE VAR0SV
2
3USE VAR_SV, only : nsol, nsno
4USE VARdSV, only : nsot, nvgt
5
6IMPLICIT NONE
7                                                 
8      INTEGER    :: islpSV(-nsol:0)                                           
9      INTEGER    :: isnpSV(      nsno)                                       
10      INTEGER    :: islmSV(-nsol:0)   
11                                     
12      INTEGER,PARAMETER :: nkhy=50                                           
13      REAL       :: Implic,Explic                                             
14      REAL       :: dzmiSV(-nsol:0)          ! dz_(i-1/2)                     
15      REAL       :: dzi_SV(-nsol:0)          ! dz_(i-1)/(dz_(i)+dz_(i-1))     
16      REAL       :: dziiSV(-nsol:0)          ! dz_(i)  /(dz_(i)+dz_(i-1))     
17      REAL       :: dtz_SV(-nsol:0)          ! dt / dz                       
18      REAL       :: dz78SV(-nsol:0)          ! 7/8 (dz)                       
19      REAL       :: dz34SV(-nsol:0)          ! 3/4 (dz)                       
20      REAL       :: dz_8SV(-nsol:0)          ! 1/8 (dz)                       
21      REAL       :: dzAvSV(-nsol:0)          ! 1/8dz_(-1)+3/4dz+1/8dz_(+1)   
22      REAL       :: OcndSV                   ! Swab Ocean / Soil Ratio       
23      REAL       :: RF__SV( 0:nvgt,-nsol:0)  ! Root Fraction                 
24      REAL       :: rocsSV( 0:nsot)          ! Soil Contribution to (ro c)_s 
25      REAL       :: etamSV( 0:nsot)          ! Soil Minimum Humidity         
26      REAL       :: s1__SV( 0:nsot)          ! ... X eta**( b+2), DR97(3.36) 
27      REAL       :: s2__SV( 0:nsot)          ! ... X eta**(2b+3), DR97(3.35) 
28      REAL       :: aKdtSV( 0:nsot, 0:nkhy)  ! Khyd=a*eta+b: a * dt           
29      REAL       :: bKdtSV( 0:nsot, 0:nkhy)  ! Khyd=a*eta+b: b * dt           
30
31END MODULE VAR0SV
Note: See TracBrowser for help on using the repository browser.