Changeset 1581 for trunk/NEMO/LIM_SRC_2/iceini_2.F90

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/LIM_SRC_2/iceini_2.F90 (modified) (1 diff)

trunk/NEMO/LIM_SRC_2/iceini_2.F90

@@ -45 +45 @@
       !! ** purpose :   
       !!----------------------------------------------------------------------
-      CHARACTER(len=80) :: namelist_icename
-      !!----------------------------------------------------------------------
       !
       ! Open the namelist file 
-      namelist_icename = 'namelist_ice'
-      CALL ctlopn(numnam_ice,namelist_icename,'OLD', 'FORMATTED', 'SEQUENTIAL',   &
-                     1,numout,.FALSE.,1)      
+      CALL ctl_opn( numnam_ice, 'namelist_ice', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp )      
       CALL ice_run_2                    !  read in namelist some run parameters