Ignore:
Timestamp:
Jun 7, 2007, 12:01:52 PM (17 years ago)
Author:
Laurent Fairhead
Message:

Suite du merge entre la version et la HEAD: quelques modifications
de Yann sur le
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/phylmd/dimphy.F90

    r766 r776  
    1 module dimphy
    2   USE mod_phys_mpi
    3   USE mod_phys_openmp
    4 end module dimphy
     1MODULE dimphy
     2 
     3  INTEGER,SAVE :: klon
     4  INTEGER,SAVE :: kdlon
     5  INTEGER,SAVE :: kfdia
     6  INTEGER,SAVE :: kidia
     7  INTEGER,SAVE :: nbtr
     8  INTEGER,SAVE :: klev
     9  INTEGER,SAVE :: klevp1
     10  INTEGER,SAVE :: klevm1
     11  INTEGER,SAVE :: kflev
     12
     13!$OMP THREADPRIVATE(klon,kfdia,kidia,kdlon)
     14  REAL,save,allocatable,dimension(:) :: zmasq
     15!$OMP THREADPRIVATE(zmasq)   
     16
     17CONTAINS
     18 
     19  SUBROUTINE Init_dimphy(klon0,klev0,nbtr0)
     20  IMPLICIT NONE
     21 
     22    INTEGER, INTENT(in) :: klon0
     23    INTEGER, INTENT(in) :: klev0
     24    INTEGER, INTENT(in) :: nbtr0
     25   
     26    klon=klon0
     27   
     28    kdlon=klon
     29    kidia=1
     30    kfdia=klon
     31!$OMP MASTER
     32    klev=klev0
     33    nbtr=nbtr0
     34    klevp1=klev+1
     35    klevm1=klev-1
     36    kflev=klev
     37!$OMP END MASTER   
     38    ALLOCATE(zmasq(klon))   
     39   
     40  END SUBROUTINE Init_dimphy
     41
     42 
     43END MODULE dimphy
Note: See TracChangeset for help on using the changeset viewer.