Changeset 625 for trunk/NEMO/TOP_SRC/SMS/trclsm.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/trclsm.cfc.h90 (modified) (2 diffs)

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

@@ -26 +26 @@
          clname = 'namelist.trc.sms'
       INTEGER ::  &
-         numnat = 80
+         numnat
 
       NAMELIST/namdates/ndate_beg, nyear_res
@@ -41 +41 @@
       ENDIF
 
-      OPEN( UNIT=numnat, FILE=clname, FORM='FORMATTED', STATUS='OLD' )
+      CALL ctlopn( numnat, clname, 'OLD', 'FORMATTED', 'SEQUENTIAL',   &
+         &           1, numout, .FALSE., 1 )
       READ( numnat , namdates )