Changeset 1685 for trunk/NEMO/TOP_SRC/TRP/trdmld_trc.F90
- Timestamp:
- 2009-10-28T11:28:21+01:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/TRP/trdmld_trc.F90
r1581 r1685 1213 1213 !! 1214 1214 !!---------------------------------------------------------------------- 1215 INTEGER :: inum ! logical unit 1215 1216 INTEGER :: ilseq, jl, jn 1216 1217 REAL(wp) :: zjulian, zsto, zout … … 1364 1365 ! ---------------------------------------------- 1365 1366 IF( nctls_trc == 1 ) THEN 1366 CALL ctl_opn( numbol, 'ctlsurf_idx', 'OLD', 'UNFORMATTED', 'SEQUENTIAL', -1, numout, lwp )1367 READ ( numbol) nbol_trc1368 CLOSE( numbol)1367 CALL ctl_opn( inum, 'ctlsurf_idx', 'OLD', 'UNFORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 1368 READ ( inum ) nbol_trc 1369 CLOSE( inum ) 1369 1370 ENDIF 1370 1371
Note: See TracChangeset
for help on using the changeset viewer.