Changeset 6736 for branches/NERC/dev_r3874_FASTNEt/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_bilapg.F90

Timestamp:

2016-06-24T09:50:27+02:00 (8 years ago)

Author:

jamesharle

Message:

FASTNEt code modifications

File:

• branches/NERC/dev_r3874_FASTNEt/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_bilapg.F90 (modified) (2 diffs)

branches/NERC/dev_r3874_FASTNEt/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_bilapg.F90

@@ -414 +414 @@
          ! II.3 Divergence of vertical fluxes added to the horizontal divergence
          ! ---------------------------------------------------------------------
-         IF( (kahm -nkahm_smag) ==1 ) THEN
+
+         IF( kahm == 1 ) THEN
             ! multiply the laplacian by the eddy viscosity coefficient
             DO jk = 1, jpkm1
@@ -429 +430 @@
                END DO
             END DO
-         ELSEIF( (kahm +nkahm_smag ) == 2 ) THEN
+         ELSEIF( kahm == 2 ) THEN
             ! second call, no multiplication
             DO jk = 1, jpkm1