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/icbini.F90

    r9598 r9932  
    228228 
    229229      ! when not generating test icebergs we need to setup calving file 
    230       IF( nn_test_icebergs < 0 ) THEN 
     230      IF( nn_test_icebergs < 0 .OR. ln_use_calving ) THEN 
    231231         ! 
    232232         ! maximum distribution class array does not change in time so read it once 
     
    358358         &              rn_bits_erosion_fraction        , rn_sicn_shift       , ln_passive_mode      ,   & 
    359359         &              ln_time_average_weight          , nn_test_icebergs    , rn_test_box          ,   & 
    360          &              rn_speed_limit , cn_dir, sn_icb 
     360         &              ln_use_calving , rn_speed_limit , cn_dir, sn_icb 
    361361      !!---------------------------------------------------------------------- 
    362362 
     
    399399         IF(lwp) WRITE(numout,*) '   ==>>>   Resetting of nn_test_icebergs to ', nclasses 
    400400         nn_test_icebergs = nclasses 
     401      ENDIF 
     402      ! 
     403      IF( nn_test_icebergs < 0 .AND. .NOT. ln_use_calving ) THEN 
     404         IF(lwp) WRITE(numout,*) 
     405         IF(lwp) WRITE(numout,*) '   ==>>>   Resetting ln_use_calving to .true. since we are not using test icebergs' 
     406         ln_use_calving = .true. 
    401407      ENDIF 
    402408      ! 
     
    440446         WRITE(numout,*) '   Create icebergs in absence of a restart file   nn_test_icebergs  = ', nn_test_icebergs 
    441447         WRITE(numout,*) '                   in lon/lat box                                   = ', rn_test_box 
     448         WRITE(numout,*) '   Use calving data even if nn_test_icebergs > 0    ln_use_calving  = ', ln_use_calving 
    442449         WRITE(numout,*) '   CFL speed limit for a berg            speed_limit                = ', rn_speed_limit 
    443450         WRITE(numout,*) '   Writing Iceberg status information to icebergs.stat file        ' 
Note: See TracChangeset for help on using the changeset viewer.