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

Data Types
type	TestCase6
	球面浅水モデルの標準テスト(Williamson et al, 1992)の TestCase6 を行うクラス. More...
interface	initialize_TestCase
interface	finalize_TestCase
Functions/Subroutines
subroutine	init_TestCase6 (self, icgrid_ref)
	TestCase6 クラスのオブジェクトを初期化する.
subroutine	finalize_TestCase6 (self)
	TestCase6 クラスのオブジェクトを最終化する.
subroutine, public	set_initial_v (self, init_v)
	初期の速度場として, 剛体回転場を設定する(TestCase2 と同じ).
subroutine, public	set_initial_h (self, init_h)
	初期の表面高度場を, 初期の速度場である剛体回転場に対して地衡風平衡を満たすように設定する(TestCase2 と同じ).
subroutine, public	set_initial_hs (self, init_hs)
	下部境界の地形の高度場として, 孤立した山岳地形を設定する.
subroutine, public	timelevel_Updated (self, tstep, dt, v_n, h_n)
	タイムレベルの更新された後の処理を行う.
subroutine	calc_init_v ()
subroutine	calc_init_h ()
subroutine	calc_init_hs ()
real(DP)	A (theta)
real(DP)	B (theta)
real(DP)	C (theta)
Variables
real(DP)	h_0
real(DP), parameter	ome = 7.848d-06
real(DP), parameter	K = 7.848d-06
real(DP), parameter	R = 4.0d0
real(DP)	init_TE
real(DP)	init_PE
real(DP)	TE
real(DP)	PE
type(Field_IcGrid2D), pointer	ini_v
type(Field_IcGrid2D), pointer	ini_h
type(Field_IcGrid2D), pointer	ini_hs

Detailed Description

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

Function/Subroutine Documentation

real(DP) class_TestCase6::A ( real(DP),intent(in) theta ) [private]

Definition at line 508 of file class_TestCase6.f90.

Here is the caller graph for this function:

real(DP) class_TestCase6::B ( real(DP),intent(in) theta ) [private]

Definition at line 520 of file class_TestCase6.f90.

Here is the caller graph for this function:

real(DP) class_TestCase6::C ( real(DP),intent(in) theta ) [private]

Definition at line 530 of file class_TestCase6.f90.

Here is the caller graph for this function:

subroutine class_TestCase6::calc_init_h ( ) [private]

Definition at line 437 of file class_TestCase6.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine class_TestCase6::calc_init_hs ( ) [private]

Definition at line 485 of file class_TestCase6.f90.

Here is the caller graph for this function:

subroutine class_TestCase6::calc_init_v ( ) [private]

Definition at line 389 of file class_TestCase6.f90.

Here is the caller graph for this function:

subroutine class_TestCase6::finalize_TestCase6 ( type(TestCase6),intent(inout) self ) [private]

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

Parameters:

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

Definition at line 255 of file class_TestCase6.f90.

subroutine class_TestCase6::init_TestCase6	(	type(TestCase6),intent(inout)	self,
		type(IcGrid2D_FVM),intent(in)	icgrid_ref
	)		`[private]`

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

Parameters:

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

Definition at line 183 of file class_TestCase6.f90.

Here is the call graph for this function:

subroutine,public class_TestCase6::set_initial_h	(	type(TestCase6),intent(inout)	self,
		type(Field_IcGrid2D),intent(inout)	init_h
	)

初期の表面高度場を, 初期の速度場である剛体回転場に対して地衡風平衡を満たすように設定する(TestCase2 と同じ).

Parameters:

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

Definition at line 296 of file class_TestCase6.f90.

Here is the caller graph for this function:

subroutine,public class_TestCase6::set_initial_hs	(	type(TestCase6),intent(inout)	self,
		type(Field_IcGrid2D),intent(inout)	init_hs
	)

下部境界の地形の高度場として, 孤立した山岳地形を設定する.

孤立した山岳は以下の式(Williamson, 1992 の式(134)) で与えられる.

Parameters:

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

Definition at line 320 of file class_TestCase6.f90.

Here is the caller graph for this function:

subroutine,public class_TestCase6::set_initial_v	(	type(TestCase6),intent(inout)	self,
		type(Field_IcGrid2D),intent(inout)	init_v
	)

初期の速度場として, 剛体回転場を設定する(TestCase2 と同じ).

Parameters:

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

Definition at line 272 of file class_TestCase6.f90.

Here is the caller graph for this function:

subroutine,public class_TestCase6::timelevel_Updated	(	type(TestCase6),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
	)