Changeset 474 for trunk/NEMO/OPA_SRC/DYN/dynspg_rl.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_rl.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/DYN/dynspg_rl.F90

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