Changeset 1581 for trunk/NEMO/TOP_SRC/PISCES

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/PISCES/trclsm_pisces.F90 (modified) (3 diffs)

trunk/NEMO/TOP_SRC/PISCES/trclsm_pisces.F90

@@ -19 +19 @@
    USE trc             ! TOP variables
    USE sms_pisces      ! sms trends
+   USE in_out_manager  ! I/O manager
 
 
@@ -45 +46 @@
       !!                       natkriest ("key_kriest")
       !!----------------------------------------------------------------------
-      CHARACTER (len=32) ::  clname
       !!
 #if defined key_trc_diaadd && ! defined key_iomput
@@ -78 +78 @@
       !                               ! Open the namelist file
       !                               ! ----------------------
-      clname ='namelist_pisces'
-      CALL ctlopn( numnat, clname, 'OLD', 'FORMATTED', 'SEQUENTIAL', 1, numout, .FALSE., 1 )
+      CALL ctl_opn( numnat, 'namelist_pisces', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )
 
       REWIND( numnat )