Changeset 2038 for LMDZ5/trunk/libf/dyn3dpar/gcm.F

Timestamp:

May 7, 2014, 11:05:48 AM (10 years ago)

Author:

fhourdin

Message:

Possibilité d'imposer le nombre de pas de temps de la simulation avec nday<0
If nday<0, nday is the total number of time step of the simulation

File:

• LMDZ5/trunk/libf/dyn3dpar/gcm.F (modified) (1 diff)

LMDZ5/trunk/libf/dyn3dpar/gcm.F

@@ -477 +477 @@
 
 
-      day_end = day_ini + nday
+      if (nday>=0) then
+         day_end = day_ini + nday
+      else
+         day_end = day_ini - nday/day_step
+      endif
+
       WRITE(lunout,300)day_ini,day_end
  300  FORMAT('1'/,15x,'run du jour',i7,2x,'au jour',i7//)