source: LMDZ5/branches/LMDZ5_SPLA/libf/phylmd/dimphy.F90 @ 3618

Last change on this file since 3618 was 1907, checked in by lguez, 11 years ago

Added a copyright property to every file of the distribution, except
for the fcm files (which have their own copyright). Use svn propget on
a file to see the copyright. For instance:

$ svn propget copyright libf/phylmd/physiq.F90
Name of program: LMDZ
Creation date: 1984
Version: LMDZ5
License: CeCILL version 2
Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
See the license file in the root directory

Also added the files defining the CeCILL version 2 license, in French
and English, at the top of the LMDZ tree.
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 720 bytes
Line 
1MODULE 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
16CONTAINS
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 
40END MODULE dimphy
Note: See TracBrowser for help on using the repository browser.