Changeset 2814 for trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/start2archive.F

Timestamp:

Nov 8, 2022, 3:34:07 PM (2 years ago)

Author:

romain.vande

Message:

LMDZ MARS
Moving a modulo misplaced in start2archive
RV

File:

• trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/start2archive.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/start2archive.F

@@ -192 +192 @@
 c Controle de la synchro
 c-----------------------------------------------------------------------
-!mars a voir      if ((day_ini_fi.ne.day_ini).or.(abs(timefi-timedyn).gt.1.e-10)) 
-      if ((day_ini_fi.ne.day_ini)) 
+!mars a voir      if ((day_ini_fi.ne.day_ini).or.(abs(timefi-timedyn).gt.1.e-10))
+      if ((mod(day_ini_fi,669).ne.mod(day_ini,669))) 
      &  stop ' Probleme de Synchro entre start et startfi !!!'