Changeset 1685 for trunk/NEMO/OPA_SRC/IOM/in_out_manager.F90

Timestamp:

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

Author:

smasson

Message:

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

File:

• trunk/NEMO/OPA_SRC/IOM/in_out_manager.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/IOM/in_out_manager.F90

@@ -77 +77 @@
    INTEGER            ::   nn_jctls     =    0    !: Start j indice for the SUM control
    INTEGER            ::   nn_jctle     =    0    !: End   j indice for the SUM control
-   INTEGER            ::   nn_isplt      =    1   !: number of processors following i
-   INTEGER            ::   nn_jsplt      =    1   !: number of processors following j
+   INTEGER            ::   nn_isplt     =    1    !: number of processors following i
+   INTEGER            ::   nn_jsplt     =    1    !: number of processors following j
    INTEGER            ::   nn_bench     =    0    !: benchmark parameter (0/1)
    INTEGER            ::   nn_bit_cmp   =    0    !: bit reproducibility  (0/1)
@@ -90 +90 @@
    !!                        logical units
    !!----------------------------------------------------------------------
-   INTEGER            ::   numstp                 !: logical unit for time step
+   INTEGER            ::   numstp     =   -1      !: logical unit for time step
    INTEGER            ::   numout     =    6      !: logical unit for output print
-   INTEGER            ::   numnam                 !: logical unit for namelist
-   INTEGER            ::   numnam_ice             !: logical unit for ice namelist
-   INTEGER            ::   numevo_ice             !: logical unit for ice variables (temp. evolution)
-   INTEGER            ::   numsol                 !: logical unit for solver statistics
-   INTEGER            ::   numwri                 !: logical unit for output write
-   INTEGER            ::   numgap                 !: logical unit for differences diagnostic
-   INTEGER            ::   numbol                 !: logical unit for "bol" diagnostics
-   INTEGER            ::   numptr                 !: logical unit for Poleward TRansports
-   INTEGER            ::   numflo                 !: logical unit for drifting floats
+   INTEGER            ::   numnam     =   -1      !: logical unit for namelist
+   INTEGER            ::   numnam_ice =   -1      !: logical unit for ice namelist
+   INTEGER            ::   numevo_ice =   -1      !: logical unit for ice variables (temp. evolution)
+   INTEGER            ::   numsol     =   -1      !: logical unit for solver statistics
 
    !!----------------------------------------------------------------------
@@ -149 +144 @@
          IF( PRESENT(cd10) ) WRITE(numout,*) cd10
       ENDIF
-      CALL FLUSH(numout)
+                               CALL FLUSH(numout    )
+      IF( numstp     /= -1 )   CALL FLUSH(numstp    )
+      IF( numsol     /= -1 )   CALL FLUSH(numsol    )
+      IF( numevo_ice /= -1 )   CALL FLUSH(numevo_ice)
       !
    END SUBROUTINE ctl_stop