source: LMDZ5/branches/testing/libf/dyn3dpar/temps.h @ 1707

Last change on this file since 1707 was 1665, checked in by Laurent Fairhead, 12 years ago

Version testing basée sur la r1628

http://lmdz.lmd.jussieu.fr/utilisateurs/distribution-du-modele/versions-intermediaires


Testing release based on r1628

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 989 bytes
RevLine 
[630]1!
[1279]2! $Id: temps.h 1665 2012-10-09 13:35:26Z fairhead $
[630]3!
[796]4!  ATTENTION!!!!: ce fichier include est compatible format fixe/format libre
5!                 veillez  n'utiliser que des ! pour les commentaires
6!                 et  bien positionner les & des lignes de continuation
7!                 (les placer en colonne 6 et en colonne 73)
[630]8!
[796]9!
[1279]10! jD_ref = jour julien de la date de reference (lancement de l'experience)
11! hD_ref = "heure" julienne de la date de reference
[630]12!-----------------------------------------------------------------------
13! INCLUDE 'temps.h'
14
[796]15      COMMON/temps/itaufin, dt, day_ini, day_end, annee_ref, day_ref,   &
[1665]16     &             itau_dyn, itau_phy, jD_ref, jH_ref, calend,          &
17     &             start_time
[630]18
[1665]19
[630]20      INTEGER   itaufin
[1279]21      INTEGER itau_dyn, itau_phy
22      INTEGER day_ini, day_end, annee_ref, day_ref
[1665]23      REAL      dt, jD_ref, jH_ref, start_time
[1279]24      CHARACTER (len=10) :: calend
25
[985]26!$OMP THREADPRIVATE(/temps/)
[1279]27!-----------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.