Changeset 7765 for trunk/NEMOGCM/NEMO

Timestamp:

2017-03-07T13:45:51+01:00 (7 years ago)

Author:

timgraham

Message:

Fix for #1862

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/TRA/traldf.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OPA_SRC/TRA/traldf.F90

@@ -172 +172 @@
             ENDIF
          ENDIF
-      ENDIF
-      !
-      IF( ierr == 1 )   CALL ctl_stop( 'iso-level in z-partial step, not allowed' )
+         IF( ierr == 1 )   CALL ctl_stop( 'iso-level in z-partial step, not allowed' )
+      ENDIF
+      !
       IF( ln_ldfeiv .AND. .NOT.( ln_traldf_iso .OR. ln_traldf_triad ) )                                    &
            &            CALL ctl_stop( 'eddy induced velocity on tracers requires iso-neutral laplacian diffusion' )