source: LMDZ4/trunk/libf/phylmd/dimphy.F90 @ 1123

Last change on this file since 1123 was 776, checked in by Laurent Fairhead, 18 years ago

Suite du merge entre la version et la HEAD: quelques modifications
de Yann sur le

LF

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 798 bytes
RevLine 
[776]1MODULE dimphy
2 
3  INTEGER,SAVE :: klon
4  INTEGER,SAVE :: kdlon
5  INTEGER,SAVE :: kfdia
6  INTEGER,SAVE :: kidia
7  INTEGER,SAVE :: nbtr
8  INTEGER,SAVE :: klev
9  INTEGER,SAVE :: klevp1
10  INTEGER,SAVE :: klevm1
11  INTEGER,SAVE :: kflev
12
13!$OMP THREADPRIVATE(klon,kfdia,kidia,kdlon)
14  REAL,save,allocatable,dimension(:) :: zmasq
15!$OMP THREADPRIVATE(zmasq)   
16
17CONTAINS
18 
19  SUBROUTINE Init_dimphy(klon0,klev0,nbtr0)
20  IMPLICIT NONE
21 
22    INTEGER, INTENT(in) :: klon0
23    INTEGER, INTENT(in) :: klev0
24    INTEGER, INTENT(in) :: nbtr0
25   
26    klon=klon0
27   
28    kdlon=klon
29    kidia=1
30    kfdia=klon
31!$OMP MASTER
32    klev=klev0
33    nbtr=nbtr0
34    klevp1=klev+1
35    klevm1=klev-1
36    kflev=klev
37!$OMP END MASTER   
38    ALLOCATE(zmasq(klon))   
39   
40  END SUBROUTINE Init_dimphy
41
42 
43END MODULE dimphy
Note: See TracBrowser for help on using the repository browser.