Changeset 623 for trunk/NEMO/OPA_SRC/FLO/flodom.F90

Timestamp:

2007-02-26T18:26:08+01:00 (17 years ago)

Author:

opalod

Message:

nemo_v2_bugfix_024:RB: Use of ctlopn for all files (except for dimg and coupled part)

File:

• trunk/NEMO/OPA_SRC/FLO/flodom.F90 (modified) (4 diffs)

trunk/NEMO/OPA_SRC/FLO/flodom.F90

@@ -50 +50 @@
       INTEGER  :: ji, jj, jk               ! DO loop index on 3 directions
       INTEGER  :: jfl, jfl1                ! number of floats   
-      INTEGER  :: inum = 11                ! logical unit for file read
+      INTEGER  :: inum                     ! logical unit for file read
       INTEGER, DIMENSION ( jpnfl    )  ::   &
          iimfl, ijmfl, ikmfl,    &          ! index mesh of floats
@@ -69 +69 @@
          ! open the restart file 
          clname='restart_float'
-         OPEN (inum,FILE=clname,FORM='UNFORMATTED')
+         CALL ctlopn( inum, clname, 'OLD', 'FORMATTED', 'SEQUENTIAL',   &
+            &         1, numout, .TRUE., 1 )
          REWIND inum
 
@@ -94 +95 @@
             ! open the init file 
             clname='init_float'
-            OPEN(inum,FILE=clname,FORM='FORMATTED')
+            CALL ctlopn( inum, clname, 'OLD', 'FORMATTED', 'SEQUENTIAL',   &
+               &         1, numout, .TRUE., 1 )
             DO jfl = jpnrstflo+1, jpnfl
                READ(inum,*) flxx(jfl),flyy(jfl),flzz(jfl), nisobfl(jfl),ngrpfl(jfl),jfl1
@@ -225 +227 @@
          ! open the init file 
          clname='init_float'
-         OPEN(inum,FILE=clname,FORM='FORMATTED')
+         CALL ctlopn( inum, clname, 'OLD', 'FORMATTED', 'SEQUENTIAL',   &
+            &         1, numout, .TRUE., 1 )
          READ(inum) (flxx(jfl)   , jfl=1, jpnfl),   &
                     (flyy(jfl)   , jfl=1, jpnfl),   &