source: LMDZ5/trunk/libf/phylmd/dimphy.F90 @ 2172

Last change on this file since 2172 was 2057, checked in by Ehouarn Millour, 10 years ago

Preparatory stuff to fix and improve the slab ocean model.
FC

  • 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: 788 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  INTEGER,SAVE :: nslay
12
13!$OMP THREADPRIVATE(klon,kfdia,kidia,kdlon,nslay)
14  REAL,save,allocatable,dimension(:) :: zmasq
15!$OMP THREADPRIVATE(zmasq)   
16
17CONTAINS
18 
19  SUBROUTINE Init_dimphy(klon0,klev0)
20  IMPLICIT NONE
21 
22    INTEGER, INTENT(in) :: klon0
23    INTEGER, INTENT(in) :: klev0
24   
25    klon=klon0
26    nslay=1 ! Slab, provisoire (F. Codron)
27    kdlon=klon
28    kidia=1
29    kfdia=klon
30!$OMP MASTER
31    klev=klev0
32    klevp1=klev+1
33    klevm1=klev-1
34    kflev=klev
35!$OMP END MASTER   
36    ALLOCATE(zmasq(klon))   
37   
38  END SUBROUTINE Init_dimphy
39
40 
41END MODULE dimphy
Note: See TracBrowser for help on using the repository browser.