Public Member Functions
subroutine	parabolic_prof (COREPROF_IN, EQUILIBRIUM_IN, COREPROF_OUT, EQUILIBRIUM_OUT)

subroutine	readjust_profiles (PROF_FLAG, Q0_FLAG, COREPROF_IN, EQUILIBRIUM_IN, COREPROF_OUT)

subroutine	correct_current_prof (J0_FLAG, COREPROF_IN, EQUILIBRIUM, COREPROF_OUT)

subroutine	negative_current (J0_FLAG, COREPROF_IN, EQUILIBRIUM, COREPROF_OUT)

subroutine	integral (N, X, Y, INTY)
	This subroutine calculates integral of function Y(X)*X from X=0 until X=X(N) More...

subroutine	integral_value (N, X, Y, INTY)

subroutine	derivn (N, X, Y, DY1)
	These subroutines calculate first and second derivatives, DY1 and DY2, of function Y respect to argument X. More...

Detailed Description

Definition at line 1 of file equilibrium_work.f90.

Member Function/Subroutine Documentation

subroutine equilibrium_work::correct_current_prof	(	integer	J0_FLAG,
		type (type_coreprof), dimension(:), pointer	COREPROF_IN,
		type (type_equilibrium), dimension(:), pointer	EQUILIBRIUM,
		type (type_coreprof), dimension(:), pointer	COREPROF_OUT
	)

Definition at line 503 of file equilibrium_work.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine equilibrium_work::derivn	(	integer	N,
		real (r8), dimension(n)	X,
		real (r8), dimension(n)	Y,
		real (r8), dimension(n)	DY1
	)

These subroutines calculate first and second derivatives, DY1 and DY2, of function Y respect to argument X.

These subroutines have been extracted from RITM code and consist of derivation and integration routines

Definition at line 980 of file equilibrium_work.f90.

subroutine equilibrium_work::integral	(	integer	N,
		real (r8), dimension(n)	X,
		real (r8), dimension(n)	Y,
		real (r8), dimension(n)	INTY
	)

This subroutine calculates integral of function Y(X)*X from X=0 until X=X(N)

These subroutines have been extracted from RITM code and consist of derivation and integration routines

Definition at line 914 of file equilibrium_work.f90.

subroutine equilibrium_work::integral_value	(	integer	N,
		real (r8), dimension(n)	X,
		real (r8), dimension(n)	Y,
		real (r8), dimension(n)	INTY
	)

Definition at line 948 of file equilibrium_work.f90.

subroutine equilibrium_work::negative_current	(	integer	J0_FLAG,
		type (type_coreprof), dimension(:), pointer	COREPROF_IN,
		type (type_equilibrium), dimension(:), pointer	EQUILIBRIUM,
		type (type_coreprof), dimension(:), pointer	COREPROF_OUT
	)

Definition at line 733 of file equilibrium_work.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine equilibrium_work::parabolic_prof	(	type (type_coreprof), dimension(:), pointer	COREPROF_IN,
		type (type_equilibrium), dimension(:), pointer	EQUILIBRIUM_IN,
		type (type_coreprof), dimension(:), pointer	COREPROF_OUT,
		type (type_equilibrium), dimension(:), pointer	EQUILIBRIUM_OUT
	)

Definition at line 9 of file equilibrium_work.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine equilibrium_work::readjust_profiles	(	integer	PROF_FLAG,
		integer	Q0_FLAG,
		type (type_coreprof), dimension(:), pointer	COREPROF_IN,
		type (type_equilibrium), dimension(:), pointer	EQUILIBRIUM_IN,
		type (type_coreprof), dimension(:), pointer	COREPROF_OUT
	)

Definition at line 261 of file equilibrium_work.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

The documentation for this module was generated from the following file: