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

Last change on this file since 4038 was 2656, checked in by Ehouarn Millour, 8 years ago

Making the slab work:

  • added a slab_heat_transp_mod module for horizontal diffusion and Ekman transport
  • added storage and output of relevent variables in phyredem, phyetat0, phy_output_ctrlout_mod, phys_output_write_mod
  • moved nslay (number of slab layers) out of dimphy into ocean_slab_mod.

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