vegetation_s_curve_parameters Subroutine

  1. vegetation.f95
  2. vegetation
  3. vegetation_s_curve_parameters

public subroutine vegetation_s_curve_parameters(x1, x2, x3, x4, x5, x6)

Arguments

Type IntentOptional AttributesName
real(kind=dp) :: x1
real(kind=dp) :: x2
real(kind=dp) :: x3
real(kind=dp) :: x4
real(kind=dp) :: x5
real(kind=dp) :: x6

Called by

proc~~vegetation_s_curve_parameters~~CalledByGraph proc~vegetation_s_curve_parameters vegetation_s_curve_parameters proc~crop_read_input crop_read_input proc~crop_read_input->proc~vegetation_s_curve_parameters proc~initialise initialise proc~initialise->proc~crop_read_input program~swim swim program~swim->proc~initialise

Contents

Source Code

vegetation_s_curve_parameters

Source Code

  subroutine vegetation_s_curve_parameters(x1, x2, x3, x4, x5, x6)
    !**** PURPOSE: THIS SUBROUTINE COMPUTES S CURVE PARAMETERS x5 & x6
    !              GIVEN 2 (X, Y) POINTS
    !**** CALLED IN: READCRP
    !~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


    real(dp) xx, x1, x2, x3, x4, x5, x6

    xx = 0.0
    x5 = 0.0
    x6 = 0.0
    xx = Log(x3 / x1 - x3)
    x6 = (xx - Log(x4 / x2 - x4)) / (x4 - x3)
    x5 = xx + (x3 * x6)

    return
  end subroutine vegetation_s_curve_parameters