Changeset 225 for trunk/NEMO

Timestamp:

2005-03-18T19:25:24+01:00 (19 years ago)

Author:

opalod

Message:

CT : UPDATE169 : correct indices location for damping coeficient close to the Gibraltar strait in the ORCA 0.5� configuration

File:

• trunk/NEMO/OPA_SRC/TRA/tradmp.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/TRA/tradmp.F90

@@ -616 +616 @@
             ij0 = 367   ;   ij1 = 372   ;   zmrs( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) ) = 1.e0
             ! Decrease before Gibraltar Strait
-            ii0 = 324   ;   ii1 = 333
-            ij0 = 565   ;   ij1 = 565   ;   zmrs( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) ) = 1.e0 / 90.e0
-            ij0 = 566   ;   ij1 = 566   ;   zmrs( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) ) = 0.40
-            ij0 = 567   ;   ij1 = 567   ;   zmrs( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) ) = 0.75
+            ij0 = 324   ;   ij1 = 333
+            ii0 = 565   ;   ii1 = 565   ;   zmrs( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) ) = 1.e0 / 90.e0
+            ii0 = 566   ;   ii1 = 566   ;   zmrs( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) ) = 0.40
+            ii0 = 567   ;   ii1 = 567   ;   zmrs( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) ) = 0.75
             ! Red Sea
             ii0 = 641   ;   ii1 = 665