Changeset 1186 for LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/writedynav_p.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/dyn3dpar/writedynav_p.F (modified) (4 diffs)

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

@@ -1 +1 @@
 !
-! $Header$
+! $Id$
 !
       subroutine writedynav_p( histid, time, vcov, 
      ,                          ucov,teta,ppk,phi,q,masse,ps,phis)
 
+#ifdef CPP_IOIPSL
+! This routine needs IOIPSL
       USE ioipsl
+#endif
       USE parallel
       USE misc_mod
@@ -47 +50 @@
 #include "description.h"
 #include "serre.h"
+#include "iniprint.h"
 
 C
@@ -61 +65 @@
 
 
+#ifdef CPP_IOIPSL
+! This routine needs IOIPSL
 C   Variables locales
 C
@@ -156 +162 @@
 C
       if (ok_sync) call histsync(histid)
+#else
+      write(lunout,*)'writedynav_p: Needs IOIPSL to function'
+#endif
+! #endif of #ifdef CPP_IOIPSL
       return
       end