Changeset 9932 for NEMO/trunk/src/OCE/ICB/icbini.F90
- Timestamp:
- 2018-07-11T18:12:44+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/ICB/icbini.F90
r9598 r9932 228 228 229 229 ! when not generating test icebergs we need to setup calving file 230 IF( nn_test_icebergs < 0 ) THEN230 IF( nn_test_icebergs < 0 .OR. ln_use_calving ) THEN 231 231 ! 232 232 ! maximum distribution class array does not change in time so read it once … … 358 358 & rn_bits_erosion_fraction , rn_sicn_shift , ln_passive_mode , & 359 359 & ln_time_average_weight , nn_test_icebergs , rn_test_box , & 360 & rn_speed_limit , cn_dir, sn_icb360 & ln_use_calving , rn_speed_limit , cn_dir, sn_icb 361 361 !!---------------------------------------------------------------------- 362 362 … … 399 399 IF(lwp) WRITE(numout,*) ' ==>>> Resetting of nn_test_icebergs to ', nclasses 400 400 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. 401 407 ENDIF 402 408 ! … … 440 446 WRITE(numout,*) ' Create icebergs in absence of a restart file nn_test_icebergs = ', nn_test_icebergs 441 447 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 442 449 WRITE(numout,*) ' CFL speed limit for a berg speed_limit = ', rn_speed_limit 443 450 WRITE(numout,*) ' Writing Iceberg status information to icebergs.stat file '
Note: See TracChangeset
for help on using the changeset viewer.