Changeset 1581 for trunk/NEMO/OPA_SRC/TRD/trdmld.F90

Timestamp:

2009-08-05T16:53:12+02:00 (15 years ago)

Author:

smasson

Message:

ctlopn cleanup, see ticket:515 and ticket:237

File:

• trunk/NEMO/OPA_SRC/TRD/trdmld.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/TRD/trdmld.F90

@@ -720 +720 @@
       !!----------------------------------------------------------------------
       !! * Local declarations
-      INTEGER :: ilseq, jl
+      INTEGER :: jl
 
       REAL(wp) ::   zjulian, zsto, zout
 
-      CHARACTER (LEN=21) ::    &
-         clold ='OLD'        , & ! open specifier (direct access files)
-         clunf ='UNFORMATTED', & ! open specifier (direct access files)
-         clseq ='SEQUENTIAL'     ! open specifier (direct access files)
       CHARACTER (LEN=40) ::   clop
       CHARACTER (LEN=12) ::   clmxl, cltu, clsu
@@ -796 +792 @@
       END IF
 
-      ilseq  = 1   ;   icount = 1   ;   ionce  = 1                            ! open specifier
+      icount = 1   ;   ionce  = 1                            ! open specifier
 
       ! I.3 Read control surface from file ctlsurf_idx
@@ -802 +798 @@
  
       IF( nctls == 1 ) THEN
-         clname = 'ctlsurf_idx'
-         CALL ctlopn( numbol, clname, clold, clunf, clseq, ilseq, numout, lwp, 1 )
-         REWIND( numbol )
-         READ  ( numbol ) nbol
+         CALL ctl_opn( numbol, 'ctlsurf_idx', 'OLD', 'UNFORMATTED', 'SEQUENTIAL', -1, numout, lwp )
+         READ ( numbol ) nbol
+         CLOSE( numbol )
       END IF