input_nc_offset_time Subroutine

  1. input.f95
  2. input
  3. input_nc_offset_time

public subroutine input_nc_offset_time()

Arguments

None

Calls

proc~~input_nc_offset_time~~CallsGraph proc~input_nc_offset_time input_nc_offset_time proc~log_error log_error proc~input_nc_offset_time->proc~log_error proc~log_message log_message proc~log_error->proc~log_message 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~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~string_index string_index proc~colourise->proc~string_index

Called by

proc~~input_nc_offset_time~~CalledByGraph proc~input_nc_offset_time input_nc_offset_time proc~input_nc_initialise input_nc_initialise proc~input_nc_initialise->proc~input_nc_offset_time proc~initialise initialise proc~initialise->proc~input_nc_initialise program~swim swim program~swim->proc~initialise

Contents

Source Code

input_nc_offset_time

Source Code

  subroutine input_nc_offset_time()
    nc_nday = nc_nday + NC_OFFSET_DAYS
    if (nc_nday <= 0 .OR. nc_nday > nc_nrecs) then
      call log_error("input_nc_offset_time", &
        'Time NC_OFFSET_DAYS leads to out of range index ', int=nc_nday)
    endif
    if (NC_DEBUG) call log_error("input_nc_offset_time", &
      'Offsetting time index (by) to:', i1=NC_OFFSET_DAYS, int=nc_nday)
  end subroutine input_nc_offset_time