Changeset 236 for trunk/NEMO/OPA_SRC/DOM
- Timestamp:
- 2005-03-22T11:17:23+01:00 (19 years ago)
- Location:
- trunk/NEMO/OPA_SRC/DOM
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DOM/domhgr.F90
r224 r236 140 140 ! ! ===================== 141 141 IF( n_cla == 0 ) THEN 142 ii0 = 160 ; ii1 = 161 ! Bab el Mandeb (e2u = 18 km) 142 143 ii0 = 139 ; ii1 = 140 ! Gibraltar Strait (e2u = 20 km) 144 ij0 = 102 ; ij1 = 102 ; e2u( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) ) = 20.e3 145 IF(lwp) WRITE(numout,*) 146 IF(lwp) WRITE(numout,*) ' orca_r2: Gibraltar : e2u reduced to 20 km' 147 ii0 = 160 ; ii1 = 160 ! Bab el Mandeb (e2u = 18 km) 143 148 ij0 = 88 ; ij1 = 88 ; e2u( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) ) = 18.e3 144 149 IF(lwp) WRITE(numout,*) -
trunk/NEMO/OPA_SRC/DOM/dommsk.F90
r62 r236 381 381 ! 382 382 IF( n_cla == 0 ) THEN 383 ! ! Gibraltar strait and Gulf of Cadiz384 ij0 = 101 ; ij1 = 102385 ii0 = 137 ; ii1 = 140 ; fmask( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) , 1:jpk ) = 14.7e0386 ! ! Bab el Mandeb strait387 ij0 = 87 ; ij1 = 88388 ii0 = 162 ; ii1 = 163 ; fmask( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) , 1:jpk ) = 20.0e0389 383 ! ! Sound strait 390 384 ij0 = 116 ; ij1 = 117
Note: See TracChangeset
for help on using the changeset viewer.