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

trunk/NEMO/OPA_SRC/LDF/ldftra.F90

@@ -112 +112 @@
       IF(lwp) WRITE(numout,*) '          tracer mixing coef. = F( depth )'
       ioptio = ioptio + 1
-      IF( .NOT. ln_zco ) THEN
-         IF(lwp) WRITE(numout,cform_err)
-         IF(lwp) WRITE(numout,*) '          key_traldf_c1d can only be used in z-coordinate - full step'
-         nstop = nstop + 1
-      ENDIF
+      IF( .NOT. ln_zco ) &
+           &   CALL ctl_stop( '          key_traldf_c1d can only be used in z-coordinate - full step' )
 #endif
       IF( ioptio == 0 ) THEN
           IF(lwp) WRITE(numout,*) '          tracer mixing coef. = constant (default option)'
         ELSEIF( ioptio > 1 ) THEN
-          IF(lwp) WRITE(numout,cform_err)
-          IF(lwp) WRITE(numout,*) '          use only one of the following keys:',   &
-             &                    ' key_traldf_c3d, key_traldf_c2d, key_traldf_c1d'
-          nstop = nstop + 1
+           CALL ctl_stop('          use only one of the following keys:',   &
+             &           ' key_traldf_c3d, key_traldf_c2d, key_traldf_c1d' )
       ENDIF
 
       IF( ln_traldf_bilap ) THEN
          IF(lwp) WRITE(numout,*) '          biharmonic tracer diffusion'
-         IF( aht0 > 0 .AND. .NOT. lk_esopa ) THEN
-            IF(lwp) WRITE(numout,cform_err)
-            IF(lwp) WRITE(numout,*) '          The horizontal diffusivity coef. aht0 must be negative'
-            nstop = nstop + 1
-         ENDIF
+         IF( aht0 > 0 .AND. .NOT. lk_esopa )   &
+              &   CALL ctl_stop( '          The horizontal diffusivity coef. aht0 must be negative' )
       ELSE
          IF(lwp) WRITE(numout,*) '          harmonic tracer diffusion (default)'
-         IF( aht0 < 0 .AND. .NOT. lk_esopa ) THEN
-            IF(lwp) WRITE(numout,cform_err)
-            IF(lwp) WRITE(numout,*) '          The horizontal diffusivity coef. aht0 must be positive'
-            nstop = nstop + 1
-         ENDIF
+         IF( aht0 < 0 .AND. .NOT. lk_esopa )   &
+              &   CALL ctl_stop('          The horizontal diffusivity coef. aht0 must be positive' )
       ENDIF