Changeset 2177 for branches/DEV_r1924_nocs_latphys/NEMO/OPA_SRC/step.F90

Timestamp:

2010-10-07T09:54:26+02:00 (14 years ago)

Author:

sga

Message:

NEMO branch DEV_r1924_nocs_latphys.

Remove code for optional calculation of eddy induced velocity coefficients by Visbeck method.
This code now in separate branch DEV_r1924_visbeck.

File:

• branches/DEV_r1924_nocs_latphys/NEMO/OPA_SRC/step.F90 (modified) (2 diffs)

branches/DEV_r1924_nocs_latphys/NEMO/OPA_SRC/step.F90

@@ -85 +85 @@
    USE ldfslp          ! iso-neutral slopes               (ldf_slp routine)
    USE ldfeiv          ! eddy induced velocity coef.      (ldf_eiv routine)
-   USE ldfeiv_vis      ! eddy induced velocity coef.  (ldf_eiv_vis routine)
 
    USE zdftmx          ! tide-induced vertical mixing     (zdf_tmx routine)
@@ -243 +242 @@
       ENDIF
 #if defined key_traldf_c2d
-      IF( lk_traldf_eiv )  THEN                                  ! eddy induced velocity coefficient
-         IF ( ln_traldf_vis )   THEN
-            CALL ldf_eiv_vis( kstp )
-         ELSE
-            CALL ldf_eiv( kstp )
-         ENDIF
-      ENDIF
+      IF( lk_traldf_eiv )   CALL ldf_eiv( kstp )      ! eddy induced velocity coefficient
 #  endif