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 4279 – NEMO

Changeset 4279


Ignore:
Timestamp:
2013-11-20T10:57:52+01:00 (10 years ago)
Author:
davestorkey
Message:

Minor update for LIM3 BDY code.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/OPA_SRC/BDY/bdyice_lim.F90

    r4278 r4279  
    311311      INTEGER  ::   ji, jj             ! local scalar 
    312312      INTEGER  ::   ib_bdy ! Loop index 
    313       REAL(wp) ::   zmsk1, zmsk2, zflag  
     313      REAL(wp) ::   zmsk1, zmsk2, zflag, zinda  
    314314     !!------------------------------------------------------------------------------ 
    315315      ! 
     
    345345                  u_ice(ji,jj) = u_oce(ji,jj) 
    346346               ENDIF 
     347               ! mask ice velocities 
     348               zinda = 1.0 - MAX( 0.0_wp, SIGN( 1.0_wp , - at_i(ji,jj) ) ) ! 0 if no ice 
     349               u_ice(ji,jj) = zinda * u_ice(ji,jj) 
    347350 
    348351            ENDDO 
     
    366369                  v_ice(ji,jj) = v_oce(ji,jj) 
    367370               ENDIF 
     371               ! mask ice velocities 
     372               zinda = 1.0 - MAX( 0.0_wp, SIGN( 1.0_wp , - at_i(ji,jj) ) ) ! 0 if no ice 
     373               v_ice(ji,jj) = zinda * v_ice(ji,jj) 
    368374 
    369375            ENDDO 
Note: See TracChangeset for help on using the changeset viewer.