Changeset 1685 for trunk/NEMO/OPA_SRC/TRD/trdmld.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/TRD/trdmld.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/TRD/trdmld.F90

@@ -721 +721 @@
       !! * Local declarations
       INTEGER :: jl
+      INTEGER :: inum   ! logical unit
 
       REAL(wp) ::   zjulian, zsto, zout
@@ -798 +799 @@
  
       IF( nn_ctls == 1 ) THEN
-         CALL ctl_opn( numbol, 'ctlsurf_idx', 'OLD', 'UNFORMATTED', 'SEQUENTIAL', -1, numout, lwp )
-         READ ( numbol ) nbol
-         CLOSE( numbol )
+         CALL ctl_opn( inum, 'ctlsurf_idx', 'OLD', 'UNFORMATTED', 'SEQUENTIAL', -1, numout, lwp )
+         READ ( inum ) nbol
+         CLOSE( inum )
       END IF