Changeset 2501 for trunk/LMDZ.MARS/libf/phymars

Timestamp:

Apr 21, 2021, 5:04:10 PM (4 years ago)

Author:

adelavois

Message:

update of ztime_fin (variable "Time" stored in startfi.nc) for Dynamico
where the addition of a dynamical timestep is no longer needed

File:

• trunk/LMDZ.MARS/libf/phymars/physiq_mod.F (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/physiq_mod.F

@@ -94 +94 @@
       use wxios, only: wxios_context_init, xios_context_finalize
 #endif
-
+      USE mod_grid_phy_lmdz, ONLY: grid_type, unstructured
 
       IMPLICIT NONE
@@ -2296 +2296 @@
           ztime_fin = pday + ptime  + ptimestep/(float(iphysiq)*daysec)
      .               - day_ini - time_phys
-          print*, pday,ptime,day_ini, time_phys
+          IF (grid_type==unstructured) THEN
+             ! When running Dynamico, no need to add a dynamics time step to ztime_fin
+             IF (ptime.LE. 1.E-10) THEN 
+             ! Residual ptime occurs with Dynamico
+             ztime_fin = pday !+ ptime + ptimestep/(float(iphysiq)*daysec)
+     .               - day_ini - time_phys
+             ELSE
+             ztime_fin = pday + ptime  !+ ptimestep/(float(iphysiq)*daysec)
+     .                  - day_ini - time_phys
+             ENDIF
+          ENDIF
           write(*,'(A,I7,A,F12.5)') 
      .         'PHYSIQ: Ecriture du fichier restartfi ; icount=',