Changeset 1581 for trunk/NEMO/OPA_SRC/trc_oce.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/OPA_SRC/trc_oce.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/trc_oce.F90

@@ -167 +167 @@
       INTEGER  ::   numlight
       REAL(wp) ::   zchl
-      CHARACTER(LEN=20) :: clname
-      !!----------------------------------------------------------------------
-      !
-      clname = 'kRGB61.txt' 
-      CALL ctlopn( numlight, clname, 'OLD', 'FORMATTED', 'SEQUENTIAL', 1, numout, .TRUE., 1 )
+      !!----------------------------------------------------------------------
+      !
+      CALL ctl_opn( numlight, 'kRGB61.txt', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp )
       DO jchl = 1, 61
          READ(numlight,*) zchl, ( prgb(jband,jchl), jband=1,3 )