source: LMDZ6/trunk/libf/phylmd/inlandsis/VAR_SV.f90 @ 5435

Last change on this file since 5435 was 5273, checked in by abarral, 2 months ago

Turn dimsoil.h into a module

File size: 598 bytes
RevLine 
[3792]1MODULE VAR_SV
[5273]2      USE dimsoil_mod_h, ONLY: nsoilmx, nsnowmx
3IMPLICIT NONE; PRIVATE
4      PUBLIC nsol, nsot, nsno, nb_wri, klonv, knonv
[3792]5
6! +
7! +   LMDZ_SV dims
8! +   ===================
9! +
10!      INTEGER,PARAMETER :: nsol=nsoilmx-1
11!      INTEGER,PARAMETER :: nsno=nsnowmx
12     
13      INTEGER, PARAMETER    :: nsol=nsoilmx-1
14      INTEGER, PARAMETER    :: nsot=nsoilmx+1
15      INTEGER, PARAMETER    :: nsno=nsnowmx
16      INTEGER, PARAMETER    :: nb_wri=1
17      INTEGER,SAVE      :: klonv
18!$OMP THREADPRIVATE(klonv)
19      INTEGER,SAVE      :: knonv
20!$OMP THREADPRIVATE(knonv)
21
22
23
24END MODULE VAR_SV
Note: See TracBrowser for help on using the repository browser.