Williamson, et al (1992) のテストケース 3 を実施するためのクラスを提供するモジュール. More...

Data Types
type	TestCase3
	球面浅水モデルの標準テスト(Williamson et al, 1992)の TestCase3 を行うクラス. More...
interface	initialize_TestCase
interface	finalize_TestCase
Functions/Subroutines
subroutine	init_TestCase3 (self, icgrid_ref)
	TestCase3 クラスのオブジェクトを初期化する.
subroutine	finalize_TestCase3 (self)
	TestCase3 クラスのオブジェクトを最終化する.
subroutine, public	set_initial_v (self, init_v)
subroutine, public	set_initial_h (self, init_h)
subroutine, public	set_initial_hs (self, init_hs)
subroutine, public	timelevel_Updated (self, tstep, dt, v_n, h_n)
subroutine	eval_numcal_h_solution (t, true_h, true_v, h_n, v_n)
subroutine	create_fields (h_field, v_field)
real(DP)	calc_h (theta_dash, ic_radius, n)
real(DP)	h_integrand (tau, a)
real(DP)	calc_u_dash (theta_dash)
real(DP)	b (x)
Variables
real(DP)	h_0
real(DP)	u_0
real(DP)	angular_speed
character(TOKEN)	filename = 'error_norm.dat'
type(IcGrid_ncWriter), save	writer

Detailed Description

Williamson, et al (1992) のテストケース 3 を実施するためのクラスを提供するモジュール.

Function/Subroutine Documentation

real(DP) class_TestCase3::b ( real(DP),intent(in) x ) [private]

Definition at line 615 of file class_TestCase3.f90.

Here is the caller graph for this function:

real(DP) class_TestCase3::calc_h	(	real(DP),intent(in)	theta_dash,
		real(DP),intent(in)	ic_radius,
		integer,intent(in)	n
	)

Definition at line 532 of file class_TestCase3.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

real(DP) class_TestCase3::calc_u_dash ( real(DP),intent(in) theta_dash ) [private]

Definition at line 595 of file class_TestCase3.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine class_TestCase3::create_fields	(	type(Field_IcGrid2D),intent(inout)	h_field,
		type(Field_IcGrid2D),intent(inout)	v_field
	)		`[private]`

Definition at line 437 of file class_TestCase3.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine class_TestCase3::eval_numcal_h_solution	(	real(DP),intent(in)	t,
		type(Field_IcGrid2D),intent(in)	true_h,
		type(Field_IcGrid2D),intent(in)	true_v,
		type(Field_IcGrid2D),intent(in)	h_n,
		type(Field_IcGrid2D),intent(in)	v_n
	)		`[private]`

Parameters:

[in,out]	true_h
[in]	h_n

Definition at line 396 of file class_TestCase3.f90.

Here is the caller graph for this function:

subroutine class_TestCase3::finalize_TestCase3 ( type(TestCase3),intent(inout) self ) [private]

TestCase3 クラスのオブジェクトを最終化する.

Parameters:

[in,out] self TestCase3 クラスのオブジェクトの参照.

Definition at line 270 of file class_TestCase3.f90.

real(DP) class_TestCase3::h_integrand	(	real(DP),intent(in)	tau,
		real(DP),intent(in)	a
	)		`[private]`

Definition at line 576 of file class_TestCase3.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine class_TestCase3::init_TestCase3	(	type(TestCase3),intent(inout)	self,
		type(IcGrid2D_FVM),intent(in)	icgrid_ref
	)		`[private]`

TestCase3 クラスのオブジェクトを初期化する.

Parameters:

[in,out]	self	TestCase3 クラスのオブジェクトの参照.
[in]	icgrid_ref	IcGrid2D_FVM クラスのオブジェクトの参照.

Definition at line 176 of file class_TestCase3.f90.

Here is the call graph for this function:

subroutine,public class_TestCase3::set_initial_h	(	type(TestCase3),intent(inout)	self,
		type(Field_IcGrid2D),intent(inout)	init_h
	)

Parameters:

[in,out]	self	TestCase3 クラスのオブジェクトの参照.
[in,out]	init_h

Definition at line 311 of file class_TestCase3.f90.

subroutine,public class_TestCase3::set_initial_hs	(	type(TestCase3),intent(inout)	self,
		type(Field_IcGrid2D),intent(inout)	init_hs
	)

Parameters:

[in,out]	self	TestCase3 クラスのオブジェクトの参照.
[in,out]	init_hs

Definition at line 332 of file class_TestCase3.f90.

subroutine,public class_TestCase3::set_initial_v	(	type(TestCase3),intent(inout)	self,
		type(Field_IcGrid2D),intent(inout)	init_v
	)

Parameters:

[in,out]	self	TestCase3 クラスのオブジェクトの参照.
[in,out]	init_v

Definition at line 290 of file class_TestCase3.f90.

subroutine,public class_TestCase3::timelevel_Updated	(	type(TestCase3),intent(inout)	self,
		integer,intent(in)	tstep,
		real(DP),intent(in)	dt,
		type(Field_IcGrid2D),intent(inout)	v_n,
		type(Field_IcGrid2D),intent(inout)	h_n
	)