cn2_init_all.f90 Source File


This file depends on

sourcefile~~cn2_init_all.f90~~EfferentGraph sourcefile~cn2_init_all.f90 cn2_init_all.f90 sourcefile~hydrograph_module.f90 hydrograph_module.f90 sourcefile~cn2_init_all.f90->sourcefile~hydrograph_module.f90 sourcefile~landuse_data_module.f90 landuse_data_module.f90 sourcefile~cn2_init_all.f90->sourcefile~landuse_data_module.f90 sourcefile~maximum_data_module.f90 maximum_data_module.f90 sourcefile~cn2_init_all.f90->sourcefile~maximum_data_module.f90 sourcefile~soil_module.f90 soil_module.f90 sourcefile~cn2_init_all.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

Source Code

      subroutine cn2_init_all

      use soil_module
      use maximum_data_module
      use landuse_data_module
      use hydrograph_module, only : sp_ob
      
      implicit none
 
      integer :: j = 0               !none       |counter 
      
      !!assign topography and hyd parameters
      do j = 1, sp_ob%hru
        call cn2_init (j)
      end do
      
      return
      end subroutine cn2_init_all