deriv_2nd_gcc_nonseg_pa Module Function

pure elemental module function deriv_2nd_gcc_nonseg_pa(self, state) result(suction_derivative)

Arguments

Type IntentOptional Attributes Name
class(type_gcc_non_segregation_pa), intent(in) :: self
type(type_state), intent(in) :: state

Return Value real(kind=real64)


Called by

proc~~deriv_2nd_gcc_nonseg_pa~~CalledByGraph proc~deriv_2nd_gcc_nonseg_pa deriv_2nd_gcc_nonseg_pa interface~deriv_2nd_gcc_nonseg_pa type_gcc_non_segregation_pa%deriv_2nd_gcc_nonseg_pa interface~deriv_2nd_gcc_nonseg_pa->proc~deriv_2nd_gcc_nonseg_pa

Source Code

    module pure elemental function deriv_2nd_gcc_nonseg_pa(self, state) result(suction_derivative)
        implicit none
        class(type_gcc_non_segregation_pa), intent(in) :: self
        type(type_state), intent(in) :: state
        real(real64) :: suction_derivative

        if (state%temperature <= self%Tf) then
            suction_derivative = self%Lf * state%density_water / (state%temperature + self%TtoK)**2.0d0
        else
            suction_derivative = 0.0d0
        end if

    end function deriv_2nd_gcc_nonseg_pa