output_initialise_is_requested Subroutine

  1. output.f95
  2. output
  3. output_initialise_is_requested

public subroutine output_initialise_is_requested()

Arguments

None

Called by

proc~~output_initialise_is_requested~~CalledByGraph proc~output_initialise_is_requested output_initialise_is_requested proc~output_initialise output_initialise proc~output_initialise->proc~output_initialise_is_requested proc~initialise initialise proc~initialise->proc~output_initialise program~swim swim program~swim->proc~initialise

Contents

Source Code

output_initialise_is_requested

Source Code

  subroutine output_initialise_is_requested
    type(output_file) :: file
    integer i, v, sp

    ! Allocate without labelled space units as they are just copied
    allocate(output_is_requested(output_nvars, 3, size(output_time_dim)))
    output_is_requested = 0
    ! Marke 1 where needed in (var, space, time) matrix
    do i = 1, output_nfiles
      file = output_files(i)
      do v = 1, file%nvars
        sp = file%space
        ! Make labelled count the same as unlabelled
        if (sp > 3) sp = sp - 3
        output_is_requested(file%variable_ix(v), sp, file%time) = 1
      end do
    end do
  end subroutine output_initialise_is_requested