! ! $Id: temps_mod.f90 5268 2024-10-23 17:02:39Z abarral $ ! MODULE temps_mod IMPLICIT NONE INTEGER itaufin ! total number of dynamical steps for the run INTEGER itau_dyn INTEGER itau_phy INTEGER day_ini ! initial day # of simulation sequence INTEGER day_end ! final day # ; i.e. day # when this simulation ends INTEGER annee_ref INTEGER day_ref INTEGER year_len REAL dt ! (dynamics) time step (changes if doing Matsuno or LF step) REAL jD_ref ! reference julian day date (beginning of experiment) REAL jH_ref ! reference julian "hour" of reference julian date REAL start_time CHARACTER (len=10) :: calend ! calendar type ! Additionnal Mars stuff: REAL hour_ini ! initial fraction of day of simulation sequence (0=<hour_ini<1) END MODULE temps_mod