Changeset 625 for trunk/NEMO/TOP_SRC/SMS/trcini.cfc.h90

Timestamp:

2007-02-27T16:51:00+01:00 (17 years ago)

Author:

opalod

Message:

nemo_v2_bugfix_025:RB: suppress hard-coded logical units

File:

• trunk/NEMO/TOP_SRC/SMS/trcini.cfc.h90 (modified) (2 diffs)

trunk/NEMO/TOP_SRC/SMS/trcini.cfc.h90

@@ -4 +4 @@
    !! * Module variables
    INTEGER  ::  &
-      inum = 16     ! unit number
+      inum                   ! unit number
    CHARACTER (len=34) :: &
       clname = 'cfc1112.atm' ! ???
@@ -78 +78 @@
       IF(lwp) WRITE(numout,*) 'read of formatted file cfc1112atm'
       
-      OPEN( UNIT = inum, FORM = 'FORMATTED',FILE = clname, STATUS = 'OLD')
+      CALL ctlopn( inum, clname, 'OLD', 'FORMATTED', 'SEQUENTIAL',   &
+         &           1, numout, .FALSE., 1 )
       REWIND(inum)