Changeset 1581 for trunk/NEMO/TOP_SRC/LOBSTER

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

trunk/NEMO/TOP_SRC/LOBSTER/trclsm_lobster.F90

@@ -16 +16 @@
    USE trc             ! TOP variables
    USE sms_lobster     ! sms trends
+   USE in_out_manager  ! I/O manager
 
    IMPLICIT NONE
@@ -39 +40 @@
       !!             namelist: natbio, natopt, and natdbi ("key_trc_diabio")
       !!----------------------------------------------------------------------
-      CHARACTER (len=32) :: clname
       INTEGER ::   numnatl
       !!
@@ -92 +92 @@
       !                               ! Open the namelist file
       !                               ! ----------------------
-      clname ='namelist_lobster'
-      CALL ctlopn( numnatl, clname, 'OLD', 'FORMATTED', 'SEQUENTIAL', 1, numout, .FALSE., 1 )
+      CALL ctl_opn( numnatl, 'namelist_lobster', 'OLD', 'FORMATTED', 'SEQUENTIAL', 1, numout, .FALSE. )
 
       ! namlobphy : parameters for phytoplankton