Changeset 1186 for LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/getparam.F90

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/dyn3dpar/getparam.F90 (modified) (1 diff)

LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/getparam.F90

@@ -1 +1 @@
 !
-! $Header$
+! $Id$
 !
 MODULE getparam
+#ifdef CPP_IOIPSL
    USE IOIPSL
+#else
+! if not using IOIPSL, we still need to use (a local version of) getin
+   USE ioipsl_getincom
+#endif
+
    INTERFACE getpar
      MODULE PROCEDURE ini_getparam,fin_getparam,getparamr,getparami,getparaml