source: LMDZ5/branches/testing/libf/phylmd/sisvat/VAR_SV.F90

Last change on this file was 1910, checked in by Laurent Fairhead, 11 years ago

Merged trunk changes r1860:1909 into testing branch

  • 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: 425 bytes
Line 
1MODULE VAR_SV
2
3IMPLICIT NONE
4! +
5! +   LMDZ_SV dims
6! +   ===================
7! +
8!      INTEGER,PARAMETER :: nsol=nsoilmx-1
9!      INTEGER,PARAMETER :: nsno=nsnowmx
10      INTEGER,PARAMETER    :: nsol=10      !8
11      INTEGER,PARAMETER    :: nsno=35
12      INTEGER,PARAMETER :: nb_wri=1
13      INTEGER,SAVE      :: klonv
14!$OMP THREADPRIVATE(klonv)
15      INTEGER,SAVE      :: knonv
16!$OMP THREADPRIVATE(knonv)
17
18END MODULE VAR_SV
Note: See TracBrowser for help on using the repository browser.