Changeset 9932 for NEMO/trunk/src/OCE/ICB/icbstp.F90

Timestamp:

2018-07-11T18:12:44+02:00 (6 years ago)

Author:

acc

Message:

Some necessary (but not yet sufficient) changes to iceberg code to reinstate restartability. Details on ticket #2113

File:

• NEMO/trunk/src/OCE/ICB/icbstp.F90 (modified) (2 diffs)

NEMO/trunk/src/OCE/ICB/icbstp.F90

@@ -71 +71 @@
       nktberg = kt
       !
-      IF( nn_test_icebergs < 0 ) THEN     !* read calving data
+      IF( nn_test_icebergs < 0 .OR. ln_use_calving ) THEN !* read calving data
          !
          CALL fld_read ( kt, 1, sf_icb )
@@ -99 +99 @@
                                      CALL icb_clv_flx( kt )   ! Accumulate ice from calving
       !                              !
-                                     CALL icb_clv()           ! Calve excess stored ice into icebergs
+                                     CALL icb_clv( kt )       ! Calve excess stored ice into icebergs
       !                              !
       !