Changeset 1581 for trunk/NEMO/TOP_SRC/SED

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/TOP_SRC/SED/sedini.F90 (modified) (5 diffs)

trunk/NEMO/TOP_SRC/SED/sedini.F90

@@ -17 +17 @@
    USE sedarr
    USE iom
+   USE in_out_manager  ! I/O manager
 
 
@@ -76 +77 @@
       !!----------------------------------------------------------------------
       INTEGER :: ji, jj, ikt
-      CHARACTER (len=40) :: csedout
 #if defined key_sed_off
       INTEGER  :: numblt         
@@ -88 +88 @@
       !---------------------------------------
 
-      csedout = 'sediment.output'
-      CALL ctlopn( numsed, csedout, 'OLD', 'FORMATTED', 'SEQUENTIAL', &
-      &            1, numout, .FALSE., 1 )
+      CALL ctl_opn( numsed, 'sediment.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )
 
       WRITE(numsed,*)
@@ -429 +427 @@
 
       INTEGER :: jn, jn1
-      CHARACTER(len=40) :: csednam
       !-------------------------------------------------------
 
@@ -443 +440 @@
       ! Reading namelist.sed variables
       !---------------------------------
-      csednam = 'namelist.sediment'
-      CALL ctlopn( numnamsed, csednam, 'OLD', 'FORMATTED', 'SEQUENTIAL',   &
-         &         1, numout, .FALSE., 1 )
+      CALL ctl_opn( numnamsed, 'namelist.sediment', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )
 
       dtsed = rdt