Context Navigation

dimphy.f90 @ 224

Last change on this file since 224 was 224, checked in by ymipsl, 10 years ago

File size: 657 bytes

Line
1	MODULE 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)
10
11	CONTAINS
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
32	END MODULE dimphy

Note: See TracBrowser for help on using the repository browser.