print_module_parameters Subroutine

  1. swim.f95
  2. swim
  3. print_module_parameters

subroutine print_module_parameters(module_name)

Uses

  • proc~~print_module_parameters~~UsesGraph proc~print_module_parameters print_module_parameters module~river river proc~print_module_parameters->module~river module~subbasin subbasin proc~print_module_parameters->module~subbasin module~vegetation vegetation proc~print_module_parameters->module~vegetation module~catchment catchment proc~print_module_parameters->module~catchment module~output output proc~print_module_parameters->module~output module~erosion erosion proc~print_module_parameters->module~erosion module~nutrient nutrient proc~print_module_parameters->module~nutrient module~crop crop proc~print_module_parameters->module~crop module~input input proc~print_module_parameters->module~input module~landuse landuse proc~print_module_parameters->module~landuse module~reservoir reservoir proc~print_module_parameters->module~reservoir module~soil soil proc~print_module_parameters->module~soil module~management management proc~print_module_parameters->module~management module~evapotranspiration evapotranspiration proc~print_module_parameters->module~evapotranspiration module~time time proc~print_module_parameters->module~time module~groundwater groundwater proc~print_module_parameters->module~groundwater module~snow snow proc~print_module_parameters->module~snow module~utilities utilities module~river->module~utilities module~subbasin->module~utilities module~vegetation->module~utilities module~catchment->module~subbasin module~catchment->module~input module~catchment->module~utilities module~output->module~utilities module~erosion->module~utilities module~nutrient->module~utilities module~crop->module~utilities module~input->module~utilities module~landuse->module~utilities module~reservoir->module~utilities module~soil->module~utilities module~management->module~utilities module~evapotranspiration->module~utilities module~time->module~utilities module~groundwater->module~utilities module~snow->module~utilities

Arguments

Type IntentOptional AttributesName
character(len=*), intent(in) :: module_name

Calls

proc~~print_module_parameters~~CallsGraph proc~print_module_parameters print_module_parameters proc~print_help print_help proc~print_module_parameters->proc~print_help proc~log_error log_error proc~print_help->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~~print_module_parameters~~CalledByGraph proc~print_module_parameters print_module_parameters proc~initialise initialise proc~initialise->proc~print_module_parameters program~swim swim program~swim->proc~initialise

Contents

Source Code

print_module_parameters

Source Code

  subroutine print_module_parameters(module_name)
    ! Print modules' current parameters
    ! This subroutine has to be placed in the SWIM program unit as
    ! namelists cant be parsed as arguments
    use time, only : time_parameters
    !use hydrotope, only : hydrotope_parameters
    use subbasin, only : subbasin_parameters
    use catchment, only : catchment_parameters
    use evapotranspiration, only : evapotranspiration_parameters
    use soil, only : soil_parameters
    use groundwater, only : groundwater_parameters
    use reservoir, only : reservoir_parameters
    use vegetation, only : vegetation_parameters
    use crop, only : crop_parameters
    use landuse, only : landuse_parameters
    use snow, only : snow_parameters
    use nutrient, only : nutrient_parameters
    use management, only : management_parameters
    use river, only : river_parameters
    use erosion, only : erosion_parameters
    use input, only : &
      input_parameters, &
#ifdef with_netcdf
      nc_climate_parameters, &
#endif
      print_help
    use output, only : output_parameters

    character(len=*), intent(in) :: module_name
    logical :: pparams(size(swim_modules))

    pparams = swim_modules == module_name
    if (module_name == "all") pparams(:) = .True.
    if (.not. any(pparams)) &
      call print_help("Not a valid module name in -d "//trim(module_name))

    if (pparams(1)) write(*, nml=time_parameters)
    !if (pparams(2)) write(*, nml=hydrotope_parameters)
    if (pparams(3)) write(*, nml=subbasin_parameters)
    if (pparams(4)) write(*, nml=catchment_parameters)
    if (pparams(5)) write(*, nml=evapotranspiration_parameters)
    if (pparams(6)) write(*, nml=soil_parameters)
    if (pparams(7)) write(*, nml=groundwater_parameters)
    if (pparams(8)) write(*, nml=reservoir_parameters)
    if (pparams(9)) write(*, nml=vegetation_parameters)
    if (pparams(10)) write(*, nml=crop_parameters)
    if (pparams(11)) write(*, nml=landuse_parameters)
    if (pparams(12)) write(*, nml=snow_parameters)
    if (pparams(13)) write(*, nml=nutrient_parameters)
    if (pparams(14)) write(*, nml=management_parameters)
    if (pparams(15)) write(*, nml=river_parameters)
    if (pparams(16)) write(*, nml=erosion_parameters)
    if (pparams(17)) write(*, nml=output_parameters)
    if (pparams(18)) then
      write(*, nml=input_parameters)
#ifdef with_netcdf
      write(*, nml=nc_climate_parameters)
#endif
    end if
    stop

  end subroutine print_module_parameters