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

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

@@ -54 +54 @@
 
       INTEGER :: numriv,numdust,numbath,numdep
-      INTEGER :: numlight = 49
+      INTEGER :: numlight 
 
 #if defined key_trc_kriest
@@ -598 +598 @@
       !!  A PRECOMPUTED ARRAY CORRESPONDING TO THE ATTENUATION COEFFICIENT
 
-      OPEN( numlight, file = 'kRGB61.txt', form = 'formatted')
+      CALL ctlopn( numlight, 'kRGB61.txt', 'OLD', 'FORMATTED', 'SEQUENTIAL',   &
+         &           1, numout, .TRUE., 1 )
       DO ichl = 1,61
          READ(numlight,*) ztoto,(xkrgb(iband,ichl),iband = 1,3)