sim_initday.f90 Source File

      subroutine sim_initday

!!    ~ ~ ~ PURPOSE ~ ~ ~
!!    this subroutine initialized arrays at the beginning of the day

!!    ~ ~ ~ INCOMING VARIABLES ~ ~ ~
!!    name        |units         |definition
!!    ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
!!    ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~

!!    ~ ~ ~ OUTGOING VARIABLES ~ ~ ~
!!    name        |units         |definition
!!    ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
!!    frad(:,:)   |none          |fraction of solar radiation occuring during 
!!                               |hour in day in HRU
!!    ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~


!!    ~ ~ ~ ~ ~ ~ END SPECIFICATIONS ~ ~ ~ ~ ~ ~
     
      use hru_module, only : cbodu,chl_a,clayld,cnday,doxq,grayld,        &
         hhsurfq,lagyld,latno3,latq,nplnt,                                          &
         percn,pplnt,qdr,sagyld,sanyld,sedminpa,                                &
         sedminps,sedorgn,sedorgp,sedyld,sepbtm,silyld,sol_sumno3,sol_sumsolp, surfq,   &
         surqno3,surqsolp,tileno3,ubnrunoff,ubntss,                                     &
         gwsoilq, satexq, gwsoiln, gwsoilp, satexn, surqsalt,latqsalt,tilesalt,percsalt,& !rtb gwflow; rtb salt
         urbqsalt,wetqsalt,wtspsalt,gwupsalt,                                           &
         surqcs,latqcs,tilecs,perccs,gwupcs,urbqcs,sedmcs,irswcs,irgwcs,wetqcs,wtspcs !rtb cs
      use soil_module
            
      use organic_mineral_mass_module
      use carbon_module
      use hydrograph_module
      use reservoir_module
      use maximum_data_module
      use res_cs_module

      !!initialize variables at beginning of day
      ! initialising wetland by Ann 

      
      implicit none
      
      real :: drift = 0.        !kg               |amount of pesticide drifting onto main 
                                !                 |channel in subbasin
      real :: hrupstd = 0.      !varies           |HRU daily pesticide output array
      integer :: j = 0          !none             |HRU number 
      integer :: ly = 0         !none             |counter 
      integer :: ires = 0       !none             |counter

      !!initialize variables at beginning of day
      cbodu = 0.
      chl_a = 0.
      cnday = 0.
      doxq = 0.
      drift = 0.
      hrupstd = 0.
      latno3 = 0.
      latq = 0.
      nplnt = 0.
      percn = 0.
      pplnt = 0.
      qdr = 0.
      sedminpa = 0.
      sedminps = 0.
      sedorgn = 0.
      sedorgp = 0.

      sedyld = 0.
      sanyld = 0.
      silyld = 0.
      clayld = 0.
      sagyld = 0.
      lagyld = 0.
      grayld = 0.

      sepbtm = 0.
      surfq = 0.
      surqno3 = 0.
      surqsolp = 0.
      tileno3 = 0.    !CB 8/24/09
      
      !rtb salt
      surqsalt = 0.
      latqsalt = 0.
      tilesalt = 0.
      percsalt = 0.
      gwupsalt = 0.
      urbqsalt = 0.
      wetqsalt = 0.
      wtspsalt = 0.
      
      !rtb cs
      surqcs = 0.
      latqcs = 0.
      tilecs = 0.
      perccs = 0.
      gwupcs = 0.
      urbqcs = 0.
      wetqcs = 0.
      wtspcs = 0.
      sedmcs = 0.
      irswcs = 0.
      irgwcs = 0.
      
      !rtb gwflow
      gwsoilq = 0.
      gwsoiln = 0.
      gwsoilp = 0.
      satexq = 0.
      satexn = 0.

!----------------------------------------------------        
! added by J.Jeong for urban modeling 4/29/2008
      ubnrunoff = 0.
      ubntss = 0.
      latq = 0.
      hhsurfq = 0.
!-----------------------------------------------------        

        !! added for Srini in output.mgt nitrogen and phosphorus nutrients per JGA by gsm 9/8/2011
                  
          sol_sumno3 = 0.
          sol_sumsolp = 0.
          do j = 1, sp_ob%hru
            do ly = 1, soil(j)%nly
              sol_sumno3(j) = sol_sumno3(j) + soil1(j)%mn(ly)%no3 +          &
                soil1(j)%mn(ly)%nh4
              sol_sumsolp(j) = sol_sumsolp(j) +  soil1(j)%mp(ly)%lab
            enddo
          enddo

      return
      end