sli_roots Module


Uses

  • module~~sli_roots~~UsesGraph module~sli_roots sli_roots module~cable_def_types_mod cable_def_types_mod module~sli_roots->module~cable_def_types_mod module~sli_numbers sli_numbers module~sli_roots->module~sli_numbers module~cable_climate_type_mod cable_climate_type_mod module~cable_def_types_mod->module~cable_climate_type_mod module~sli_numbers->module~cable_def_types_mod

Used by

  • module~~sli_roots~~UsedByGraph module~sli_roots sli_roots proc~sli_main sli_main proc~sli_main->module~sli_roots

Variables

Type Visibility Attributes Name Initial
real(kind=r_2), private, parameter :: b1 = 24.66
real(kind=r_2), private, parameter :: b2 = 1.59
real(kind=r_2), private, parameter :: lambda = 1.0

Interfaces

public interface setroots

  • private subroutine setroots_1d(x, F10, Zr, Fs)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=r_2), intent(in), DIMENSION(:) :: x
    real(kind=r_2), intent(in) :: F10
    real(kind=r_2), intent(in) :: Zr
    real(kind=r_2), intent(out), DIMENSION(:) :: Fs
  • private subroutine setroots_2d(x, F10, Zr, Fs)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=r_2), intent(in), DIMENSION(:,:) :: x
    real(kind=r_2), intent(in), DIMENSION(:) :: F10
    real(kind=r_2), intent(in), DIMENSION(:) :: Zr
    real(kind=r_2), intent(out), DIMENSION(:,:) :: Fs

public interface getrex

  • private subroutine getrex_1d(S, rex, fws, Fs, thetaS, thetaw, Etrans, gamma, dx, dt)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=r_2), intent(in), DIMENSION(:) :: S
    real(kind=r_2), intent(out), DIMENSION(:) :: rex
    real(kind=r_2), intent(inout) :: fws
    real(kind=r_2), intent(in), DIMENSION(:) :: Fs
    real(kind=r_2), intent(in), DIMENSION(:) :: thetaS
    real(kind=r_2), intent(in), DIMENSION(:) :: thetaw
    real(kind=r_2), intent(in) :: Etrans
    real(kind=r_2), intent(in) :: gamma
    real(kind=r_2), intent(in), DIMENSION(:) :: dx
    real(kind=r_2), intent(in) :: dt
  • private subroutine getrex_2d(S, rex, fws, Fs, thetaS, thetaw, Etrans, gamma, dx, dt)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=r_2), intent(in), DIMENSION(:,:) :: S
    real(kind=r_2), intent(out), DIMENSION(:,:) :: rex
    real(kind=r_2), intent(inout), DIMENSION(:) :: fws
    real(kind=r_2), intent(in), DIMENSION(:,:) :: Fs
    real(kind=r_2), intent(in), DIMENSION(:,:) :: thetaS
    real(kind=r_2), intent(in), DIMENSION(:,:) :: thetaw
    real(kind=r_2), intent(in), DIMENSION(:) :: Etrans
    real(kind=r_2), intent(in), DIMENSION(:) :: gamma
    real(kind=r_2), intent(in), DIMENSION(:,:) :: dx
    real(kind=r_2), intent(in) :: dt

Subroutines

private subroutine setroots_1d(x, F10, Zr, Fs)

Arguments

Type IntentOptional Attributes Name
real(kind=r_2), intent(in), DIMENSION(:) :: x
real(kind=r_2), intent(in) :: F10
real(kind=r_2), intent(in) :: Zr
real(kind=r_2), intent(out), DIMENSION(:) :: Fs

private subroutine setroots_2d(x, F10, Zr, Fs)

Arguments

Type IntentOptional Attributes Name
real(kind=r_2), intent(in), DIMENSION(:,:) :: x
real(kind=r_2), intent(in), DIMENSION(:) :: F10
real(kind=r_2), intent(in), DIMENSION(:) :: Zr
real(kind=r_2), intent(out), DIMENSION(:,:) :: Fs

private subroutine getrex_1d(S, rex, fws, Fs, thetaS, thetaw, Etrans, gamma, dx, dt)

Arguments

Type IntentOptional Attributes Name
real(kind=r_2), intent(in), DIMENSION(:) :: S
real(kind=r_2), intent(out), DIMENSION(:) :: rex
real(kind=r_2), intent(inout) :: fws
real(kind=r_2), intent(in), DIMENSION(:) :: Fs
real(kind=r_2), intent(in), DIMENSION(:) :: thetaS
real(kind=r_2), intent(in), DIMENSION(:) :: thetaw
real(kind=r_2), intent(in) :: Etrans
real(kind=r_2), intent(in) :: gamma
real(kind=r_2), intent(in), DIMENSION(:) :: dx
real(kind=r_2), intent(in) :: dt

private subroutine getrex_2d(S, rex, fws, Fs, thetaS, thetaw, Etrans, gamma, dx, dt)

Arguments

Type IntentOptional Attributes Name
real(kind=r_2), intent(in), DIMENSION(:,:) :: S
real(kind=r_2), intent(out), DIMENSION(:,:) :: rex
real(kind=r_2), intent(inout), DIMENSION(:) :: fws
real(kind=r_2), intent(in), DIMENSION(:,:) :: Fs
real(kind=r_2), intent(in), DIMENSION(:,:) :: thetaS
real(kind=r_2), intent(in), DIMENSION(:,:) :: thetaw
real(kind=r_2), intent(in), DIMENSION(:) :: Etrans
real(kind=r_2), intent(in), DIMENSION(:) :: gamma
real(kind=r_2), intent(in), DIMENSION(:,:) :: dx
real(kind=r_2), intent(in) :: dt