- Timestamp:
- 2009-11-04T12:51:20+01:00 (14 years ago)
- Location:
- trunk/NEMO/OPA_SRC/DOM
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DOM/domhgr.F90
r1273 r1707 153 153 ENDIF 154 154 155 ii0 = 145 ; ii1 = 146 ! Sound Strait (e2u = 15km)156 ij0 = 116 ; ij1 = 116 ; e2u( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) ) = 1 5.e3157 IF(lwp) WRITE(numout,*) 158 IF(lwp) WRITE(numout,*) ' orca_r2: Sound Strait : e2u reduced to 15km'155 ii0 = 145 ; ii1 = 146 ! Danish Straits (e2u = 10 km) 156 ij0 = 116 ; ij1 = 116 ; e2u( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) ) = 10.e3 157 IF(lwp) WRITE(numout,*) 158 IF(lwp) WRITE(numout,*) ' orca_r2: Danish Straits : e2u reduced to 10 km' 159 159 ! 160 160 ENDIF -
trunk/NEMO/OPA_SRC/DOM/dommsk.F90
r1694 r1707 322 322 ! 323 323 ENDIF 324 ! ! Sound strait : strong slip (fmask > 2) 325 ij0 = 115 ; ij1 = 115 326 ii0 = 145 ; ii1 = 146 ; fmask( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) , 1:jpk ) = 4.0e0 327 ij0 = 116 ; ij1 = 116 328 ii0 = 145 ; ii1 = 146 ; fmask( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) , 1:jpk ) = 4.0e0 324 325 ! ! Danish straits : strong slip (fmask > 2) 326 ! We keep this as an example but it is instable in this case 327 ! ij0 = 115 ; ij1 = 115 328 ! ii0 = 145 ; ii1 = 146 ; fmask( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) , 1:jpk ) = 4.0e0 329 ! ij0 = 116 ; ij1 = 116 330 ! ii0 = 145 ; ii1 = 146 ; fmask( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) , 1:jpk ) = 4.0e0 329 331 ! 330 332 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.