Changeset 1279 for LMDZ4/trunk/libf/bibio/writehist.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/bibio/writehist.F (modified) (4 diffs)

LMDZ4/trunk/libf/bibio/writehist.F

@@ -1 +1 @@
 !
-! $Header$
+! $Id$
 !
       subroutine writehist( histid, histvid, time, vcov, 
      ,                          ucov,teta,phi,q,masse,ps,phis)
 
+#ifdef CPP_IOIPSL
       USE ioipsl
+#endif
       USE infotrac, ONLY : nqtot, ttext
       implicit none
@@ -46 +48 @@
 #include "description.h"
 #include "serre.h"
+#include "iniprint.h"
 
 C
@@ -60 +63 @@
 
 
+#ifdef CPP_IOIPSL
+! This routine needs IOIPSL to work
 C   Variables locales
 C
@@ -124 +129 @@
         call histsync(histvid)
       endif
+#else
+! tell the user this routine should be run with ioipsl
+      write(lunout,*)"writehist: Warning this routine should not be",
+     &               " used without ioipsl"
+#endif
+! of #ifdef CPP_IOIPSL
       return
       end