Changeset 501 for trunk/NEMO/TOP_SRC/TRP/trcnxt.F90

Timestamp:

2006-09-12T13:10:14+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_068:CE:re-organization of coordinate definition and scale factors

File:

• trunk/NEMO/TOP_SRC/TRP/trcnxt.F90 (modified) (1 diff)

trunk/NEMO/TOP_SRC/TRP/trcnxt.F90

@@ -97 +97 @@
 
 #if defined key_obc
-        IF(lwp) WRITE(numout,cform_err)
-        IF(lwp) WRITE(numout,*) '          Passive tracers and Open Boundary condition can not be used together '
-        IF(lwp) WRITE(numout,*) '          Check in trc_nxt routine'
-        nstop = nstop + 1
+        CALL ctl_stop( '          Passive tracers and Open Boundary condition can not be used together ' &
+           &           '          Check in trc_nxt routine' )
 #endif