Changeset 1707 for trunk/NEMO/OPA_SRC/DOM/domhgr.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/domhgr.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/DOM/domhgr.F90

@@ -153 +153 @@
             ENDIF
 
-            ii0 = 145   ;   ii1 = 146        ! Sound Strait (e2u = 15 km)
-            ij0 = 116   ;   ij1 = 116   ;   e2u( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) ) =  15.e3
-            IF(lwp) WRITE(numout,*)
-            IF(lwp) WRITE(numout,*) '             orca_r2: Sound Strait : e2u reduced to 15 km'
+            ii0 = 145   ;   ii1 = 146        ! Danish Straits (e2u = 10 km)
+            ij0 = 116   ;   ij1 = 116   ;   e2u( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) ) =  10.e3
+            IF(lwp) WRITE(numout,*)
+            IF(lwp) WRITE(numout,*) '             orca_r2: Danish Straits : e2u reduced to 10 km'
             !
          ENDIF