Changeset 1707 for trunk/NEMO/OPA_SRC/DOM/dommsk.F90

Timestamp:

2009-11-04T12:51:20+01:00 (14 years ago)

Author:

rblod

Message:

Fix bug for ORCA2 at Danish Straits, see ticket #586

File:

• trunk/NEMO/OPA_SRC/DOM/dommsk.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/DOM/dommsk.F90

@@ -322 +322 @@
             !
          ENDIF
-         !                                ! Sound  strait  : strong slip (fmask > 2)
-         ij0 = 115   ;   ij1 = 115
-         ii0 = 145   ;   ii1 = 146   ;   fmask( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) , 1:jpk ) = 4.0e0
-         ij0 = 116   ;   ij1 = 116
-         ii0 = 145   ;   ii1 = 146   ;   fmask( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) , 1:jpk ) = 4.0e0
+
+         !                                ! Danish straits  : strong slip (fmask > 2)
+! We keep this as an example but it is instable in this case 
+!         ij0 = 115   ;   ij1 = 115
+!         ii0 = 145   ;   ii1 = 146   ;   fmask( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) , 1:jpk ) = 4.0e0
+!         ij0 = 116   ;   ij1 = 116
+!         ii0 = 145   ;   ii1 = 146   ;   fmask( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) , 1:jpk ) = 4.0e0
          !
       ENDIF