Changeset 1333 for LMDZ4

Timestamp:

Mar 30, 2010, 3:34:15 PM (15 years ago)

Author:

Laurent Fairhead

Message:

raz_date parameter now has priority over differences in the reference dates
that are read in the restart file and the run.def namelist:

• if raz_date is 1, the reference date is initialised to that read in

the run.def file no matter what

• if it is 0 and the reference dates read in are different a warning

is output

---

Le paramètre raz_date est maintenant traité en priorité par rapport
aux différences possibles entre les dates de référence lues dans le fichier
start et le run.def:

• si raz_date est 1, la date de référence de la simulation est initialisée

à celle lue dans le run.def quoi qu'elle soit

• si le paramètre est à zéro et que les dates de référence laeus dans les 2 fichiers

sont différentes, un avertissement est imprimé

Location:

LMDZ4/branches/LMDZ4V5.0-dev/libf

Files:

• dyn3d/gcm.F (modified) (2 diffs)
• dyn3dpar/gcm.F (modified) (2 diffs)

LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3d/gcm.F

@@ -304 +304 @@
 C on remet le calendrier à zero si demande
 c
-      if (annee_ref .ne. anneeref .or. day_ref .ne. dayref) then
+      IF (raz_date == 1) THEN
+        annee_ref = anneeref
+        day_ref = dayref
+        day_ini = dayref
+        itau_dyn = 0
+        itau_phy = 0
+        time_0 = 0.
+        write(lunout,*)
+     .   'GCM: On reinitialise a la date lue dans gcm.def'
+      ELSE IF (annee_ref .ne. anneeref .or. day_ref .ne. dayref) THEN
         write(lunout,*)
      .  'GCM: Attention les dates initiales lues dans le fichier'
@@ -312 +321 @@
         write(lunout,*)' annee_ref=',annee_ref," anneeref=",anneeref
         write(lunout,*)' day_ref=',day_ref," dayref=",dayref
-        if (raz_date .ne. 1) then
-          write(lunout,*)
-     .    'GCM: On garde les dates du fichier restart'
-        else
-          annee_ref = anneeref
-          day_ref = dayref
-          day_ini = dayref
-          itau_dyn = 0
-          itau_phy = 0
-          time_0 = 0.
-          write(lunout,*)
-     .   'GCM: On reinitialise a la date lue dans gcm.def'
-        endif
-      ELSE
-        raz_date = 0
-      endif
+        write(lunout,*)' Pas de remise a zero'
+      ENDIF
+
+c$$$      if (annee_ref .ne. anneeref .or. day_ref .ne. dayref) then
+c$$$        write(lunout,*)
+c$$$     .  'GCM: Attention les dates initiales lues dans le fichier'
+c$$$        write(lunout,*)
+c$$$     .  ' restart ne correspondent pas a celles lues dans '
+c$$$        write(lunout,*)' gcm.def'
+c$$$    write(lunout,*)' annee_ref=',annee_ref," anneeref=",anneeref
+c$$$    write(lunout,*)' day_ref=',day_ref," dayref=",dayref
+c$$$        if (raz_date .ne. 1) then
+c$$$          write(lunout,*)
+c$$$     .    'GCM: On garde les dates du fichier restart'
+c$$$        else
+c$$$          annee_ref = anneeref
+c$$$          day_ref = dayref
+c$$$          day_ini = dayref
+c$$$          itau_dyn = 0
+c$$$          itau_phy = 0
+c$$$          time_0 = 0.
+c$$$          write(lunout,*)
+c$$$     .   'GCM: On reinitialise a la date lue dans gcm.def'
+c$$$        endif
+c$$$      ELSE
+c$$$        raz_date = 0
+c$$$      endif
 
 #ifdef CPP_IOIPSL

LMDZ4/branches/LMDZ4V5.0-dev/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
+      IF (raz_date == 1) THEN
+        annee_ref = anneeref
+        day_ref = dayref
+        day_ini = dayref
+        itau_dyn = 0
+        itau_phy = 0
+        time_0 = 0.
+        write(lunout,*)
+     .   'GCM: On reinitialise a la date lue dans gcm.def'
+      ELSE IF (annee_ref .ne. anneeref .or. day_ref .ne. dayref) THEN
         write(lunout,*)
      .  'GCM: Attention les dates initiales lues dans le fichier'
@@ -328 +337 @@
         write(lunout,*)' annee_ref=',annee_ref," anneeref=",anneeref
         write(lunout,*)' day_ref=',day_ref," dayref=",dayref
-        if (raz_date .ne. 1) then
-          write(lunout,*)
-     .    'GCM: On garde les dates du fichier restart'
-        else
-          annee_ref = anneeref
-          day_ref = dayref
-          day_ini = dayref
-          itau_dyn = 0
-          itau_phy = 0
-          time_0 = 0.
-          write(lunout,*)
-     .   'GCM: On reinitialise a la date lue dans gcm.def'
-        endif
-      ELSE
-        raz_date = 0
-      endif
+        write(lunout,*)' Pas de remise a zero'
+      ENDIF
+c$$$      if (annee_ref .ne. anneeref .or. day_ref .ne. dayref) then
+c$$$        write(lunout,*)
+c$$$     .  'GCM: Attention les dates initiales lues dans le fichier'
+c$$$        write(lunout,*)
+c$$$     .  ' restart ne correspondent pas a celles lues dans '
+c$$$        write(lunout,*)' gcm.def'
+c$$$    write(lunout,*)' annee_ref=',annee_ref," anneeref=",anneeref
+c$$$    write(lunout,*)' day_ref=',day_ref," dayref=",dayref
+c$$$        if (raz_date .ne. 1) then
+c$$$          write(lunout,*)
+c$$$     .    'GCM: On garde les dates du fichier restart'
+c$$$        else
+c$$$          annee_ref = anneeref
+c$$$          day_ref = dayref
+c$$$          day_ini = dayref
+c$$$          itau_dyn = 0
+c$$$          itau_phy = 0
+c$$$          time_0 = 0.
+c$$$          write(lunout,*)
+c$$$     .   'GCM: On reinitialise a la date lue dans gcm.def'
+c$$$        endif
+c$$$      ELSE
+c$$$        raz_date = 0
+c$$$      endif
 
 #ifdef CPP_IOIPSL