Changeset 1702 for LMDZ5/trunk/libf/phy1d/1DUTILS.h_no_writelim

Timestamp:

Dec 21, 2012, 3:32:49 PM (12 years ago)

Author:

Laurent Fairhead

Message:

To avoid conflict (incompatible and redundant open statements) with
conf_gcm FH

File:

• LMDZ5/trunk/libf/phy1d/1DUTILS.h_no_writelim (modified) (1 diff)

LMDZ5/trunk/libf/phy1d/1DUTILS.h_no_writelim

@@ -52 +52 @@
 !Config         (defaut sortie standard = 6)
       lunout=6
-      CALL getin('lunout', lunout)
+!      CALL getin('lunout', lunout)
       IF (lunout /= 5 .and. lunout /= 6) THEN
         OPEN(lunout,FILE='lmdz.out')