source: LMDZ6/branches/LMDZ-ECRAD/libf/phylmd/sisvat/VAR0SV.F90 @ 3879

Last change on this file since 3879 was 1907, checked in by lguez, 11 years ago

Added a copyright property to every file of the distribution, except
for the fcm files (which have their own copyright). Use svn propget on
a file to see the copyright. For instance:

$ svn propget copyright libf/phylmd/physiq.F90
Name of program: LMDZ
Creation date: 1984
Version: LMDZ5
License: CeCILL version 2
Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
See the license file in the root directory

Also added the files defining the CeCILL version 2 license, in French
and English, at the top of the LMDZ tree.
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
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.