Ignore:
Timestamp:
2018-07-11T18:12:44+02:00 (2 years ago)
Author:
acc
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/ICB/icbstp.F90

    r9598 r9932  
    7171      nktberg = kt 
    7272      ! 
    73       IF( nn_test_icebergs < 0 ) THEN    !* read calving data 
     73      IF( nn_test_icebergs < 0 .OR. ln_use_calving ) THEN !* read calving data 
    7474         ! 
    7575         CALL fld_read ( kt, 1, sf_icb ) 
     
    9999                                     CALL icb_clv_flx( kt )   ! Accumulate ice from calving 
    100100      !                              ! 
    101                                      CALL icb_clv()           ! Calve excess stored ice into icebergs 
     101                                     CALL icb_clv( kt )       ! Calve excess stored ice into icebergs 
    102102      !                              ! 
    103103      ! 
Note: See TracChangeset for help on using the changeset viewer.