 ɽ	󼡸ȥ졼ήǥ(βž)

 	97/11/20	
 	98/01/20	

ե빽

	./Makefile		ѥѥᥤե
				(Linux  nag f90 ѥб)
	./main.f90		ᥤץ
	./param_module.f90	ѥ᡼⥸塼
	./cal_module.f90	Ƽ׻¹ԥ⥸塼
	./dcl_module.f90	dcl5 ⥸塼

ѿγʻ

	Arakawa C å.
		

ᥤ롼Υե㡼

	0. Ƽ⥸塼ɤ߹
		USE param_module
		USE cal_module
		USE dcl_module

	1. ѿ
		TRC_1	ήʬ
		TRC_2	濴ʬ
		TRC_3	MPDATA
		TRC_4	FCT

	2. ͤ( ߿ʬ )
		
		ʬۤ׻Ǥ褦ɲ(1998/01/20)

	3. ( dennou_set )

	4. ͤ( get_ptval, dennou_draw )

	5. ᥤ롼
		/ͼ濴ʬ, FCT Ѥ׻Ǥ, 
		2Υ󥲥å(顼ˡ)ѤƤ.
		MPDATA ǤϻʺʬǷ׻.
		
	6. νλ( dennou_cls )


⥸塼롦֥롼

	./param_module.f90

		ǽ
			ܥѥ᡼.	

		
			ᥤץޤ᤿ƤΥ롼˸ƤФ.
			ƥ롼ˤۤƤʤѥ᡼
			ƤΥ⥸塼ˤƤ.


	./cal_module.f90

	   get_dtrc_C2_2D

		ǽ	
			ʬˤʬ׻롼.
		
		ƽˡ
			call get_dtrc_C2_2D( u, v, TRC, DTRC )

		ѥ᡼
			 u	(R)	ή®1(in)
			 v	(R)	ή®2(in)
			 TRC	(R)	ѿ(in)
			 DTRC	(R)	ѿʬ(out)

		
			 get_mval_2D, bound2 Ƥ.
			

	   get_dtrc_C4_2D

		ǽ	
			ͼʬˤʬ׻롼.
		
		ƽˡ
			call get_dtrc_C4_2D( u, v, TRC, DTRC )

		ѥ᡼
			get_dtrc_C2_2D Ʊ.

		
			get_dtrc_C2_2D Ʊ.


	   get_dtrc_u1_2D

		ǽ
			켡ήʬˤʬ׻롼.

		ƽˡ
			call get_dtrc_u1_2D( u, v, TRC, DTRC )

		ѥ᡼
			get_dtrc_C2_2D Ʊ

		
			 bound2 Ƥ.
			get_dtrc_u_mpdata_2D ƤФ.


	   get_dtrc_u_mpdata_2D

		ǽ	
			MPDATA Τȿ׻ѥ롼.

		ƽˡ
			call get_dtrc_u_mpdata_2D( u, v, TRC, \
			                           udif, vdif, DTRC )

		ѥ᡼
			u	(R)	ή®1(in)
			v	(R)	ή®2(in)
			TRC	(R)	ѿ(in)
			udif	(R)	Ȼή®1(out)
			vdif	(R)	Ȼή®1(out)
			DTRC	(R)	ѿʬ(out)
		
		
			 get_dtrc_u1_2D, get_mval_2D, get_mval_utov,
			get_mval_vtou, bound2 Ƥ.


	   get_dtrc_fct_2D

		ǽ	
			FCT Τʬ׻ѥ롼.
			ήʬ2濴ʬѤƤ.

		ƽˡ
			call get_dtrc_fct_2D( u, v, TRC, DTRC )

		ѥ᡼
			u	(R)	ή®1(in)
			v	(R)	ή®2(in)
			TRC	(R)	ѿ(in)
			DTRC	(R)	ѿʬ(out)
		
		
			 get_dtrc_u1_2D, bound2 Ƥ.
			ޤѤ׻롼 get_aflux, limit_aflux,
			get_limitval, get_cfact Ƥ.

	   get_mval_2D

		ǽ	
			ȾʻҾΥ顼ѿͷ׻롼.

		ƽˡ
			call get_mval_2D( val, mval_x, mval_y )

		ѥ᡼
			val	(R)	ѿ(in)
			mval_x	(R)	ѿ(ȾʻҾ: 1ɸ)(out)
			mval_y	(R)	ѿ(ȾʻҾ: 2ɸ)(out)

		
			get_dtrc_C2_2D, get_dtrc_C2_2D, get_dtrc_u_mpdata_2D
			ƤФ벼̥롼
			
			2 ʿѤȷ׻԰򵯤䤹Τ, 
			6 ʿѤǵƤ.


	   get_mval_utov

		ǽ	
			u ʻҾѿ v ʻҾѿͷ׻롼.

		ƽˡ
			call get_mval_utov( val_u, val_v )

		ѥ᡼
			val_u	(R)	u ʻҾѿ(in)
			val_v	(R)	v ʻҾѿ(out)

		
			get_dtrc_u_mpdata_2D ƤФ벼̥롼
			
			Ϥ 4 ʿͤƤ.
			 val_u оΤȲꤷƤ.


	   get_mval_vtou

		ǽ	
			v ʻҾѿ u ʻҾѿͷ׻롼.

		ƽˡ
			call get_mval_vtou( val_v, val_u )

		ѥ᡼
			val_v	(R)	v ʻҾѿ(in)
			val_u	(R)	u ʻҾѿ(out)

		
			get_dtrc_u_mpdata_2D ƤФ벼̥롼
			
			Ϥ 4 ʿͤƤ.
			 val_v оΤȲꤷƤ.


	   get_plotval( val, pval )

		ǽ	
			ɸʻΥ顼ѿͷ׻롼.
			Ϥ 4 ʿͤ.

		ƽˡ
			call get_plotval( val, pval )

		ѥ᡼
			val	(R)	ѿ(in)
			pval	(R)	ѿ(ɸʻҾ)(out)


	   bound2

		ǽ
			׻롼.

		ƽˡ
			call bound2( val )
		
		ѥ᡼
			val	(R)	ѿ(inout)

		
			ʬ׻롼󤫤ƤФ.
			ɤоΤʾͿƤ.


	./dcl_module.f90

	   dennou_set

		ǽ
			dcl5 ν

		ƽˡ
			call dennou_set(pictn)

		ѥ᡼
			pictnm	(I)	1 ̤ο(in)
					  2: 	 2
					  4: 	 4
					  ¾:1

	   dennou_draw

		ǽ
			dcl5 ˤ 3D 

		ƽˡ
			call dennou_draw( xplot, yplot, vplot, \
					  theader, header )

		ѥ᡼
			xplot	(R)	1ɸ(in)
			yplot	(R)	2ɸ(in)
			vplot	(R)	ѿ(in)
			theader	(C)	إå(in)
			header	(C)	إå(in)

		
			dcl5 Υץץ map3d6.f
			($DCLDIR/demo/rakuraku/map3d/map3d6.f)
			ۤܤΤޤ޻Ѥ.
			âƤ褹ΤȾʬ
			ְƤ.
			


	   dennou_cls

		ǽ
			dcl5 νλ

		ƽˡ
			call dennou_cls



