Changeset 5873


Ignore:
Timestamp:
2015-11-09T20:22:01+01:00 (5 years ago)
Author:
antsia
Message:

increase lateral friction on Lombok strait for a testing of standard eORCA1

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/lat_frc_rev/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90

    r5539 r5873  
    425425         IF(lwp) WRITE(numout,*) '      Lombok ' 
    426426         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._wp   
     427         ij0 = 124 + isrow   ;   ij1 = 165 - isrow   ;   fmask( mi0(ii0):mi1(ii1),mj0(ij0):mj1(ij1),1:jpk ) = 4._wp   
    428428 
    429429         IF(lwp) WRITE(numout,*) '      Ombai ' 
Note: See TracChangeset for help on using the changeset viewer.