! ! $Id: temps.h 1910 2013-11-29 08:40:25Z evignon $ ! ! 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/) !-----------------------------------------------------------------------