temps.h

Go to the documentation of this file.

!
! $Id$
!
!  ATTENTION!!!!: ce fichier include est compatible format fixe/format libre
!                 veillez  n'utiliser que des ! pour les commentaires
!                 et  bien positionner les & des lignes de continuation
!                 (les placer en colonne 6 et en colonne 73)
!
!
! jD_ref = jour julien de la date de reference (lancement de l'experience)
! hD_ref = "heure" julienne de la date de reference
!-----------------------------------------------------------------------
! INCLUDE 'temps.h'

      COMMON/temps/ dt, jD_ref, jH_ref, start_time,                     &
     &             day_ini, day_end, annee_ref, day_ref,                &
     &             itau_dyn, itau_phy, itaufin, calend


      INTEGER   itaufin
      INTEGER itau_dyn, itau_phy 
      INTEGER day_ini, day_end, annee_ref, day_ref
      REAL      dt, jD_ref, jH_ref, start_time
      CHARACTER (len=10) :: calend

!$OMP THREADPRIVATE(/temps/)
!-----------------------------------------------------------------------