Changeset 14711


Ignore:
Timestamp:
2021-04-14T11:39:36+02:00 (5 weeks ago)
Author:
dancopsey
Message:

Add option for icebergs to bounce away from the coast

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0.4_bouncing_icebergs/src/OCE/ICB/icbdyn.F90

    r14075 r14711  
    212212      !! second option (suggested by gm) is only to set the velocity component in the (i,j) direction 
    213213      !! of travel to zero; at a coastal boundary this has the effect of sliding the berg along the coast 
    214  
    215       ibounce_method = 2 
     214      !! third option is to reverse the velocity conponent tangential to the coast so that the 
     215      !! iceberg moves away from the coast. 
     216 
     217      ibounce_method = 3 
    216218      SELECT CASE ( ibounce_method ) 
    217219      CASE ( 1 ) 
     
    228230            pj = pj0                   ! return back to the initial position 
    229231            pv = 0._wp                 ! zeroing of velocity in the direction of the grounding 
     232         ENDIF 
     233      CASE ( 3 ) 
     234         IF( ii0 /= ii ) THEN 
     235            pi = pi0                   ! return back to the initial position 
     236            pu = -0.8_wp * pu          ! reversing the velocity so the iceberg moves away from the coast 
     237         ENDIF 
     238         IF( ij0 /= ij ) THEN 
     239            pj = pj0                   ! return back to the initial position 
     240            pv = -0.8_wp * pv          ! reversing the velocity so the iceberg moves away from the coast 
    230241         ENDIF 
    231242      END SELECT 
Note: See TracChangeset for help on using the changeset viewer.