Changeset 9932 for NEMO/trunk/src/OCE/ICB/icbclv.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/icbclv.F90 (modified) (3 diffs)

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

@@ -63 +63 @@
       berg_grid%calving_hflx(:,:) = src_calving_hflx(:,:) * tmask_i(:,:)
 
-      IF( ll_first_call .AND. .NOT. l_restarted_bergs) THEN      ! This is a hack to simplify initialization
+      IF( ll_first_call .AND. .NOT. l_restarted_bergs ) THEN      ! This is a hack to simplify initialization
          ll_first_call = .FALSE.
          !do jn=1, nclasses
@@ -100 +100 @@
 
 
-   SUBROUTINE icb_clv()
+   SUBROUTINE icb_clv( kt )
       !!----------------------------------------------------------------------
       !!                 ***  ROUTINE icb_clv  ***
@@ -114 +114 @@
       !!                is considered
       !!----------------------------------------------------------------------
+      INTEGER, INTENT(in) ::   kt
       INTEGER       ::   ji, jj, jn   ! dummy loop indices
       INTEGER       ::   icnt, icntmax