Changeset 9932 for NEMO/trunk/src/OCE/ICB/icb_oce.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/icb_oce.F90 (modified) (1 diff)

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

@@ -111 +111 @@
    INTEGER , PUBLIC ::   nn_test_icebergs                !: Create icebergs in absence of a restart file from the supplied class nb
    REAL(wp), PUBLIC, DIMENSION(4) ::   rn_test_box       !: lon1,lon2,lat1,lat2 box to create them in
+   LOGICAL , PUBLIC ::   ln_use_calving                  !: Force use of calving data even with nn_test_icebergs > 0 
+                                                         !  (default is not to use calving data with test bergs)
    INTEGER , PUBLIC ::   nn_sample_rate                  !: Timesteps between sampling of position for trajectory storage
    INTEGER , PUBLIC ::   nn_verbose_write                !: timesteps between verbose messages