Changeset 13359 for NEMO/branches/2020/tickets_icb_1900/src/OCE/ICB/icbstp.F90

Timestamp:

2020-07-30T15:40:36+02:00 (4 years ago)

Author:

mathiot

Message:

ticket #1900: add subroutine icb_utl_zavg, fix issue in icb_utl_getkb, add subroutine test_icb_utl_getkb to test awkward cases (will be removed after the review), simplify icbdyn.F90 icbthm.F90 according to the new routine created.

File:

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

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

@@ -71 +71 @@
       !
       nktberg = kt
+      !
+      !CALL test_icb_utl_getkb
+      !CALL ctl_stop('end test icb')
       !
       IF( nn_test_icebergs < 0 .OR. ln_use_calving ) THEN !* read calving data