source: LMDZ6/trunk/libf/dyn3dmem/temps_mod.F90 @ 5018

Last change on this file since 5018 was 4608, checked in by acozic, 16 months ago

Add of an output file containing mass flow when offline parameter is to "yes"
this file will be on horizontal grid with vertical level klev
When LMDZ is coupled to Inca, we don't call anymore the routine phystoken if offline=y

Anne Cozic

  • 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
Line 
1!
2! $Id: temps_mod.F90 -1   $
3!
4MODULE temps_mod
5
6IMPLICIT NONE 
7
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
15  INTEGER   year_len
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
21  INTEGER   offline_time ! offline frequency storage
22
23  ! Additionnal Mars stuff:
24  REAL hour_ini ! initial fraction of day of simulation sequence (0=<hour_ini<1)
25
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.