← Back to branch summary

~fluidity-core/fluidity/sediment

« back to all changes in this revision

Viewing changes to assemble/Diagnostic_fields_wrapper.F90

  • Committer: Sam Parkinson
  • Date: 2011-12-01 15:18:13 UTC
  • mfrom: (3413.1.30 sediment_restructure)
  • Revision ID: s.parkinson11@imperial.ac.uk-20111201151813-9vygndld22tdzepx
merge with sediment_restructure branch

Show diffs side-by-side

added added

removed removed

Lines of Context:
assemble/Diagnostic_fields_wrapper.F90
544
544
 
545
545
       ! Start of sediment diagnostics.
546
546
       if (have_option("/material_phase[0]/sediment")) then
547
 
          call calculate_sinking_velocity(state(i))
 
547
          call calculate_sediment_sinking_velocity(state(i))
548
548
          call calculate_sediment_flux(state(i))
 
549
          call calculate_sediment_active_layer_d50(state(i))
 
550
          call calculate_sediment_active_layer_sigma(state(i))
 
551
          call calculate_sediment_active_layer_volume_fractions(state(i))
549
552
       end if
550
553
       ! End of sediment diagnostics.
551
554