Changeset 9434 for branches/UKMO/dev_r5518_GO6_namelist_read/NEMOGCM/NEMO/OPA_SRC/trc_oce.F90

Timestamp:

2018-03-27T10:32:34+02:00 (6 years ago)

Author:

andmirek

Message:

#2067 add atribute for file opening

File:

• branches/UKMO/dev_r5518_GO6_namelist_read/NEMOGCM/NEMO/OPA_SRC/trc_oce.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_GO6_namelist_read/NEMOGCM/NEMO/OPA_SRC/trc_oce.F90

@@ -224 +224 @@
       ENDIF
       !
-      CALL ctl_opn( numlight, 'kRGB61.txt', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp )
+      CALL ctl_opn( numlight, 'kRGB61.txt', 'OLD', 'FORMATTED', 'SEQUENTIAL', 'READ', -1, numout, lwp )
       DO jc = 1, 61
          READ(numlight,*) zchl, ( prgb(jb,jc), jb = 1, 3 )