Changeset 2321 for LMDZ5/trunk/libf/phylmd/print_control_mod.F90

Timestamp:

Jul 6, 2015, 6:22:14 PM (9 years ago)

Author:

Ehouarn Millour

Message:

Create the "obsolete" directory where old and unused stuff should go. And move some obsolete routines there.
Minor correction in "print_control_mod": use "opened" argument to inquire instead of "exist".
EM

File:

• LMDZ5/trunk/libf/phylmd/print_control_mod.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/print_control_mod.F90

@@ -14 +14 @@
   IMPLICIT NONE
 
-    LOGICAL :: exist
+    LOGICAL :: opened
     INTEGER :: number
     
@@ -35 +35 @@
     IF (is_omp_root) THEN
       IF (lunout /= 5 .and. lunout /= 6) THEN
-         INQUIRE(FILE='lmdz.out_0000',EXIST=exist,NUMBER=number)
-         IF (exist) THEN
+         INQUIRE(FILE='lmdz.out_0000',OPENED=opened,NUMBER=number)
+         IF (opened) THEN
            lunout=number
          ELSE