source: LMDZ6/trunk/libf/dyn3dmem/temps_mod.f90 @ 5456

Last change on this file since 5456 was 5268, checked in by abarral, 2 months 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
File size: 1.3 KB
RevLine 
[1632]1!
[2601]2! $Id: temps_mod.F90 -1   $
[1632]3!
[2601]4MODULE temps_mod
[1632]5
[2601]6IMPLICIT NONE 
[1632]7
[2601]8  INTEGER   itaufin ! total number of dynamical steps for the run
9  INTEGER   itau_dyn
10  INTEGER   itau_phy
11  INTEGER   day_ini ! initial day # of simulation sequence
12  INTEGER   day_end ! final day # ; i.e. day # when this simulation ends
13  INTEGER   annee_ref
14  INTEGER   day_ref
[3579]15  INTEGER   year_len
[2601]16  REAL      dt ! (dynamics) time step (changes if doing Matsuno or LF step)
17  REAL      jD_ref ! reference julian day date (beginning of experiment)
18  REAL      jH_ref ! reference julian "hour" of reference julian date
19  REAL      start_time
20  CHARACTER (len=10) :: calend ! calendar type
[4608]21  INTEGER   offline_time ! offline frequency storage
[1673]22
[2601]23  ! Additionnal Mars stuff:
24  REAL hour_ini ! initial fraction of day of simulation sequence (0=<hour_ini<1)
[1632]25
[2601]26!$OMP THREADPRIVATE(dt,jD_ref,jH_ref,start_time,hour_ini,                        &
27!$OMP                day_ini,day_end,annee_ref,day_ref,itau_dyn,itau_phy,itaufin,&
28!$OMP                calend)       
29
30!WARNING: when adding a threadprivate variable in this module
31!        do not forget to add it to the copyin clause when opening an OpenMP
32!        parallel section. e.g. in gcm before call leapfrog_loc and/or
33!        possibly in iniphysiq
34
35END MODULE temps_mod
Note: See TracBrowser for help on using the repository browser.