vegetation_initialise Subroutine

  1. vegetation.f95
  2. vegetation
  3. vegetation_initialise

public subroutine vegetation_initialise(mb, nlut, mcrdb, meap, lat)

Uses

  • proc~~vegetation_initialise~~UsesGraph proc~vegetation_initialise vegetation_initialise module~input input proc~vegetation_initialise->module~input module~output output proc~vegetation_initialise->module~output module~utilities utilities module~input->module~utilities module~output->module~utilities

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: mb
integer, intent(in) :: nlut
integer, intent(in) :: mcrdb
integer, intent(in) :: meap
real(kind=dp), intent(in) :: lat(:)

Calls

proc~~vegetation_initialise~~CallsGraph proc~vegetation_initialise vegetation_initialise proc~get_config_fid get_config_fid proc~vegetation_initialise->proc~get_config_fid proc~vegetation_allocate vegetation_allocate proc~vegetation_initialise->proc~vegetation_allocate proc~vegetation_prepare_parameters vegetation_prepare_parameters proc~vegetation_initialise->proc~vegetation_prepare_parameters proc~output_register_hydrotope_var output_register_hydrotope_var proc~vegetation_initialise->proc~output_register_hydrotope_var proc~open_file open_file proc~get_config_fid->proc~open_file proc~output_register_var output_register_var proc~output_register_hydrotope_var->proc~output_register_var proc~string_index string_index proc~output_register_var->proc~string_index proc~log_error log_error proc~output_register_var->proc~log_error proc~open_file->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~colourise->proc~string_index

Called by

proc~~vegetation_initialise~~CalledByGraph proc~vegetation_initialise vegetation_initialise proc~initialise initialise proc~initialise->proc~vegetation_initialise program~swim swim program~swim->proc~initialise

Contents

Source Code

vegetation_initialise

Source Code

  subroutine vegetation_initialise(mb, nlut, mcrdb, meap, lat)
    use input, only : get_config_fid
    use output, only : output_register_hydrotope_var
    integer, intent(in) :: mb, nlut, mcrdb, meap
    real(dp), intent(in) :: lat(:)

    read(get_config_fid(), VEGETATION_PARAMETERS)

    call vegetation_allocate(mb, nlut, mcrdb, meap)
    call vegetation_prepare_parameters(lat)

    ! output variables
    transpiration_output_id = output_register_hydrotope_var("transpiration", .false.)
    vegetation_water_stress_oid = &
      output_register_hydrotope_var("vegetation_water_stress")
    vegetation_temp_stress_oid = &
      output_register_hydrotope_var("vegetation_temperature_stress")
    heat_unit_fract_output_id = output_register_hydrotope_var("heat_unit_fraction")
    biomass_total_output_id = output_register_hydrotope_var("biomass_total")
    leaf_area_index_output_id = output_register_hydrotope_var("leaf_area_index")
    root_depth_output_id = output_register_hydrotope_var("root_depth")

  end subroutine vegetation_initialise