Changeset 2544 for trunk/LMDZ.COMMON/libf/dyn3dpar

Timestamp:

Jul 8, 2021, 3:54:30 PM (3 years ago)

Author:

romain.vande

Message:

MARS GCM:

update of r2507: correction for time output in the case of multiple restart files
RV

File:

• trunk/LMDZ.COMMON/libf/dyn3dpar/leapfrog_p.F (modified) (1 diff)

trunk/LMDZ.COMMON/libf/dyn3dpar/leapfrog_p.F

@@ -1817 +1817 @@
                 if(ecritstart.GT.0) then
                  CALL dynredem1_p("restart.nc",
-     &                        REAL(itau)/REAL(day_step),
+     &                        REAL(itau)/REAL(day_step)
+     &                        +time_0-floor(time_0),
      &                        vcov,ucov,teta,q,masse,ps)
                 else
                  CALL dynredem1_p("restart.nc",
-     &             REAL(itau)/REAL(day_step)-(day_end-day_ini),
+     &             REAL(itau)/REAL(day_step)-(day_end-day_ini)
+     &                        +time_0-floor(time_0),
      &                        vcov,ucov,teta,q,masse,ps)
                 endif