Changeset 915 for trunk/NEMO/OPA_SRC/TRA/trazdf_imp.F90

Timestamp:

2008-05-07T11:42:47+02:00 (16 years ago)

Author:

rblod

Message:

Correct the ldf_slp/trazdf_imp bug in a proper way, see ticket #118

File:

• trunk/NEMO/OPA_SRC/TRA/trazdf_imp.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/TRA/trazdf_imp.F90

@@ -31 +31 @@
    USE prtctl          ! Print control
    USE domvvl          ! variable volume
-   USE traldf          ! lateral mixing type
+   USE ldftra          ! lateral mixing type
 
    IMPLICIT NONE
@@ -139 +139 @@
 #if defined key_ldfslp
       ! update and save of avt (and avs if double diffusive mixing)
-      IF( nldf == 1) THEN
+      IF( l_traldf_rot ) THEN
          DO jk = 2, jpkm1
             DO jj = 2, jpjm1
@@ -154 +154 @@
          END DO
       ENDIF   
-
 #else
       ! No isopycnal diffusion