Changeset 1186 for LMDZ4/branches/LMDZ4-dev/libf/bibio/initfluxsto.F

Timestamp:

Jun 18, 2009, 11:20:44 AM (15 years ago)

Author:

Ehouarn Millour

Message:

Cleanup around IOIPSL, so that LMDZ dynamics may be used without IOIPSL.

• moved ersatz IOIPSL routines (ioipsl_* , taken from IOIPSLv2_1_8, so that 'getin' function may be used even if not using the IOIPSL library) from dyn3d/dyn3dpar to bibio.
• enclosed 'use ioipsl' instruction with #ifdef CPP_IOIPSL cpp keys.

EM

File:

• LMDZ4/branches/LMDZ4-dev/libf/bibio/initfluxsto.F (modified) (4 diffs)

LMDZ4/branches/LMDZ4-dev/libf/bibio/initfluxsto.F

@@ -1 +1 @@
 !
-! $Header$
+! $Id$
 !
       subroutine initfluxsto
@@ -6 +6 @@
      .                    fileid,filevid,filedid)
 
+#ifdef CPP_IOIPSL
        USE IOIPSL
-
+#endif
       implicit none
 
@@ -47 +48 @@
 #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 to work
+C   Variables locales
+C
       real nivd(1)
-
-C   Variables locales
-C
       integer tau0
       real zjulian
@@ -222 +224 @@
       endif
         
+#else
+! tell the user this routine should be run with ioipsl
+      write(lunout,*)"initfluxsto: Warning this routine should not be",
+     &               " used without ioipsl"
+#endif
+! of #ifdef CPP_IOIPSL
       return
       end