eval_pres_r Function

public function eval_pres_r(spos)

Evaluate pressure profile from restart data

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: spos

Return Value real(kind=wp)


Calls

proc~~eval_pres_r~~CallsGraph proc~eval_pres_r eval_pres_r proc~eval_prof_r eval_prof_r proc~eval_pres_r->proc~eval_prof_r proc~sbase_evaldof_s t_sBase%sBase_evalDOF_s proc~eval_prof_r->proc~sbase_evaldof_s proc~sbase_eval t_sBase%sBase_eval proc~sbase_evaldof_s->proc~sbase_eval proc~sbase_evaldof_base t_sBase%sBase_evalDOF_base proc~sbase_evaldof_s->proc~sbase_evaldof_base eval_basis eval_basis proc~sbase_eval->eval_basis eval_basis_and_n_derivs eval_basis_and_n_derivs proc~sbase_eval->eval_basis_and_n_derivs lagrangeinterpolationpolys lagrangeinterpolationpolys proc~sbase_eval->lagrangeinterpolationpolys proc~sgrid_find_elem t_sGrid%sGrid_find_elem proc~sbase_eval->proc~sgrid_find_elem

Source Code

FUNCTION eval_pres_r(spos)
  IMPLICIT NONE
!-----------------------------------------------------------------------------------------------------------------------------------
! INPUT VARIABLES
  REAL(wp),INTENT(IN):: spos
!-----------------------------------------------------------------------------------------------------------------------------------
! OUTPUT VARIABLES
  REAL(wp) :: eval_pres_r
!-----------------------------------------------------------------------------------------------------------------------------------
! LOCAL VARIABLES
!===================================================================================================================================
  eval_pres_r=eval_prof_r(spos,4,0)
END FUNCTION eval_pres_r