source: LMDZ6/trunk/libf/phylmd/dimphy.F90 @ 3805

Last change on this file since 3805 was 3442, checked in by Laurent Fairhead, 6 years ago

Following merging of DYNAMICO/LMDZ branches, modifications needed for the 1D LMDZ model
Added a 1D special version of dimphy which is called before the real dimphy in lmdz1d
MPL
  • 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 Id
File size: 1.1 KB
Line 
1!
2! $Id: dimphy.F90 3442 2019-01-25 10:12:29Z asima $
3!
4  MODULE dimphy
5 
6  INTEGER,SAVE :: klon
7  INTEGER,SAVE :: kdlon
8  INTEGER,SAVE :: kfdia
9  INTEGER,SAVE :: kidia
10  INTEGER,SAVE :: klev
11  INTEGER,SAVE :: klevp1
12  INTEGER,SAVE :: klevm1
13  INTEGER,SAVE :: kflev
14
15!$OMP THREADPRIVATE(klon,kfdia,kidia,kdlon)
16  REAL,save,allocatable,dimension(:) :: zmasq
17!$OMP THREADPRIVATE(zmasq)   
18
19CONTAINS
20 
21  SUBROUTINE Init_dimphy(klon0,klev0)
22  IMPLICIT NONE
23 
24    INTEGER, INTENT(in) :: klon0
25    INTEGER, INTENT(in) :: klev0
26   
27    klon=klon0
28    kdlon=klon
29    kidia=1
30    kfdia=klon
31!$OMP MASTER
32    klev=klev0
33    klevp1=klev+1
34    klevm1=klev-1
35    kflev=klev
36!$OMP END MASTER   
37    ALLOCATE(zmasq(klon))   
38    zmasq=0.
39   
40  END SUBROUTINE Init_dimphy
41
42  SUBROUTINE Init_dimphy1D(klon0,klev0)
43! 1D special version of dimphy without ALLOCATE(zmasq)
44! which will be allocated in iniphysiq
45  IMPLICIT NONE
46 
47    INTEGER, INTENT(in) :: klon0
48    INTEGER, INTENT(in) :: klev0
49   
50    klon=klon0
51    kdlon=klon
52    kidia=1
53    kfdia=klon
54    klev=klev0
55    klevp1=klev+1
56    klevm1=klev-1
57    kflev=klev
58   
59  END SUBROUTINE Init_dimphy1D
60
61 
62END MODULE dimphy
Note: See TracBrowser for help on using the repository browser.