Changeset 474 for trunk/NEMO/OPA_SRC/DYN/dynspg_flt_jki.F90

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/OPA_SRC/DYN/dynspg_flt_jki.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/DYN/dynspg_flt_jki.F90

@@ -300 +300 @@
             CALL sol_sor_e( kindic )
          ELSE                          ! e r r o r in nsolv namelist parameter
-            IF(lwp) WRITE(numout,cform_err)
-            IF(lwp) WRITE(numout,*) ' dyn_spg_flt_jki : e r r o r, nsolv = 1, 2, 3 or 4'
-            IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~~~                not = ', nsolv
-            nstop = nstop + 1
-         ENDIF
+            WRITE(ctmp1,*) ' ~~~~~~~~~~~~~~~~                not = ', nsolv
+            CALL ctl_stop( ' dyn_spg_flt_jki : e r r o r, nsolv = 1, 2, 3 or 4', ctmp1 )
       ENDIF