Changeset 1279 for LMDZ4/trunk/libf/dyn3dpar/initfluxsto_p.F

Timestamp:

Dec 10, 2009, 10:02:56 AM (15 years ago)

Author:

Laurent Fairhead

Message:

Merged LMDZ4-dev branch changes r1241:1278 into the trunk
Running trunk and LMDZ4-dev in LMDZOR configuration on local
machine (sequential) and SX8 (4-proc) yields identical results
(restart and restartphy are identical binarily)
Log history from r1241 to r1278 is available by switching to
source:LMDZ4/branches/LMDZ4-dev-20091210

Location:

LMDZ4/trunk

Files:

• . (modified) (1 prop)
• libf/dyn3dpar/initfluxsto_p.F (modified) (4 diffs)

LMDZ4/trunk/libf/dyn3dpar/initfluxsto_p.F

@@ -1 +1 @@
 !
-! $Header$
+! $Id$
 !
       subroutine initfluxsto_p
@@ -6 +6 @@
      .                    fileid,filevid,filedid)
 
+#ifdef CPP_IOIPSL
+! This routine needs IOIPSL
        USE IOIPSL
+#endif
        use parallel
        use Write_field
@@ -50 +53 @@
 #include "description.h"
 #include "serre.h"
+#include "iniprint.h"
 
 C   Arguments
 C
       character*(*) infile
-      integer*4 itau
       real tstep, t_ops, t_wrt
       integer fileid, filevid,filedid
-      integer ndex(1)
+
+#ifdef CPP_IOIPSL
+! This routine needs IOIPSL
+C   Variables locales
+C
       real nivd(1)
-
-C   Variables locales
-C
       integer tau0
       real zjulian
@@ -285 +289 @@
       endif
         
+#else
+      write(lunout,*)'initfluxsto_p: Needs IOIPSL to function'
+#endif
+! #endif of #ifdef CPP_IOIPSL
       return
       end