Changeset 236 for trunk/NEMO/OPA_SRC/DOM

Timestamp:

2005-03-22T11:17:23+01:00 (19 years ago)

Author:

opalod

Message:

CT : BUGFIX170 : correction of a bug which occurs near Gibraltar and Bab El Mandeb straits in the ORCA 2� configuration when using partial-steps and the MUSCL or TVD advection scheme

Location:

trunk/NEMO/OPA_SRC/DOM

Files:

• domhgr.F90 (modified) (1 diff)
• dommsk.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/DOM/domhgr.F90

@@ -140 +140 @@
             !                                             ! =====================
             IF( n_cla == 0 ) THEN
-               ii0 = 160   ;   ii1 = 161        ! Bab el Mandeb (e2u = 18 km)
+
+               ii0 = 139   ;   ii1 = 140        ! Gibraltar Strait (e2u = 20 km)
+               ij0 = 102   ;   ij1 = 102   ;   e2u( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) ) =  20.e3
+               IF(lwp) WRITE(numout,*)
+               IF(lwp) WRITE(numout,*) '             orca_r2: Gibraltar : e2u reduced to 20 km'
+               ii0 = 160   ;   ii1 = 160        ! Bab el Mandeb (e2u = 18 km)
                ij0 =  88   ;   ij1 =  88   ;   e2u( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) ) =  18.e3
                IF(lwp) WRITE(numout,*)

trunk/NEMO/OPA_SRC/DOM/dommsk.F90

@@ -381 +381 @@
          !
          IF( n_cla == 0 ) THEN
-            !                                ! Gibraltar strait and Gulf of Cadiz
-            ij0 = 101   ;   ij1 = 102
-            ii0 = 137   ;   ii1 = 140   ;   fmask( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) , 1:jpk ) = 14.7e0
-            !                                ! Bab el Mandeb strait
-            ij0 =  87   ;   ij1 =  88
-            ii0 = 162   ;   ii1 = 163   ;   fmask( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) , 1:jpk ) = 20.0e0
             !                                ! Sound  strait
             ij0 = 116   ;   ij1 = 117