Changeset 5873
- Timestamp:
- 2015-11-09T20:22:01+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/lat_frc_rev/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90
r5539 r5873 425 425 IF(lwp) WRITE(numout,*) ' Lombok ' 426 426 ii0 = 44 ; ii1 = 44 ! Lombok Strait 427 ij0 = 124 + isrow ; ij1 = 165 - isrow ; fmask( mi0(ii0):mi1(ii1),mj0(ij0):mj1(ij1),1:jpk ) = 2._wp427 ij0 = 124 + isrow ; ij1 = 165 - isrow ; fmask( mi0(ii0):mi1(ii1),mj0(ij0):mj1(ij1),1:jpk ) = 4._wp 428 428 429 429 IF(lwp) WRITE(numout,*) ' Ombai '
Note: See TracChangeset
for help on using the changeset viewer.