Changeset 1147

Timestamp:

Apr 9, 2009, 2:05:51 PM (16 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

LF

Location:

LMDZ4/trunk/libf

Files:

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

LMDZ4/trunk/libf/dyn3d/abort_gcm.F

@@ -29 +29 @@
       call restclo
 #endif
-c     call getin_dump
+      call getin_dump
 c     call histclo(2)
 c     call histclo(3)

LMDZ4/trunk/libf/dyn3d/gcm.F

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

LMDZ4/trunk/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/trunk/libf/dyn3dpar/gcm.F

@@ -325 +325 @@
         raz_date = 0
       endif
+#ifdef CPP_IOIPSL
+      call ioconf_startdate(annee_ref,0,day_ref,0.)
+#endif