Changeset 13374 for NEMO/branches/2020/tickets_icb_1900/src/OCE/ICB/icb_oce.F90

Timestamp:

2020-08-03T15:48:40+02:00 (4 years ago)

Author:

mathiot

Message:

ticket #1900: fix issue about mask management in icb_utl_bilin_3d_h; add option to ground icb if icb bottom lvl hit oce bottom lvl

File:

• NEMO/branches/2020/tickets_icb_1900/src/OCE/ICB/icb_oce.F90 (modified) (1 diff)

NEMO/branches/2020/tickets_icb_1900/src/OCE/ICB/icb_oce.F90

@@ -129 +129 @@
    LOGICAL , PUBLIC ::   ln_time_average_weight          !: Time average the weight on the ocean    !!gm I don't understand that !
    REAL(wp), PUBLIC ::   rn_speed_limit                  !: CFL speed limit for a berg
-   LOGICAL , PUBLIC ::   ln_M2016                        !: use Nacho's Merino 2016 work
+   LOGICAL , PUBLIC ::   ln_M2016, ln_icb_grd            !: use Nacho's Merino 2016 work
    !
    ! restart