Changeset 1217


Ignore:
Timestamp:
2008-10-17T15:31:06+02:00 (12 years ago)
Author:
smasson
Message:

bugfix in tradmp.F90 when dist.coast.nc is not existing, see ticket:273

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/TRA/tradmp.F90

    r1152 r1217  
    371371         IF(lwp) WRITE(numout,*) 
    372372         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. ) 
    374374         IF( icot > 0 ) THEN 
    375375            CALL iom_get ( icot, jpdom_data, 'Tcoast', zdct ) 
Note: See TracChangeset for help on using the changeset viewer.