source: LMDZ6/trunk/libf/phylmd/dimphy.f90 @ 5410

Last change on this file since 5410 was 5268, checked in by abarral, 8 weeks ago

.f90 <-> .F90 depending on cpp key use
  • 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
RevLine 
[3442]1!
2! $Id: dimphy.f90 5268 2024-10-23 17:02:39Z fairhead $
3!
4  MODULE dimphy
[776]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
[2656]15!$OMP THREADPRIVATE(klon,kfdia,kidia,kdlon)
[776]16  REAL,save,allocatable,dimension(:) :: zmasq
17!$OMP THREADPRIVATE(zmasq)   
18
19CONTAINS
20 
[1146]21  SUBROUTINE Init_dimphy(klon0,klev0)
[776]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))   
[3435]38    zmasq=0.
[776]39   
40  END SUBROUTINE Init_dimphy
41
[3442]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
[776]46 
[3442]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 
[776]62END MODULE dimphy
Note: See TracBrowser for help on using the repository browser.