Changeset 474 for trunk/NEMO/LIM_SRC/limrst_dimg.h90

Timestamp:

2006-05-11T17:24:19+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_061: SM: end of ctl_stop + mpi optimization in _bilap

File:

• trunk/NEMO/LIM_SRC/limrst_dimg.h90 (modified) (1 diff)

trunk/NEMO/LIM_SRC/limrst_dimg.h90

@@ -191 +191 @@
       
       IF( ( it0 - it1 ) /= 1 .AND. ABS( nrstdt ) == 1 ) THEN
-         IF (lwp) THEN
-         WRITE(numout,cform_err)
-         WRITE(numout,*) ' ===>>>> : problem with nit000 for the restart'
-         WRITE(numout,*) ' we stop. verify the file or rerun with the value  0 for the'
-         WRITE(numout,*) ' control of time parameter  nrstdt'
-         END IF
-         nstop = nstop + 1
+         CALL ctl_stop( ' ===>>>> : problem with nit000 for the restart',   &
+         &              ' we stop. verify the file or rerun with the value  0 for the',   &
+         &          ' control of time parameter  nrstdt' )
       ENDIF