! ! $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/itaufin, dt, day_ini, day_end, annee_ref, day_ref, & & itau_dyn, itau_phy, jD_ref, jH_ref, calend, & & start_time 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/) !-----------------------------------------------------------------------