Changeset 431 for LMDZ.3.3/branches/rel-LF/libf/dyn3d/gcm.F

Timestamp:

Dec 19, 2002, 3:52:05 PM (21 years ago)

Author:

lmdzadmin

Message:

Convergence avec la version de Ionela Musat

bilan_dyn.F : correction bug dimension (PF)
conf_gcm.F : remize a zero de la date initiale (LF)
control.h : remize a zero de la date initiale (LF)
diagedyn.F : correction bug dimension (IM)
etat0_netcdf.F : lecture de co2_ppm & solaire ds physiq.def
gcm.F : remize a zero de la date initiale (LF)

File:

• LMDZ.3.3/branches/rel-LF/libf/dyn3d/gcm.F (modified) (1 diff)

LMDZ.3.3/branches/rel-LF/libf/dyn3d/gcm.F

@@ -272 +272 @@
          PRINT*,'WARNING!!! changement de pas de temps',dtvr,'>',zdtvr
         ENDIF
+C
+C on remet le calendrier à zero
+c
+      if (annee_ref .ne. anneeref .or. day_ref .ne. dayref) then
+        write(*,*)' Attention les dates initiales lues dans le fichier'
+        write(*,*)' restart ne correspondent pas a celles lues dans '
+        write(*,*)' gcm.def'
+        if (raz_date .ne. 1) then
+          write(*,*)' On garde les dates du fichier restart'
+        else
+          annee_ref = anneeref
+          day_ref = dayref
+          itau_dyn = 0
+          itau_phy = 0
+          write(*,*)' On reinitialise a la date lue dans gcm.def'
+        endif
+      endif
 
 c  nombre d'etats dans les fichiers demarrage et histoire