Changeset 520 for trunk/NEMO/OPA_SRC

Timestamp:

2006-10-11T15:49:27+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_bugfix_58 : CT : correct the dimension declaration for zfuw, zfvw ..etc arrays, using jpk instead of jpj

File:

• trunk/NEMO/OPA_SRC/DYN/dynldf_iso.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/DYN/dynldf_iso.F90

@@ -104 +104 @@
          zdku, zdk1u, zdkv, zdk1v
 
-! ajout dynzdf_iso
       REAL(wp) ::   &
          zcoef0, zcoef3, zcoef4, zmkt, zmkf,   &
          zuav, zvav, zuwslpi, zuwslpj, zvwslpi, zvwslpj
-      REAL(wp), DIMENSION(jpi,jpj) ::        &
+      REAL(wp), DIMENSION(jpi,jpk) ::        &
          zfuw, zdiu, zdju, zdj1u,            & !    "        "
          zfvw, zdiv, zdjv, zdj1v