Context Navigation

source: altifloat/src/floater_delta.d @ 98

Last change on this file since 98 was 98, checked in by jbrlod, 11 years ago
add function run_inc
File size: 3.2 KB

Line
1	defval jtlag 12//nombre de pas de temps Delta t/ delta t
2	defval nlon 87 //nbre de points de grilles en longitude
3	defval nlat 58 //nbre de points de grilles en latitude
4	defval nfloat 1 //nbre de flotteurs
5
6	hat_name "floater.h"
7
8
9
10	option o_m1qn3
11	option o_gradtest
12	//option O_EXTOBJ "../object/ncutil.o" //for aviso files
13
14	// name M upt offt dt nbstep
15	traj T_float M 1 0 1 jtlag //trajectoire pour r
16	traj T_euler M 0 0 1 1 //trajectoire pour u et v
17
18	//deltas
19	traj T_float_d D 1 0 1 jtlag //trajectoires type modele ou tangent. permet de controler quel type activer dans le i
20	traj T_euler_d D 0 0 1 1
21
22	space S_float M nfloat T_float
23	space S_euler M nlon nlat T_euler
24	space S_eulerlocate M nfloat nlon nlat T_float
25
26	//deltas
27	space S_float_d M nfloat T_float_d
28	space S_euler_d M nlon nlat T_euler_d
29	space S_eulerlocate_d M nfloat nlon nlat T_float_d
30
31
32	modul r_float space S_float input 4 output 2 tempo
33	modul ur space S_float input 18 output 2 tempo
34	modul uinter space S_float noward output 8 tempo
35	modul xinter space S_float noward output 8 tempo
36
37	modul u space S_euler noward output 1 //noward veut dire pas de calcul
38	modul v space S_euler noward output 1
39	modul locate space S_eulerlocate input 2 output 1 tempo
40
41	//deltas
42	modul r_float_d space S_float_d input 4 output 2 tempo
43	modul ur_d space S_float_d input 18 output 2 tempo
44	modul uinter_d space S_float_d noward output 8 tempo
45	//modul xinter_d space S_float_d noward output 8 tempo
46
47	modul u_d space S_euler_d noward output 1 target //noward veut dire pas de calcul
48	modul v_d space S_euler_d noward output 1 target
49	modul locate_d space S_eulerlocate_d input 2 output 1 tempo
50	modul r_cout_d space S_float_d input 2 output 2 tempo cout
51
52
53
54
55	exec disp_modul //afficher les modules lors de la ganeration du code
56
57	ctin r_float 1..2 from r_float 1..2 i t-1 // i par default est la premier dimension, ici i=1 floater
58	ctin r_float 3..4 from ur 1..2 i t // comme c'est un calcul, il depend pas de la valeur initiale
59
60	ctin ur 1..8 from uinter 1..8 i t
61	ctin ur 9..16 from xinter 1..8 i t
62	ctin ur 17..18 from r_float 1..2 i t-1
63
64	ctin locate 1..2 from r_float 1..2 i t-1
65
66	//deltas
67	ctin r_float_d 1..2 from r_float_d 1..2 i t-1 // i par default est la premier dimension, ici i=1 floater
68	ctin r_float_d 3..4 from ur_d 1..2 i t // comme c'est un calcul, il depend pas de la valeur initiale
69
70	ctin ur_d 1..8 from uinter_d 1..8 i t
71	ctin ur_d 9..16 from xinter 1..8 i t
72	ctin ur_d 17..18 from r_float 1..2 i t-1
73
74	ctin locate_d 1..2 from r_float_d 1..2 i t-1
75	ctin r_cout_d 1..2 from r_float_d 1..2 i t
76
77	exec disp_ct_in //afficher les connexions
78
79	order modinspace S_float
80	order YA1
81	ur r_float
82	forder
83	forder
84
85	order modinspace S_eulerlocate
86	order YA1 YA2 YA3
87	locate
88	forder
89	forder
90
91	order spaceintraj T_float
92	S_eulerlocate S_float
93	forder
94
95	//deltas
96	order modinspace S_float_d
97	order YA1
98	ur_d r_float_d r_cout_d
99	forder
100	forder
101
102	order modinspace S_eulerlocate_d
103	order YA1 YA2 YA3
104	locate_d
105	forder
106	forder
107
108	order spaceintraj T_float_d
109	S_eulerlocate_d S_float_d
110	forder
111
112
113	//insert_fct arg load_aviso
114	insert_fct update_uv
115	insert_fct arg run_inc
116

Note: See TracBrowser for help on using the repository browser.

Download in other formats: