New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 1429 – NEMO

Changeset 1429


Ignore:
Timestamp:
2009-05-07T16:11:42+02:00 (15 years ago)
Author:
rblod
Message:

dev_004_VVL:sync: synchro with trunk (r1415), see ticket #423

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/dev_004_VVL/NEMO/OPA_SRC/DOM/dommsk.F90

    r1428 r1429  
    397397         !                                ! Sound  strait  : strong slip (fmask > 2) 
    398398         ij0 = 115   ;   ij1 = 115 
    399          ii0 = 145   ;   ii1 = 146   ;   fmask( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) , 1:jpk ) = 3.0e0 
     399         ii0 = 145   ;   ii1 = 146   ;   fmask( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) , 1:jpk ) = 4.0e0 
    400400         ij0 = 116   ;   ij1 = 116 
    401          ii0 = 145   ;   ii1 = 146   ;   fmask( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) , 1:jpk ) = 3.0e0 
     401         ii0 = 145   ;   ii1 = 146   ;   fmask( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) , 1:jpk ) = 4.0e0 
    402402         ! 
    403403      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.