source: trunk/LMDZ.MARS/libf/phymars/dimphy.F90 @ 3567

Last change on this file since 3567 was 2616, checked in by romain.vande, 3 years ago

LMDZ_MARS RV : Open_MP;
Put all the "save" variables as "!$OMP THREADPRIVATE" in phymars.
The code can now be tested, see README for more info

File size: 676 bytes
Line 
1MODULE dimphy
2 
3  INTEGER,SAVE :: klon   ! number of atmospheric columns (for this OpenMP subgrid)
4  INTEGER,SAVE :: klev   ! number of atmospheric layers
5  INTEGER,SAVE :: klevp1 ! number of atmospheric layers+1
6  INTEGER,SAVE :: klevm1 ! number of atmospheric layers-1
7!  INTEGER,SAVE :: kflev
8
9!$OMP THREADPRIVATE(klon,klev,klevp1,klevm1)
10
11CONTAINS
12 
13  SUBROUTINE Init_dimphy(klon0,klev0)
14  IMPLICIT NONE
15 
16    INTEGER, INTENT(in) :: klon0
17    INTEGER, INTENT(in) :: klev0
18   
19    klon=klon0
20   
21!$OMP MASTER
22    klev=klev0
23    klevp1=klev+1
24    klevm1=klev-1
25!    kflev=klev
26!$OMP END MASTER   
27!$OMP BARRIER
28   
29  END SUBROUTINE Init_dimphy
30
31 
32END MODULE dimphy
Note: See TracBrowser for help on using the repository browser.