! ! $Id: temps.h 1279 2009-12-10 09:02:56Z snguyen $ ! ! 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/itaufin, dt, day_ini, day_end, annee_ref, day_ref, & & itau_dyn, itau_phy, jD_ref, jH_ref, calend INTEGER itaufin INTEGER itau_dyn, itau_phy INTEGER day_ini, day_end, annee_ref, day_ref REAL dt, jD_ref, jH_ref CHARACTER (len=10) :: calend !$OMP THREADPRIVATE(/temps/) !-----------------------------------------------------------------------