binning_diagnostic Subroutine

  1. korc_binning_diagnostic.f90
  2. korc_binning_diagnostic
  3. binning_diagnostic

public subroutine binning_diagnostic(params, spp)

Arguments

Type IntentOptional AttributesName
type(KORC_PARAMS), intent(in) :: params
type(SPECIES), intent(in), DIMENSION(:), ALLOCATABLE:: spp

Contents

Source Code

binning_diagnostic

Source Code

  SUBROUTINE binning_diagnostic(params,spp)
    IMPLICIT NONE
    TYPE(KORC_PARAMS), INTENT(IN) :: params
    TYPE(SPECIES), DIMENSION(:), ALLOCATABLE, INTENT(IN) :: spp

    if (binning_params%diagnostic_on.AND.(params%time*params%cpp%time >= binning_params%start_at)) then
       if (params%mpi_params%rank .EQ. 0) then
          write(6,'("Binning diagnostic: ON")',advance="no")
       end if

       call bin_variables(params,spp)

       if (params%mpi_params%rank .EQ. 0) then
          write(6,'(" ---> OFF")')
       end if
    end if
  END SUBROUTINE binning_diagnostic