Changeset 1200

Timestamp:

Jul 6, 2009, 10:58:06 AM (15 years ago)

Author:

Laurent Fairhead

Message:

Inclusion des routines ioipsl

• ioconf_startdate positionnant la date de départ de la simulation pour IOIPSL
• getin_dump pour avoir les valeurs des paramètres effectivement utilisées par le programme

Location:

LMDZ4/branches/LMDZ4-dev/libf

Files:

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

LMDZ4/branches/LMDZ4-dev/libf/dyn3d/abort_gcm.F

@@ -1 +1 @@
 !
-! $Header$
+! $Id$
 !
 c
@@ -29 +29 @@
       call restclo
 #endif
-c     call getin_dump
+      call getin_dump
 c     call histclo(2)
 c     call histclo(3)

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

@@ -1 +1 @@
 !
-! $Header$
+! $Id$
 !
 c
@@ -313 +313 @@
         raz_date = 0
       endif
+
+#ifdef CPP_IOIPSL
+      call ioconf_startdate(annee_ref,0,day_ref, 0.)
+#endif
 
 

LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/abort_gcm.F

@@ -30 +30 @@
 c$OMP END MASTER
 #endif
-c     call getin_dump
+      call getin_dump
 c     call histclo(2)
 c     call histclo(3)

LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/gcm.F

@@ -327 +327 @@
       endif
 
+#ifdef CPP_IOIPSL 
+      call ioconf_startdate(annee_ref,0,day_ref,0.) 
+#endif 
 
 c  nombre d'etats dans les fichiers demarrage et histoire