time_finish_year Subroutine

  1. time.f95
  2. time
  3. time_finish_year

public subroutine time_finish_year()

Uses

  • proc~~time_finish_year~~UsesGraph proc~time_finish_year time_finish_year module~output output proc~time_finish_year->module~output module~subbasin subbasin proc~time_finish_year->module~subbasin module~crop crop proc~time_finish_year->module~crop module~utilities utilities module~output->module~utilities module~subbasin->module~utilities module~crop->module~utilities

Arguments

None

Calls

proc~~time_finish_year~~CallsGraph proc~time_finish_year time_finish_year proc~output_nashsutcliffe_efficiency output_nashsutcliffe_efficiency proc~time_finish_year->proc~output_nashsutcliffe_efficiency proc~output_year output_year proc~time_finish_year->proc~output_year proc~log_debug log_debug proc~time_finish_year->proc~log_debug proc~output_nashsutcliffe_efficiency->proc~log_debug proc~output_write_monthly output_write_monthly proc~output_year->proc~output_write_monthly proc~output_write_daily output_write_daily proc~output_year->proc~output_write_daily proc~output_write_annual output_write_annual proc~output_year->proc~output_write_annual proc~log_message log_message proc~log_debug->proc~log_message proc~output_write_time output_write_time proc~output_write_monthly->proc~output_write_time proc~output_write_daily->proc~output_write_time proc~log_write log_write proc~log_message->proc~log_write proc~log_format_message log_format_message proc~log_message->proc~log_format_message proc~output_write_annual->proc~output_write_time proc~to_string to_string proc~log_write->proc~to_string proc~date_time_str date_time_str proc~log_format_message->proc~date_time_str proc~colourise colourise proc~log_format_message->proc~colourise proc~output_write_space_time_csv output_write_space_time_csv proc~output_write_time->proc~output_write_space_time_csv proc~output_array_to_bin output_array_to_bin proc~output_write_time->proc~output_array_to_bin proc~string_index string_index proc~colourise->proc~string_index proc~output_array_to_csv output_array_to_csv proc~output_write_space_time_csv->proc~output_array_to_csv proc~log_error log_error proc~output_write_space_time_csv->proc~log_error proc~output_array_to_csv->proc~log_error proc~log_error->proc~log_message

Called by

proc~~time_finish_year~~CalledByGraph proc~time_finish_year time_finish_year proc~time_process_years time_process_years proc~time_process_years->proc~time_finish_year program~swim swim program~swim->proc~time_process_years

Contents

Source Code

time_finish_year

Source Code

  subroutine time_finish_year()
  ! ----------------------------------------------------------------------

    use output, only : output_nashsutcliffe_efficiency, output_year
    use crop, only : istyr
    use subbasin, only : &
      runs, &
      bRunoffDat, &
      obs_discharge

    if (bRunoffDat) then
      call output_nashsutcliffe_efficiency(obs_discharge(:nd, 1), runs(:nd), 1, istyr, iy)
    end if

    call output_year

    call log_debug("time_finish_year", 'Completed year =', int=iyr)

    return
  end subroutine time_finish_year