source: LMDZ6/branches/Amaury_dev/libf/phylmd/dimphy.F90 @ 5134

Last change on this file since 5134 was 5117, checked in by abarral, 4 months ago

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords
  • 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 5117 2024-07-24 14:23:34Z abarral $
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.