My Project
 All Classes Files Functions Variables Macros
dimphy.F90
Go to the documentation of this file.
1 MODULE dimphy
2 
3  INTEGER,SAVE :: klon
4  INTEGER,SAVE :: kdlon
5  INTEGER,SAVE :: kfdia
6  INTEGER,SAVE :: kidia
7  INTEGER,SAVE :: klev
8  INTEGER,SAVE :: klevp1
9  INTEGER,SAVE :: klevm1
10  INTEGER,SAVE :: kflev
11 
12 !$OMP THREADPRIVATE(klon,kfdia,kidia,kdlon)
13  REAL,save,allocatable,dimension(:) :: zmasq
14 !$OMP THREADPRIVATE(zmasq)
15 
16 CONTAINS
17 
18  SUBROUTINE init_dimphy(klon0,klev0)
19  IMPLICIT NONE
20 
21  INTEGER, INTENT(in) :: klon0
22  INTEGER, INTENT(in) :: klev0
23 
24  klon=klon0
25 
26  kdlon=klon
27  kidia=1
28  kfdia=klon
29 !$OMP MASTER
30  klev=klev0
31  klevp1=klev+1
32  klevm1=klev-1
33  kflev=klev
34 !$OMP END MASTER
35  ALLOCATE(zmasq(klon))
36 
37  END SUBROUTINE init_dimphy
38 
39 
40 END MODULE dimphy