Changeset 627 for trunk/NEMO/OPA_SRC/opa.F90

Timestamp:

2007-02-27T20:02:43+01:00 (17 years ago)

Author:

opalod

Message:

nemo_v2_bugfix_025:RB: suppress hard-coded logical units except for dimg and coupled

File:

• trunk/NEMO/OPA_SRC/opa.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/opa.F90

@@ -203 +203 @@
       namelistname = 'namelist'
       CALL ctlopn( numnam, namelistname, 'OLD', 'FORMATTED', 'SEQUENTIAL',   &
-         &           1, numout, .FALSE., 1 )
+         &         1, numout, .FALSE., 1 )
 
       ! Namelist namctl : Control prints & Benchmark
@@ -224 +224 @@
          IF( narea-1 > 0 )   THEN
             WRITE(file_out,FMT="('ocean.output_',I4.4)") narea-1
-            IF( numout /= 0 .AND. numout /= 6 ) THEN 
-               CALL ctlopn( numout, file_out, 'UNKNOWN', 'FORMATTED',   &
-                  &         'SEQUENTIAL', 1, numout, .FALSE., 1 )
-            ENDIF
+            CALL ctlopn( numout, file_out, 'UNKNOWN', 'FORMATTED',   &
+               &         'SEQUENTIAL', 1, numout, .FALSE., 1 )
             lwp = .TRUE.
             !