Changeset 2939

Timestamp:

2011-10-16T10:04:41+02:00 (13 years ago)

Author:

hliu

Message:

change the order of multiply viscosity

File:

• branches/2011/dev_r2802_NOCL_Smagorinsky/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_bilapg.F90 (modified) (2 diffs)

branches/2011/dev_r2802_NOCL_Smagorinsky/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_bilapg.F90

@@ -413 +413 @@
          ! ---------------------------------------------------------------------
 
-         IF( kahm == 1 ) THEN
+         IF( ( kahm -nkahm_smag )  == 1 ) THEN
             ! multiply the laplacian by the eddy viscosity coefficient
             DO jk = 1, jpkm1
@@ -428 +428 @@
                END DO
             END DO
-         ELSEIF( kahm == 2 ) THEN
+         ELSEIF( (kahm +nkahm_smag ) == 2 ) THEN
             ! second call, no multiplication
             DO jk = 1, jpkm1