source: codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/dimphy.F90 @ 263

Last change on this file since 263 was 227, checked in by milmd, 10 years ago

Last LMDZ version (1315) with OpenMP directives and other stuff
File size: 705 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, read by master
5  INTEGER,SAVE :: klevp1 ! number of atmospheric layers+1, read by master
6  INTEGER,SAVE :: klevm1 ! number of atmospheric layers-1, read by master
7!  INTEGER,SAVE :: kflev
8
9!$OMP THREADPRIVATE(klon)
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.