re_initialize.f90 Source File


This file depends on

sourcefile~~re_initialize.f90~~EfferentGraph sourcefile~re_initialize.f90 re_initialize.f90 sourcefile~aquifer_module.f90 aquifer_module.f90 sourcefile~re_initialize.f90->sourcefile~aquifer_module.f90 sourcefile~hru_lte_module.f90 hru_lte_module.f90 sourcefile~re_initialize.f90->sourcefile~hru_lte_module.f90 sourcefile~hru_module.f90 hru_module.f90 sourcefile~re_initialize.f90->sourcefile~hru_module.f90 sourcefile~hydrograph_module.f90 hydrograph_module.f90 sourcefile~re_initialize.f90->sourcefile~hydrograph_module.f90 sourcefile~mgt_operations_module.f90 mgt_operations_module.f90 sourcefile~re_initialize.f90->sourcefile~mgt_operations_module.f90 sourcefile~organic_mineral_mass_module.f90 organic_mineral_mass_module.f90 sourcefile~re_initialize.f90->sourcefile~organic_mineral_mass_module.f90 sourcefile~plant_module.f90 plant_module.f90 sourcefile~re_initialize.f90->sourcefile~plant_module.f90 sourcefile~sd_channel_module.f90 sd_channel_module.f90 sourcefile~re_initialize.f90->sourcefile~sd_channel_module.f90 sourcefile~soil_module.f90 soil_module.f90 sourcefile~re_initialize.f90->sourcefile~soil_module.f90 sourcefile~basin_module.f90 basin_module.f90 sourcefile~hydrograph_module.f90->sourcefile~basin_module.f90 sourcefile~time_module.f90 time_module.f90 sourcefile~hydrograph_module.f90->sourcefile~time_module.f90 sourcefile~carbon_module.f90 carbon_module.f90 sourcefile~organic_mineral_mass_module.f90->sourcefile~carbon_module.f90 sourcefile~soil_module.f90->sourcefile~carbon_module.f90

Source Code

      subroutine re_initialize
    
      use hru_module, only : hru, hru_init, bss
      use soil_module
      use plant_module
      use organic_mineral_mass_module
      use mgt_operations_module
      use hydrograph_module
      use hru_lte_module
      use sd_channel_module
      use aquifer_module
      
      implicit none

      !! reset basin soil water for next simulation
      pco%sw_init = "n"
      
      !! re-initialize all hru parameters
      if (sp_ob%hru > 0) then
        hru = hru_init
        soil = soil_init
        soil1 = soil1_init
        pcom = pcom_init
        pl_mass = pl_mass_init
        wet = wet_om_init
        bss = 0.
      end if
      
      !! re-initialize hru_lte parameters
      if (sp_ob%hru_lte > 0) then
        hlt = hlt_init
      end if
      
      !! re-initialize channel lte storage and dimensions
      if (sp_ob%chandeg > 0) then
        sd_ch = sdch_init
        ch_stor = ch_om_water_init
        fp_stor = fp_om_water_init
      end if
      
      !! re-initialize reservoir storage
      if (sp_ob%res > 0) then
        res = res_om_init
      end if
      
      !! re-initialize aquifer storage
      if (sp_ob%aqu > 0) then
        aqu_om_init = aqu_om_init
      end if

      return
      end subroutine re_initialize