Changeset 9328


Ignore:
Timestamp:
2018-02-15T18:01:10+01:00 (2 years ago)
Author:
davestorkey
Message:

Fix iceberg restarting to always be consistent with ocean/ice restarting.
Ticket #2007 (also addresses one of Pierre's points in ticket #1595).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/ICB/icbstp.F90

    r9190 r9328  
    138138      CALL icb_dia( ll_budget ) 
    139139      ! 
    140       IF( MOD(kt,nn_stock) == 0 ) THEN    !* restart 
     140      IF( lrst_oce ) THEN    !* restart 
    141141         CALL icb_rst_write( kt ) 
    142142         IF( nn_sample_rate > 0 )   CALL icb_trj_sync() 
     
    158158      !!---------------------------------------------------------------------- 
    159159      ! 
    160       ! only write a restart if not done in icb_stp 
    161       IF( MOD(kt,nn_stock) /= 0 )   CALL icb_rst_write( kt ) 
    162  
    163160      ! finish with trajectories if they were written 
    164161      IF( nn_sample_rate > 0 )   CALL icb_trj_end() 
Note: See TracChangeset for help on using the changeset viewer.