Changeset 14711

Timestamp:

2021-04-14T11:39:36+02:00 (3 years ago)

Author:

dancopsey

Message:

Add option for icebergs to bounce away from the coast

File:

• NEMO/branches/UKMO/NEMO_4.0.4_bouncing_icebergs/src/OCE/ICB/icbdyn.F90 (modified) (2 diffs)

NEMO/branches/UKMO/NEMO_4.0.4_bouncing_icebergs/src/OCE/ICB/icbdyn.F90

@@ -212 +212 @@
       !! second option (suggested by gm) is only to set the velocity component in the (i,j) direction
       !! of travel to zero; at a coastal boundary this has the effect of sliding the berg along the coast
-
-      ibounce_method = 2
+      !! third option is to reverse the velocity conponent tangential to the coast so that the
+      !! iceberg moves away from the coast.
+
+      ibounce_method = 3
       SELECT CASE ( ibounce_method )
       CASE ( 1 )
@@ -228 +230 @@
             pj = pj0                   ! return back to the initial position
             pv = 0._wp                 ! zeroing of velocity in the direction of the grounding
+         ENDIF
+      CASE ( 3 )
+         IF( ii0 /= ii ) THEN
+            pi = pi0                   ! return back to the initial position
+            pu = -0.8_wp * pu          ! reversing the velocity so the iceberg moves away from the coast
+         ENDIF
+         IF( ij0 /= ij ) THEN
+            pj = pj0                   ! return back to the initial position
+            pv = -0.8_wp * pv          ! reversing the velocity so the iceberg moves away from the coast
          ENDIF
       END SELECT