Changeset 623 for trunk/NEMO/OPA_SRC/OBC/obcrst.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/OBC/obcrst.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/OBC/obcrst.F90

@@ -66 +66 @@
 
       !! * Local declarations
-      INTEGER ::   ji, jj, jk, ios
-      INTEGER ::   inum = 11          ! temporary logical unit
+      INTEGER ::   ji, jj, jk
+      INTEGER ::   inum               ! temporary logical unit
       INTEGER ::   ibloc, nreclo, jrec, jt, jb 
       INTEGER ::   jfoe, jfow, ifon, ifos
@@ -96 +96 @@
          ! 1.1 Open file
          ! -------------
-         OPEN( UNIT   = inum,                 &
-               IOSTAT = ios,                  &
-               FILE   = 'restart.obc.output', &
-               ACCESS = 'DIRECT',             &
-               RECL   =  nreclo,              &
-               FORM   = 'UNFORMATTED' )
-         IF( ios > 0 ) CALL ctl_stop( '        Pbm to OPEN the restart.obc.output file ' )
+
+         CALL ctlopn( inum, 'restart.obc.output', 'UNKNOWN', 'UNFORMATTED', 'DIRECT',   &
+            &         nreclo, numout, .TRUE., 1 )
  
          ! 1.2 Write header
@@ -352 +348 @@
       ! 0.1 Open files
       ! ---------------
-      OPEN( UNIT   =  inum,       &
-            IOSTAT =  ios,          &
-            FILE   = 'restart.obc', &
-            ACCESS = 'DIRECT',      &
-            RECL   =  nreclo,       &
-            FORM   = 'UNFORMATTED' )
-      IF( ios > 0 ) CALL ctl_stop( '        Pbm to OPEN the restart.obc file ' )
+      CALL ctlopn( inum, 'restart.obc.output', 'UNKNOWN', 'UNFORMATTED', 'DIRECT',   &
+         &         nreclo, numout, .TRUE., 1 )
 
       ! 1. Read