Changeset 1685 for trunk/NEMO/TOP_SRC/TRP

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/TOP_SRC/TRP/trdmld_trc.F90 (modified) (2 diffs)

trunk/NEMO/TOP_SRC/TRP/trdmld_trc.F90

@@ -1213 +1213 @@
       !!
       !!----------------------------------------------------------------------
+      INTEGER :: inum   ! logical unit
       INTEGER :: ilseq, jl, jn
       REAL(wp) ::   zjulian, zsto, zout
@@ -1364 +1365 @@
       ! ----------------------------------------------
       IF( nctls_trc == 1 ) THEN
-         CALL ctl_opn( numbol, 'ctlsurf_idx', 'OLD', 'UNFORMATTED', 'SEQUENTIAL', -1, numout, lwp )
-         READ ( numbol ) nbol_trc
-         CLOSE( numbol )
+         CALL ctl_opn( inum, 'ctlsurf_idx', 'OLD', 'UNFORMATTED', 'SEQUENTIAL', -1, numout, lwp )
+         READ ( inum ) nbol_trc
+         CLOSE( inum )
       ENDIF