Last change
on this file since 4623 was
4608,
checked in by acozic, 14 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
|
Rev | Line | |
---|
[1632] | 1 | ! |
---|
[2601] | 2 | ! $Id: temps_mod.F90 -1 $ |
---|
[1632] | 3 | ! |
---|
[2601] | 4 | MODULE temps_mod |
---|
[1632] | 5 | |
---|
[2601] | 6 | IMPLICIT 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 | |
---|
| 35 | END MODULE temps_mod |
---|
Note: See
TracBrowser
for help on using the repository browser.