ru_output.f90 Source File

      subroutine ru_output (iru)
      
      use time_module
      use basin_module
      use hydrograph_module
      
      implicit none
      
      integer, intent (in) :: iru             !             |
      integer :: iob = 0                      !             |
      
      iob = sp_ob1%ru + iru - 1 
   
        !! sum monthly variables
        ru_m(iru) = ru_m(iru) + ru_d(iru)
        
        !! daily print - ROUTING UNIT
         if (pco%day_print == "y" .and. pco%int_day_cur == pco%int_day) then
          if (pco%ru%d == "y") then
            write (2600,*) time%day, time%mo, time%day_mo, time%yrc, ob(iob)%name, ob(iob)%typ, ru_d(iru)
            if (pco%csvout == "y") then
              write (2604,'(*(G0.3,:","))') time%day, time%mo, time%day_mo, time%yrc, ob(iob)%name, ob(iob)%typ, ru_d(iru)
            end if
          end if
        end if

        !! monthly print - ROUTING UNIT
        if (time%end_mo == 1) then
          ru_y(iru) = ru_y(iru) + ru_m(iru)
          if (pco%ru%m == "y") then
            write (2601,*) time%day, time%mo, time%day_mo, time%yrc, ob(iob)%name, ob(iob)%typ, ru_m(iru)
            if (pco%csvout == "y") then
              write (2605,'(*(G0.3,:","))') time%day, time%mo, time%day_mo, time%yrc, ob(iob)%name, ob(iob)%typ, ru_m(iru)
            endif
          end if
          ru_m(iru) = hz
        end if

        !! yearly print - ROUTING UNIT
        if (time%end_yr == 1) then
          ru_a(iru) = ru_a(iru) + ru_y(iru)
          if (pco%ru%y == "y") then
            write (2602,*) time%day, time%mo, time%day_mo, time%yrc, ob(iob)%name, ob(iob)%typ, ru_y(iru)
            if (pco%csvout == "y") then
              write (2606,'(*(G0.3,:","))') time%day, time%mo, time%day_mo, time%yrc, ob(iob)%name, ob(iob)%typ, ru_y(iru) 
            end if
          end if
          !! zero yearly variables        
          ru_y(iru) = hz
        end if
        
      !! average annual print - ROUTING UNIT
          if (time%end_sim == 1 .and. pco%ru%a == "y") then
          ru_a(iru) = ru_a(iru) / time%yrs_prt
            write (2603,*) time%day, time%mo, time%day_mo, time%yrc, ob(iob)%name, ob(iob)%typ, ru_a(iru)
            if (pco%csvout == "y") then 
              write (2607,'(*(G0.3,:","))') time%day, time%mo, time%day_mo, time%yrc, ob(iob)%name, ob(iob)%typ, ru_a(iru)  
            end if 
          end if

      return
      
!*** tu Wunused-label: 100   format (4i6,2i8,25f15.3)
!*** tu Wunused-label: 102   format (4i6,2i8,25f15.3)
       
      end subroutine ru_output