Changeset 175 for trunk/NEMO/OPA_SRC/LDF

Timestamp:

2004-11-05T15:00:22+01:00 (19 years ago)

Author:

opalod

Message:

CT : BUGFIX120 : correct an error subsitution for bi-laplacian viscosity coefficients when using at least the key_dynldf_c3d cpp key

File:

• trunk/NEMO/OPA_SRC/LDF/ldfdyn_substitute.h90 (modified) (4 diffs)

trunk/NEMO/OPA_SRC/LDF/ldfdyn_substitute.h90

@@ -9 +9 @@
 #    define   fsahmt(i,j,k)    ahm1(i,j,k)
 #    define   fsahmf(i,j,k)    ahm2(i,j,k)
-#    define   fsahmu(i,j,k)    ahm1(i,j,k)
-#    define   fsahmv(i,j,k)    ahm2(i,j,k)
-#    define   fsahmuw(i,j,k)   ahm3(i,j,k)
-#    define   fsahmvw(i,j,k)   ahm4(i,j,k)
+#    define   fsahmu(i,j,k)    ahm3(i,j,k)
+#    define   fsahmv(i,j,k)    ahm4(i,j,k)
 #elif defined key_dynldf_c2d
 !   ' key_dynldf_c2d' :                 2D coefficient
@@ -19 +17 @@
 #  define   fsahmu(i,j,k)    ahm3(i,j)
 #  define   fsahmv(i,j,k)    ahm4(i,j)
-#  define   fsahmuw(i,j,k)   ahm3(i,j)
-#  define   fsahmvw(i,j,k)   ahm4(i,j)
 #elif defined key_dynldf_c1d
 !   'key_dynldf_c1d' :                  1D coefficient
@@ -27 +23 @@
 #  define   fsahmu(i,j,k)    ahm1(k)
 #  define   fsahmv(i,j,k)    ahm1(k)
-#  define   fsahmuw(i,j,k)   ahm2(k)
-#  define   fsahmvw(i,j,k)   ahm2(k)
 #else
 !   default option :               Constant coefficient
@@ -35 +29 @@
 #  define   fsahmu(i,j,k)   ahm0
 #  define   fsahmv(i,j,k)   ahm0
-#  define   fsahmu(i,j,k)   ahm0
-#  define   fsahmv(i,j,k)   ahm0
 #endif