source: LMDZ5/trunk/libf/dyn3d/temps_mod.F90 @ 3416

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

Cleanup in the dynamics: turn temps.h into module temps_mod.F90
EM

  • 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: 749 bytes
RevLine 
[524]1!
[1279]2! $Id: temps_mod.F90 2601 2016-07-24 09:51:55Z lguez $
[524]3!
[2601]4MODULE temps_mod
[524]5
[2601]6IMPLICIT NONE 
[524]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
15  REAL      dt ! (dynamics) time step (changes if doing Matsuno or LF step)
16  REAL      jD_ref ! reference julian day date (beginning of experiment)
17  REAL      jH_ref ! reference julian "hour" of reference julian date
18  REAL      start_time
19  CHARACTER (len=10) :: calend ! calendar type
[1577]20
[2601]21  ! Additionnal Mars stuff:
22  REAL hour_ini ! initial fraction of day of simulation sequence (0=<hour_ini<1)
[524]23
[2601]24END MODULE temps_mod
Note: See TracBrowser for help on using the repository browser.