- Timestamp:
- 2009-05-07T16:11:42+02:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_004_VVL/NEMO/OPA_SRC/DOM/dommsk.F90
r1428 r1429 397 397 ! ! Sound strait : strong slip (fmask > 2) 398 398 ij0 = 115 ; ij1 = 115 399 ii0 = 145 ; ii1 = 146 ; fmask( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) , 1:jpk ) = 3.0e0399 ii0 = 145 ; ii1 = 146 ; fmask( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) , 1:jpk ) = 4.0e0 400 400 ij0 = 116 ; ij1 = 116 401 ii0 = 145 ; ii1 = 146 ; fmask( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) , 1:jpk ) = 3.0e0401 ii0 = 145 ; ii1 = 146 ; fmask( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) , 1:jpk ) = 4.0e0 402 402 ! 403 403 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.