Ignore:
Timestamp:
Nov 8, 2022, 3:34:07 PM (2 years ago)
Author:
romain.vande
Message:

LMDZ MARS
Moving a modulo misplaced in start2archive
RV

Location:
trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars
Files:
2 edited

Legend:

Unmodified
Added
Removed

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

    r2630 r2814  
    192192c Controle de la synchro
    193193c-----------------------------------------------------------------------
    194 !mars a voir      if ((day_ini_fi.ne.day_ini).or.(abs(timefi-timedyn).gt.1.e-10)) 
    195       if ((day_ini_fi.ne.day_ini))
     194!mars a voir      if ((day_ini_fi.ne.day_ini).or.(abs(timefi-timedyn).gt.1.e-10))
     195      if ((mod(day_ini_fi,669).ne.mod(day_ini,669)))
    196196     &  stop ' Probleme de Synchro entre start et startfi !!!'
    197197

  • trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/start2archive_SSO.F

    r2677 r2814  
    210210c-----------------------------------------------------------------------
    211211!mars a voir      if ((day_ini_fi.ne.day_ini).or.(abs(timefi-timedyn).gt.1.e-10))
    212       if ((day_ini_fi.ne.day_ini))
     212      if ((mod(day_ini_fi,669).ne.mod(day_ini,669)))
    213213     &  stop ' Probleme de Synchro entre start et startfi !!!'
    214214
Note: See TracChangeset for help on using the changeset viewer.