Changeset 1217
- Timestamp:
- 2008-10-17T15:31:06+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/TRA/tradmp.F90
r1152 r1217 371 371 IF(lwp) WRITE(numout,*) 372 372 IF(lwp) WRITE(numout,*) ' dtacof : distance to coast file' 373 CALL iom_open ( 'dist.coast.nc', icot )373 CALL iom_open ( 'dist.coast.nc', icot, ldstop = .FALSE. ) 374 374 IF( icot > 0 ) THEN 375 375 CALL iom_get ( icot, jpdom_data, 'Tcoast', zdct )
Note: See TracChangeset
for help on using the changeset viewer.