Changeset 2420
- Timestamp:
- 2010-11-24T15:54:00+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/nemo_v3_3_beta/NEMOGCM/NEMO/TOP_SRC/trcdia.F90
r2364 r2420 163 163 IF(lwp) THEN 164 164 CALL dia_nam( clhstnam, nn_writetrc,' ' ) 165 CALL ctl opn( inum, 'date.file', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', 1, numout, lwp, narea )165 CALL ctl_opn( inum, 'date.file', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', 1, numout, lwp, narea ) 166 166 WRITE(inum,*) clhstnam 167 167 CLOSE(inum)
Note: See TracChangeset
for help on using the changeset viewer.