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

Timestamp:

2009-10-28T11:28:21+01:00 (15 years ago)

Author:

smasson

Message:

cleaning of logical units (use, flush and close), see ticket:570

File:

• trunk/NEMO/OPA_SRC/opa.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/opa.F90

@@ -386 +386 @@
       IF( lk_mpp )   CALL mppsync
       !
-      IF(lwp) CLOSE( numstp )   ! time-step file
-      IF(lwp) CLOSE( numsol )   ! solver file
-      !
-      CALL iom_close            ! close all input/output files
-      !
-      CLOSE( numnam )           ! namelist
-      CLOSE( numout )           ! standard model output file
+      CALL iom_close                                 ! close all input/output files managed by iom_*
+      !
+      IF( numstp     /= -1 )   CLOSE( numstp     )   ! time-step file
+      IF( numsol     /= -1 )   CLOSE( numsol     )   ! solver file
+      IF( numnam     /= -1 )   CLOSE( numnam     )   ! oce namelist
+      IF( numnam_ice /= -1 )   CLOSE( numnam_ice )   ! ice namelist
+      IF( numevo_ice /= -1 )   CLOSE( numevo_ice )   ! ice variables (temp. evolution)
+      IF( numout     /=  6 )   CLOSE( numout     )   ! standard model output file
+      numout = 6   ! redefine numout in case it is used after this point...
       !
    END SUBROUTINE opa_closefile