Changeset 1217 for trunk/NEMO/OPA_SRC/TRA/tradmp.F90

Timestamp:

2008-10-17T15:31:06+02:00 (16 years ago)

Author:

smasson

Message:

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

File:

• trunk/NEMO/OPA_SRC/TRA/tradmp.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/TRA/tradmp.F90

@@ -371 +371 @@
          IF(lwp) WRITE(numout,*)
          IF(lwp) WRITE(numout,*) ' dtacof : distance to coast file'
-         CALL iom_open ( 'dist.coast.nc', icot )
+         CALL iom_open ( 'dist.coast.nc', icot, ldstop = .FALSE. )
          IF( icot > 0 ) THEN
             CALL iom_get ( icot, jpdom_data, 'Tcoast', zdct )