Changeset 1420 for LMDZ4/branches/LMDZ4_AR5

Timestamp:

Jul 23, 2010, 12:03:58 PM (14 years ago)

Author:

musat

Message:

Add test on itau_dyn to have a correctly setup of date
for ensemble runs too (A Caubel)
IM

Location:

LMDZ4/branches/LMDZ4_AR5/libf

Files:

• dyn3d/gcm.F (modified) (1 diff)
• dyn3dpar/gcm.F (modified) (1 diff)

LMDZ4/branches/LMDZ4_AR5/libf/dyn3d/gcm.F

@@ -303 +303 @@
 C on remet le calendrier à zero si demande
 c
-      if (annee_ref .ne. anneeref .or. day_ref .ne. dayref) then
+corig     if (annee_ref .ne. anneeref .or. day_ref .ne. dayref) then
+cIM ajout test itau_dyn pour mettre a jour la date lorsque l'on part
+cIM du restart d'une simulation ayant la meme annee de reference que
+cIM la simulation presente
+      if (annee_ref .ne. anneeref .or. day_ref .ne. dayref
+     $    .or. itau_dyn .ne. 0 ) then
         write(lunout,*)
      .  'GCM: Attention les dates initiales lues dans le fichier'

LMDZ4/branches/LMDZ4_AR5/libf/dyn3dpar/gcm.F

@@ -320 +320 @@
 C on remet le calendrier à zero si demande
 c
-      if (annee_ref .ne. anneeref .or. day_ref .ne. dayref) then
+corig     if (annee_ref .ne. anneeref .or. day_ref .ne. dayref) then
+cIM ajout test itau_dyn pour mettre a jour la date lorsque l'on part
+cIM du restart d'une simulation ayant la meme annee de reference que
+cIM la simulation presente
+      if (annee_ref .ne. anneeref .or. day_ref .ne. dayref 
+     $    .or. itau_dyn .ne. 0 ) then
         write(lunout,*)
      .  'GCM: Attention les dates initiales lues dans le fichier'