Context Navigation

sinobad.d @ 74

Last change on this file since 74 was 69, checked in by berrada, 13 years ago
fusion tronc dans mb-branche
File size: 39.2 KB

Rev	Line
[68]	1	//defval K_NEU
[69]	2	//#define FZIMP
[62]	3	#define FILTER
[68]	4	#define FILZNOL
	5	//#define FILLNOZ
[53]	6	//#define SOLSORYAO
[50]	7	//#define OPTIMORDER
	8	//#==============================================================================
[53]	9	//# fichier de DESCRIPTION sinobad.d
[50]	10	//#Mohamed Berrada 26/02/2009
[53]	11	//#modification (#define) Julien Brajard 06/2011
[58]	12	//#modification (filtre) Mohamed Berrada 19/07/2011
[50]	13	//#==============================================================================
	14	//#DEFVAL ---------------------------------------------DEFVAL
	15	//#definition de valeur
[1]	16	defval NPCA 15
	17	defval NX 32
	18	defval NY 22
	19	defval NZ 31
[45]	20	defval NMAX 800 // ! maximum of iterations for the SOR solver
[50]	21	defval TA 50 \|__DATE__ \| number of time steps
[1]	22	defval TU 2 \| start time step
[58]	23	#ifdef FILTER
[68]	24	defval OFTL 0
	25	defval OFTZ 4
	26	defval OFT 4
[58]	27	#endif
	28	#ifndef FILTER
	29	defval OFT 0
	30	#endif
[50]	31	//#exec disp_valdef
[69]	32	#ifdef FZIMP //Filtre Z implicit
[67]	33	defval K_FZIMP
	34	#endif
[69]	35	#ifdef FILTER //Filtre
[58]	36	defval K_FILTER
	37	#endif
[69]	38	#ifdef FILZNOL //uniquement Filtre Z
[62]	39	defval K_FILZNOL
	40	#endif
[69]	41	#ifdef FILLNOZ //uniquement Filtre L
[67]	42	defval K_FILLNOZ
[62]	43	#endif
[54]	44	#ifdef SOLSORYAO
	45	defval K_SOLSORYAO
[53]	46	#endif
[54]	47	#ifdef OPTIMORDER
	48	defval K_OPTIMORDER
	49	#endif
[1]	50
[50]	51	//#HAT_NAME -----------------------------------------HAT_NAME
[1]	52	hat_name sinobad
[7]	53
[50]	54	//#OPTION ----------------------------------------------OPTION
[37]	55
[1]	56	option O_M1QN3 \| M2QN1
[50]	57	//#option O_VARINCR
[60]	58	option O_GRADTEST
[50]	59	option O_DBG_NANF
	60	//#option O_DBG_TING
[1]	61	option O_EXTOBJ "../object/ncutil.o"
[7]	62	option O_REAL double
[69]	63	option o_parallel
[1]	64
[50]	65	//#TRAJECTOIRES (DIM) -----------------------------------TRAJ
[58]	66	#ifdef FILTER
[59]	67	traj Tcstf M 0 1
[62]	68	#ifndef FILZNOL
[59]	69	traj Tlfil M 1 0 1 OFTL
[62]	70	#endif
[67]	71	#ifndef FILLNOZ
[59]	72	traj Tzfil M 1 OFTL 1 OFTZ
[58]	73	#endif
[62]	74	#endif
[58]	75	traj Tcst M 0 OFT 1 1
	76	traj Tsbd M TU OFT 1 TA
[1]	77	exec disp_traj
	78
[59]	79	#ifdef FILTER
	80	space S3df M NX NY NZ Tcstf
[62]	81	#ifndef FILZNOL
[59]	82	space S3dtlf M NX NY NZ Tlfil
[62]	83	#endif
[67]	84	#ifndef FILLNOZ
[59]	85	space S3dtzf M NX NY NZ Tzfil
	86	#endif
[62]	87	#endif
[1]	88
	89	space S0d M 1 Tcst
	90	space S3d M NX NY NZ Tcst
	91	space S3dt M NX NY NZ Tsbd
[53]	92	#ifdef SOLSORYAO
[45]	93	space S3dt_b M NX NY NZ Tsbd
	94	space Ssolsor M NX NY NMAX Tsbd
[53]	95	#endif
[1]	96
	97	exec disp_space
	98
[50]	99	//#######################################################################################
	100	//#----------------------------------------
	101	//# choisir le vecteur du contrÃŽle (target)
	102	//#----------------------------------------
	103	//#modul pca_ta space S0d noward output NPCA target
[1]	104
[14]	105	modul sshn_c space S3d inter YA1 YA2 noward output 1 \|target
[1]	106
[58]	107	//#modul ta_c space S3d input array NPCA output 1
	108	#ifndef FILTER
[34]	109	modul ta_c space S3d noward output 1 target
[58]	110	#endif
[1]	111
[34]	112	modul sa_c space S3d noward output 1 \|target
[14]	113	modul ua_c space S3d noward output 1 \|target
	114	modul va_c space S3d noward output 1 \|target
[1]	115
[58]	116	#ifdef FILTER
[59]	117	modul nu space S3df noward output 1 target
[62]	118	#ifndef FILZNOL
[67]	119	modul dta_lfexp space S3dtlf input 6 output 1 tempo
[62]	120	#endif
[67]	121
	122	#ifndef FILLNOZ
	123	#ifdef FZIMP
	124	modul dta_zfimp_t space S3dtzf input 2 output 1 tempo
	125	modul dta_zfimp space S3dtzf input 3 output 1 tempo
[62]	126	#endif
[67]	127	#ifndef FZIMP
	128	modul dta_zfexp space S3dtzf input 4 output 1 tempo
	129	#endif
	130
	131	#endif
	132
[59]	133	modul ta_c space S3d input 1 output 1
[58]	134	#endif
	135
[50]	136	//#-------------
	137	//# Les modules dans l'ordre du code NEMO/OPA
	138	//#-------------
	139	//#boucle sur kt (NEMO/OPA)
	140	//#step(kt) ---> --->
	141	//##START_sbc (debut routine sbc)
[1]	142	modul sbcgyre_qsr_qns space S3dt inter YA1 YA2 input 1 output 2 tempo
	143	modul sbcgyre_emp1 space S3dt inter YA1 YA2 input 0 output 1 tempo
	144	modul sbcgyre_zsumemp_zsurf space S3dt inter YA1 YA2 input 5 output 2 tempo
	145	modul sbcgyre_emp space S3dt inter YA1 YA2 input 3 output 1 tempo
	146	modul sbcgyre_emps space S3dt inter YA1 YA2 input 1 output 1 tempo
	147	modul sbcgyre_utau_vtau space S3dt inter YA1 YA2 input 0 output 2 tempo
	148	modul sbcgyre_wndm space S3dt inter YA1 YA2 input 4 output 1 tempo
[50]	149	//##END_sbc (fin routine sbc)
[1]	150
[50]	151	//##START_bn2 (debut routine bn2) (neos=2)
[1]	152	modul bn2_rn2 space S3dt input 4 output 1 tempo
[50]	153	//##END_bn2(fin routine bn2)
[1]	154
[50]	155	//##START_zdf (n_evdm=1,nbotfr=2)
	156	//#mÃ©lange vertical
[1]	157	modul zdf_avt_avmu_avmv space S3dt input 19 output 3 tempo
	158	modul zdfmxl_hmld space S3dt inter YA1 YA2 input array NZ output 1 tempo
	159	modul zdfmxl_nmln_hmlp_hmlpt space S3dt inter YA1 YA2 input array NZ output 3 tempo
[50]	160	//##END_zdf
[1]	161
[50]	162	//##START_trasbc
	163	//#tempÃ©rature et salintÃ© de surface
[1]	164	modul ta_sa_trasbc space S3dt inter YA1 YA2 input 3 output 2 tempo
[50]	165	//#//#END_trasbc
[1]	166
[50]	167	//##START_traqsr
[1]	168	modul ta_traqsr space S3dt input 2 output 1 tempo
[50]	169	//##END_traqsr
[1]	170
[50]	171	//##START_traadv_cen2
	172	//#advection (cen2 second order center scheme)
[1]	173	modul zcent_hor_traadv_cen2 space S3dt input 5 output 2 tempo
	174	modul zcens_hor_traadv_cen2 space S3dt clonol zcent_hor_traadv_cen2
	175	modul ta_hor_traadv_cen2 space S3dt input 5 output 1 tempo
	176	modul sa_hor_traadv_cen2 space S3dt input 5 output 1 tempo
	177	modul zcent_ver_traadv_cen2 space S3dt input 3 output 1 tempo
	178	modul zcens_ver_traadv_cen2 space S3dt clonol zcent_ver_traadv_cen2
	179	modul ta_ver_traadv_cen2 space S3dt input 3 output 1 tempo
	180	modul sa_ver_traadv_cen2 space S3dt clonol ta_ver_traadv_cen2
	181
[50]	182	//##END_traadv_cen2
[1]	183
[50]	184	//##START_traldf_lap
	185	//#diffusion latÃ©rale (laplacian scheme)
[1]	186	modul ztuv_traldf_lap space S3dt input 3 output 2 tempo
	187	modul zsuv_traldf_lap space S3dt clonol ztuv_traldf_lap
	188	modul ta_traldf_lap space S3dt input 5 output 1 tempo
	189	modul sa_traldf_lap space S3dt clonol ta_traldf_lap
[50]	190	//##END_traldf_lap
[1]	191
[50]	192	//##START_trazdf_imp
	193	//#diffusion verticale (schema implicit)
[1]	194	modul zwisd_trazdf_imp space S3dt input 2 output 3 tempo
	195	modul zrhs_trazdf_imp space S3dt input 2 output 1 tempo
	196	modul zrhs_sa_trazdf_imp space S3dt clonol zrhs_trazdf_imp
	197	modul zwt_trazdf_imp space S3dt input 4 output 1 tempo
	198	modul ta_de_trazdf_imp space S3dt clonol zwt_trazdf_imp
	199	modul ta space S3dt input 5 output 1 tempo
	200	modul sa_de_trazdf_imp space S3dt clonol ta_de_trazdf_imp
	201	modul sa space S3dt input 5 output 1 tempo
[50]	202	//##END_trazdf_imp
[1]	203
[50]	204	//##START_tra_nxt
	205	//#tracer next : filtre asselin
[1]	206	modul tb space S3dt input 4 output 1 tempo cout
[9]	207	modul sb space S3dt input 4 output 1 tempo cout
[50]	208	//##END_tra_nxt
[1]	209
[50]	210	//##START_eos
	211	//#equation of state, density
[1]	212	modul rhd space S3dt input 2 output 1 tempo
	213	modul rhop space S3dt input 1 output 1 tempo
[50]	214	//##END_eos
[1]	215
[50]	216	//##START_dyn_adv_cen2
	217	//#advention
[1]	218	modul hmf_TF_dynadv_cen2 space S3dt input 6 output 4 tempo
	219	modul zua_dhmf_dynadv_cen2 space S3dt input 4 output 1 tempo
	220	modul zva_dhmf_dynadv_cen2 space S3dt input 4 output 1 tempo
	221	modul zfuv_UW_dynadv_cen2 space S3dt input 7 output 2 tempo
	222	modul ua_dynadv_cen2 space S3dt input 3 output 1 tempo
	223	modul va_dynadv_cen2 space S3dt input 3 output 1 tempo
[50]	224	//##END_dyn_adv_cen2
[1]	225
[50]	226	//##START_vor
	227	//#vorticity enstrophy conservative scheme
[1]	228	modul zwxyz_vor_ene space S3dt input 4 output 3 tempo
	229	modul ua_vor_ene space S3dt input 7 output 1 tempo
	230	modul va_vor_ene space S3dt input 7 output 1 tempo
[50]	231	//##END_vor
[1]	232
[50]	233	//##START_dyn_ldf
	234	//#lateral diffusion
[1]	235	modul ua_dyn_ldf_lap space S3dt input 5 output 1 tempo
	236	modul va_dyn_ldf_lap space S3dt input 5 output 1 tempo
[50]	237	//##END_dyn_ldf
[1]	238
[50]	239	//##START_dyn_hpg
	240	//#hydrostratic pressure gradient
[1]	241	modul zhpij_dyn_hpg_zco space S3dt input 8 output 2 tempo
	242	modul ua_dyn_hpg_zco space S3dt input 2 output 1 tempo
	243	modul va_dyn_hpg_zco space S3dt clonol ua_dyn_hpg_zco
[50]	244	//##END_dyn_hpg
[1]	245
[50]	246	//##START_dyn_zdf
	247	//#vertical diffusion
[1]	248	modul zwisd_ua_dynzdf_imp space S3dt input 2 output 3 tempo
	249	modul zwisd_va_dynzdf_imp space S3dt input 2 output 3 tempo
	250	modul zrhs_ua_dynzdf_imp space S3dt input 3 output 1 tempo
	251	modul zrhs_va_dynzdf_imp space S3dt input 3 output 1 tempo
	252	modul zwt_ua_dynzdf_imp space S3dt clonol zwt_trazdf_imp
	253	modul zwt_va_dynzdf_imp space S3dt clonol zwt_trazdf_imp
	254	modul ua_de_dynzdf_imp space S3dt clonol ta_de_trazdf_imp
	255	modul ua_dynzdf_imp space S3dt input 4 output 1 tempo
	256	modul va_de_dynzdf_imp space S3dt clonol ta_de_trazdf_imp
	257	modul va_dynzdf_imp space S3dt clonol ua_dynzdf_imp
	258	modul ua_norm_dynzdf space S3dt input 2 output 1 tempo
	259	modul va_norm_dynzdf space S3dt clonol ua_norm_dynzdf
[50]	260	//##END_dyn_zdf
[1]	261
[50]	262	//##START_dyn_spg
	263	//#surface presure gradient
[1]	264	modul spguv_now_dynspg space S3dt inter YA1 YA2 input 3 output 2 tempo
	265	modul ua_1_dynspg_flt space S3dt input 3 output 1 tempo
	266	modul va_1_dynspg_flt space S3dt input 3 output 1 tempo
	267	modul sum_spgu_dynspg_flt space S3dt inter YA1 YA2 input array NZ output 1 tempo
	268	modul sum_spgv_dynspg_flt space S3dt inter YA1 YA2 input array NZ output 1 tempo
	269	modul gcb_dynspg_flt space S3dt inter YA1 YA2 input 4 output 1 tempo
	270	modul gcx_dynspg_flt space S3dt inter YA1 YA2 input 2 output 1 tempo
[53]	271	#ifndef SOLSORYAO
[60]	272	modul solsor_dynspg_flt space S3dt inter YA1 YA2 input array 19 output 1 tempo hidjac
	273	modul gcx2 space S3dt inter YA1 YA2 input 1 output 1 tempo hidjac
[53]	274	#endif
	275
	276	#ifdef SOLSORYAO
[45]	277	modul solsor_gx1_x_r space Ssolsor input 8 output 2 tempo
	278	modul solsor_gx2_x_r space Ssolsor input 9 output 2 tempo
	279	modul solsor_flag space Ssolsor input 4 output 2 tempo
[53]	280	#define S3dt S3dt_b
[60]	281	modul gcx2 space S3dt inter YA1 YA2 input 1 output 1 tempo
[53]	282	#endif
	283
	284
[60]	285
[53]	286	modul spguv_dynspg_flt space S3dt inter YA1 YA2 input 3 output 2 tempo
	287	modul ua space S3dt input 3 output 1 tempo
	288	modul va space S3dt input 3 output 1 tempo
	289	modul sshn space S3dt inter YA1 YA2 input 4 output 1 tempo
	290	modul sshb space S3dt inter YA1 YA2 input 4 output 1 tempo cout
[50]	291	//##END_dyn_spg
[1]	292
[50]	293	//##START_dyn_nxt
	294	//#nxt : filtre d'asselin
[53]	295	modul ub space S3dt input 4 output 1 tempo cout
	296	modul vb space S3dt input 4 output 1 tempo cout
[50]	297	//##END_dyn_nxt
[1]	298
[50]	299	//##START_divcur
	300	//#calcul de div et de rotationnel
[53]	301	modul hdivn space S3dt input 4 output 1 tempo
	302	modul rotn space S3dt input 4 output 1 tempo
[50]	303	//##END_divcur
[1]	304
[50]	305	//##START_wzv
	306	//#vitesse vertical
[53]	307	modul wa space S3dt input 2 output 1 tempo
[50]	308	//##END_wzv
[53]	309
	310	#ifdef SOLSORYAO
	311	#undef S3dt
	312	#endif
	313
[59]	314	exec disp_modul
[50]	315	//#############################################################################################
[1]	316
[59]	317	#ifdef FILTER
[67]	318
[62]	319	#ifndef FILZNOL
[67]	320	//#---------->dta_lfexp
	321	ctin dta_lfexp 1 from nu 1 i j k
	322	ctin dta_lfexp 2 from dta_lfexp 1 i j k t-1
	323	ctin dta_lfexp 3 from dta_lfexp 1 i-1 j k t-1
	324	ctin dta_lfexp 4 from dta_lfexp 1 i+1 j k t-1
	325	ctin dta_lfexp 5 from dta_lfexp 1 i j-1 k t-1
	326	ctin dta_lfexp 6 from dta_lfexp 1 i j+1 k t-1
	327	#endif
[59]	328
[67]	329	//#---------->dta_zfil
	330	#ifndef FILLNOZ
[68]	331
[67]	332	#ifndef FILZNOL
	333	#ifndef FZIMP
	334	ctin dta_zfexp 1 from dta_lfexp 1 i j k t
[62]	335	#endif
[67]	336	#ifdef FZIMP
	337	ctin dta_zfimp 1 from dta_lfexp 1 i j k t
	338	#endif
	339	#endif
[59]	340
[62]	341	#ifdef FILZNOL
[67]	342	#ifndef FZIMP
	343	ctin dta_zfexp 1 from nu 1 i j k
[62]	344	#endif
[67]	345	#ifdef FZIMP
	346	ctin dta_zfimp 1 from nu 1 i j k
[62]	347	#endif
[67]	348	#endif
[59]	349
[67]	350	#ifdef FZIMP
	351	ctin dta_zfimp 2 from dta_zfimp 1 i j k+1 t
	352	ctin dta_zfimp 3 from dta_zfimp_t 1 i j k t
[59]	353
[67]	354	ctin dta_zfimp_t 1 from dta_zfimp_t 1 i j k-1 t
	355	ctin dta_zfimp_t 2 from dta_zfimp 1 i j k t-1
	356	#endif
	357	#ifndef FZIMP
	358	ctin dta_zfexp 2 from dta_zfexp 1 i j k-1 t-1
	359	ctin dta_zfexp 3 from dta_zfexp 1 i j k t-1
	360	ctin dta_zfexp 4 from dta_zfexp 1 i j k+1 t-1
	361	#endif
	362
[59]	363	//#---------->ta_c
[67]	364	#ifdef FZIMP
	365	ctin ta_c 1 from dta_zfimp 1 i j k t
[59]	366	#endif
[67]	367	#ifndef FZIMP
	368	ctin ta_c 1 from dta_zfexp 1 i j k t
[62]	369	#endif
[68]	370
[62]	371	#endif
[68]	372
[67]	373	#ifdef FILLNOZ
	374	ctin ta_c 1 from dta_lfexp 1 i j k t
	375	#endif
	376
	377
	378	#endif
	379
[50]	380	//#ctin ta_c 1..NPCA from pca_ta 1..NPCA 1
[1]	381
[62]	382	//#exec disp_ct_in
[67]	383	//exec disp_modul
[59]	384
	385
[50]	386	//#---------->sbcgyre
[1]	387	ctin sbcgyre_qsr_qns 1 from tb 1 i j 1 t-1
	388
	389	ctin sbcgyre_zsumemp_zsurf 1 from sbcgyre_zsumemp_zsurf 1 i-1 j t
	390	ctin sbcgyre_zsumemp_zsurf 2 from sbcgyre_zsumemp_zsurf 1 NX j-1 t
	391	ctin sbcgyre_zsumemp_zsurf 3 from sbcgyre_zsumemp_zsurf 2 i-1 j t
	392	ctin sbcgyre_zsumemp_zsurf 4 from sbcgyre_zsumemp_zsurf 2 NX j-1 t
	393	ctin sbcgyre_zsumemp_zsurf 5 from sbcgyre_emp1 1 i j t
	394
	395	ctin sbcgyre_emp 1 from sbcgyre_emp1 1 i j t
	396	ctin sbcgyre_emp 2 from sbcgyre_zsumemp_zsurf 1 NX NY t
	397	ctin sbcgyre_emp 3 from sbcgyre_zsumemp_zsurf 2 NX NY t
	398
	399	ctin sbcgyre_emps 1 from sbcgyre_emp 1 i j t
	400
	401	ctin sbcgyre_wndm 1 from sbcgyre_utau_vtau 1 i-1 j t
	402	ctin sbcgyre_wndm 2 from sbcgyre_utau_vtau 2 i j-1 t
	403	ctin sbcgyre_wndm 3 from sbcgyre_utau_vtau 1 i j t
	404	ctin sbcgyre_wndm 4 from sbcgyre_utau_vtau 2 i j t
	405
[50]	406	//#---------->bn2
[1]	407	ctin bn2_rn2 1 from tb 1 i j k t-1
	408	ctin bn2_rn2 2 from tb 1 i j k-1 t-1
	409	ctin bn2_rn2 3 from sb 1 i j k t-1
	410	ctin bn2_rn2 4 from sb 1 i j k-1 t-1
	411
[50]	412	//#---------->zdf
[1]	413	ctin zdf_avt_avmu_avmv 1 from bn2_rn2 1 i j k t
	414	ctin zdf_avt_avmu_avmv 2 from bn2_rn2 1 i+1 j k t
	415	ctin zdf_avt_avmu_avmv 3 from bn2_rn2 1 i j+1 k t
	416
	417	ctin zdf_avt_avmu_avmv 4 from ua 1 i-1 j 30 t-1
	418	ctin zdf_avt_avmu_avmv 5 from ua 1 i-1 j+1 30 t-1
	419	ctin zdf_avt_avmu_avmv 6 from ua 1 i j 30 t-1
	420	ctin zdf_avt_avmu_avmv 7 from ua 1 i j+1 30 t-1
	421
	422	ctin zdf_avt_avmu_avmv 8 from ua 1 i-1 j 2 t-1
	423	ctin zdf_avt_avmu_avmv 9 from ua 1 i-1 j+1 2 t-1
	424	ctin zdf_avt_avmu_avmv 10 from ua 1 i j 2 t-1
	425	ctin zdf_avt_avmu_avmv 11 from ua 1 i j+1 2 t-1
	426
	427	ctin zdf_avt_avmu_avmv 12 from va 1 i j-1 30 t-1
	428	ctin zdf_avt_avmu_avmv 13 from va 1 i j 30 t-1
	429	ctin zdf_avt_avmu_avmv 14 from va 1 i+1 j-1 30 t-1
	430	ctin zdf_avt_avmu_avmv 15 from va 1 i+1 j 30 t-1
	431
	432	ctin zdf_avt_avmu_avmv 16 from va 1 i j-1 2 t-1
	433	ctin zdf_avt_avmu_avmv 17 from va 1 i j 2 t-1
	434	ctin zdf_avt_avmu_avmv 18 from va 1 i+1 j-1 2 t-1
	435	ctin zdf_avt_avmu_avmv 19 from va 1 i+1 j 2 t-1
	436
	437	ctin zdfmxl_hmld 1..NZ from zdf_avt_avmu_avmv 1 i j 1..NZ t
	438	ctin zdfmxl_nmln_hmlp_hmlpt 1..NZ from rhop 1 i j 1..NZ t-1
	439
[50]	440	//#---------->trasbc
[1]	441	ctin ta_sa_trasbc 1 from sbcgyre_qsr_qns 2 i j t
	442	ctin ta_sa_trasbc 2 from sbcgyre_emps 1 i j t
	443	ctin ta_sa_trasbc 3 from sa 1 i j 1 t-1
	444
[50]	445	//#---------->traqsr
[1]	446	ctin ta_traqsr 1 from sbcgyre_qsr_qns 1 i j t
	447	ctin ta_traqsr 2 from ta_sa_trasbc 1 i j t
	448
[50]	449	//#---------->traadv_cen2
[1]	450	ctin zcent_hor_traadv_cen2 1 from ua 1 i j k t-1
	451	ctin zcent_hor_traadv_cen2 2 from va 1 i j k t-1
	452	ctin zcent_hor_traadv_cen2 3 from ta 1 i j k t-1
	453	ctin zcent_hor_traadv_cen2 4 from ta 1 i j+1 k t-1
	454	ctin zcent_hor_traadv_cen2 5 from ta 1 i+1 j k t-1
	455
	456	ctin zcens_hor_traadv_cen2 1 from ua 1 i j k t-1
	457	ctin zcens_hor_traadv_cen2 2 from va 1 i j k t-1
	458	ctin zcens_hor_traadv_cen2 3 from sa 1 i j k t-1
	459	ctin zcens_hor_traadv_cen2 4 from sa 1 i j+1 k t-1
	460	ctin zcens_hor_traadv_cen2 5 from sa 1 i+1 j k t-1
	461
	462	ctin ta_hor_traadv_cen2 1 from ta_traqsr 1 i j k t
	463	ctin ta_hor_traadv_cen2 2 from zcent_hor_traadv_cen2 1 i-1 j k t
	464	ctin ta_hor_traadv_cen2 3 from zcent_hor_traadv_cen2 1 i j k t
	465	ctin ta_hor_traadv_cen2 4 from zcent_hor_traadv_cen2 2 i j-1 k t
	466	ctin ta_hor_traadv_cen2 5 from zcent_hor_traadv_cen2 2 i j k t
	467
	468	ctin sa_hor_traadv_cen2 1 from ta_sa_trasbc 2 i j t
	469	ctin sa_hor_traadv_cen2 2 from zcens_hor_traadv_cen2 1 i-1 j k t
	470	ctin sa_hor_traadv_cen2 3 from zcens_hor_traadv_cen2 1 i j k t
	471	ctin sa_hor_traadv_cen2 4 from zcens_hor_traadv_cen2 2 i j-1 k t
	472	ctin sa_hor_traadv_cen2 5 from zcens_hor_traadv_cen2 2 i j k t
	473
	474	ctin zcent_ver_traadv_cen2 1 from wa 1 i j k t-1
	475	ctin zcent_ver_traadv_cen2 2 from ta 1 i j k t-1
	476	ctin zcent_ver_traadv_cen2 3 from ta 1 i j k-1 t-1
	477
	478	ctin zcens_ver_traadv_cen2 1 from wa 1 i j k t-1
	479	ctin zcens_ver_traadv_cen2 2 from sa 1 i j k t-1
	480	ctin zcens_ver_traadv_cen2 3 from sa 1 i j k-1 t-1
	481
	482	ctin ta_ver_traadv_cen2 1 from ta_hor_traadv_cen2 1 i j k t
	483	ctin ta_ver_traadv_cen2 2 from zcent_ver_traadv_cen2 1 i j k t
	484	ctin ta_ver_traadv_cen2 3 from zcent_ver_traadv_cen2 1 i j k+1 t
	485
	486	ctin sa_ver_traadv_cen2 1 from sa_hor_traadv_cen2 1 i j k t
	487	ctin sa_ver_traadv_cen2 2 from zcens_ver_traadv_cen2 1 i j k t
	488	ctin sa_ver_traadv_cen2 3 from zcens_ver_traadv_cen2 1 i j k+1 t
	489
[50]	490	//#---------->traldf_lap
[1]	491	ctin ztuv_traldf_lap 1 from tb 1 i j k t-1
	492	ctin ztuv_traldf_lap 2 from tb 1 i+1 j k t-1
	493	ctin ztuv_traldf_lap 3 from tb 1 i j+1 k t-1
	494
	495	ctin zsuv_traldf_lap 1 from sb 1 i j k t-1
	496	ctin zsuv_traldf_lap 2 from sb 1 i+1 j k t-1
	497	ctin zsuv_traldf_lap 3 from sb 1 i j+1 k t-1
	498
	499	ctin ta_traldf_lap 1 from ta_ver_traadv_cen2 1 i j k t
	500	ctin ta_traldf_lap 2 from ztuv_traldf_lap 1 i j k t
	501	ctin ta_traldf_lap 3 from ztuv_traldf_lap 1 i-1 j k t
	502	ctin ta_traldf_lap 4 from ztuv_traldf_lap 2 i j k t
	503	ctin ta_traldf_lap 5 from ztuv_traldf_lap 2 i j-1 k t
	504
	505	ctin sa_traldf_lap 1 from sa_ver_traadv_cen2 1 i j k t
	506	ctin sa_traldf_lap 2 from zsuv_traldf_lap 1 i j k t
	507	ctin sa_traldf_lap 3 from zsuv_traldf_lap 1 i-1 j k t
	508	ctin sa_traldf_lap 4 from zsuv_traldf_lap 2 i j k t
	509	ctin sa_traldf_lap 5 from zsuv_traldf_lap 2 i j-1 k t
	510
[50]	511	//#---------->trazdf_imp
[1]	512	ctin zwisd_trazdf_imp 1 from zdf_avt_avmu_avmv 1 i j k t
	513	ctin zwisd_trazdf_imp 2 from zdf_avt_avmu_avmv 1 i j k+1 t
	514
	515	ctin zrhs_trazdf_imp 1 from ta_traldf_lap 1 i j k t
	516	ctin zrhs_trazdf_imp 2 from tb 1 i j k t-1
	517
	518	ctin zrhs_sa_trazdf_imp 1 from sa_traldf_lap 1 i j k t
	519	ctin zrhs_sa_trazdf_imp 2 from sb 1 i j k t-1
	520
	521	ctin zwt_trazdf_imp 1 from zwisd_trazdf_imp 1 i j k t
	522	ctin zwt_trazdf_imp 2 from zwisd_trazdf_imp 2 i j k-1 t
	523	ctin zwt_trazdf_imp 3 from zwisd_trazdf_imp 3 i j k t
	524	ctin zwt_trazdf_imp 4 from zwt_trazdf_imp 1 i j k-1 t
	525
	526	ctin ta_de_trazdf_imp 1 from zwisd_trazdf_imp 1 i j k t
	527	ctin ta_de_trazdf_imp 2 from ta_de_trazdf_imp 1 i j k-1 t
	528	ctin ta_de_trazdf_imp 3 from zrhs_trazdf_imp 1 i j k t
	529	ctin ta_de_trazdf_imp 4 from zwt_trazdf_imp 1 i j k-1 t
	530
	531	ctin ta 1 from zwisd_trazdf_imp 2 i j k t
	532	ctin ta 2 from ta 1 i j k+1 t
	533	ctin ta 3 from ta_de_trazdf_imp 1 i j k t
	534	ctin ta 4 from zwt_trazdf_imp 1 i j k t
	535	ctin ta 5 from ta_c 1 i j k
	536
	537	ctin sa_de_trazdf_imp 1 from zwisd_trazdf_imp 1 i j k t
	538	ctin sa_de_trazdf_imp 2 from sa_de_trazdf_imp 1 i j k-1 t
	539	ctin sa_de_trazdf_imp 3 from zrhs_sa_trazdf_imp 1 i j k t
	540	ctin sa_de_trazdf_imp 4 from zwt_trazdf_imp 1 i j k-1 t
	541
	542	ctin sa 1 from zwisd_trazdf_imp 2 i j k t
	543	ctin sa 2 from sa 1 i j k+1 t
	544	ctin sa 3 from sa_de_trazdf_imp 1 i j k t
	545	ctin sa 4 from zwt_trazdf_imp 1 i j k t
	546	ctin sa 5 from sa_c 1 i j k
	547
[50]	548	//#---------->tra_nxt
[1]	549	ctin tb 1 from tb 1 i j k t-1
	550	ctin tb 2 from ta 1 i j k t-1
	551	ctin tb 3 from ta 1 i j k t
	552	ctin tb 4 from ta_c 1 i j k
	553
	554	ctin sb 1 from sb 1 i j k t-1
	555	ctin sb 2 from sa 1 i j k t-1
	556	ctin sb 3 from sa 1 i j k t
	557	ctin sb 4 from sa_c 1 i j k
	558
[50]	559	//#---------->eos
[1]	560	ctin rhd 1 from tb 1 i j k t
	561	ctin rhd 2 from sb 1 i j k t
	562
	563	ctin rhop 1 from rhd 1 i j k t
	564
	565
[50]	566	//#---------->dynadv_cen2
[1]	567	ctin hmf_TF_dynadv_cen2 1 from ua 1 i j k t-1
	568	ctin hmf_TF_dynadv_cen2 2 from ua 1 i+1 j k t-1
	569	ctin hmf_TF_dynadv_cen2 3 from ua 1 i j+1 k t-1
	570	ctin hmf_TF_dynadv_cen2 4 from va 1 i j k t-1
	571	ctin hmf_TF_dynadv_cen2 5 from va 1 i+1 j k t-1
	572	ctin hmf_TF_dynadv_cen2 6 from va 1 i j+1 k t-1
	573
	574	ctin zua_dhmf_dynadv_cen2 1 from hmf_TF_dynadv_cen2 1 i j k t
	575	ctin zua_dhmf_dynadv_cen2 2 from hmf_TF_dynadv_cen2 1 i-1 j k t
	576	ctin zua_dhmf_dynadv_cen2 3 from hmf_TF_dynadv_cen2 2 i j k t
	577	ctin zua_dhmf_dynadv_cen2 4 from hmf_TF_dynadv_cen2 2 i j-1 k t
	578
	579	ctin zva_dhmf_dynadv_cen2 1 from hmf_TF_dynadv_cen2 3 i j k t
	580	ctin zva_dhmf_dynadv_cen2 2 from hmf_TF_dynadv_cen2 3 i-1 j k t
	581	ctin zva_dhmf_dynadv_cen2 3 from hmf_TF_dynadv_cen2 4 i j k t
	582	ctin zva_dhmf_dynadv_cen2 4 from hmf_TF_dynadv_cen2 4 i j-1 k t
	583
	584	ctin zfuv_UW_dynadv_cen2 1 from wa 1 i j k t-1
	585	ctin zfuv_UW_dynadv_cen2 2 from wa 1 i+1 j k t-1
	586	ctin zfuv_UW_dynadv_cen2 3 from wa 1 i j+1 k t-1
	587	ctin zfuv_UW_dynadv_cen2 4 from ua 1 i j k t-1
	588	ctin zfuv_UW_dynadv_cen2 5 from ua 1 i j k-1 t-1
	589	ctin zfuv_UW_dynadv_cen2 6 from va 1 i j k t-1
	590	ctin zfuv_UW_dynadv_cen2 7 from va 1 i j k-1 t-1
	591
	592	ctin ua_dynadv_cen2 1 from zfuv_UW_dynadv_cen2 1 i j k t
	593	ctin ua_dynadv_cen2 2 from zfuv_UW_dynadv_cen2 1 i j k+1 t
	594	ctin ua_dynadv_cen2 3 from zua_dhmf_dynadv_cen2 1 i j k t
	595
	596	ctin va_dynadv_cen2 1 from zfuv_UW_dynadv_cen2 2 i j k t
	597	ctin va_dynadv_cen2 2 from zfuv_UW_dynadv_cen2 2 i j k+1 t
	598	ctin va_dynadv_cen2 3 from zva_dhmf_dynadv_cen2 1 i j k t
	599
[50]	600	//#---------->vor_ene
[1]	601	ctin zwxyz_vor_ene 1 from ua 1 i j k t-1
	602	ctin zwxyz_vor_ene 2 from ua 1 i j+1 k t-1
	603	ctin zwxyz_vor_ene 3 from va 1 i j k t-1
	604	ctin zwxyz_vor_ene 4 from va 1 i+1 j k t-1
	605
	606	ctin ua_vor_ene 1 from ua_dynadv_cen2 1 i j k t
	607	ctin ua_vor_ene 2 from zwxyz_vor_ene 3 i j-1 k t
	608	ctin ua_vor_ene 3 from zwxyz_vor_ene 3 i j k t
	609	ctin ua_vor_ene 4 from zwxyz_vor_ene 2 i j-1 k t
	610	ctin ua_vor_ene 5 from zwxyz_vor_ene 2 i j k t
	611	ctin ua_vor_ene 6 from zwxyz_vor_ene 2 i+1 j-1 k t
	612	ctin ua_vor_ene 7 from zwxyz_vor_ene 2 i+1 j k t
	613
	614	ctin va_vor_ene 1 from va_dynadv_cen2 1 i j k t
	615	ctin va_vor_ene 2 from zwxyz_vor_ene 3 i-1 j k t
	616	ctin va_vor_ene 3 from zwxyz_vor_ene 3 i j k t
	617	ctin va_vor_ene 4 from zwxyz_vor_ene 1 i-1 j k t
	618	ctin va_vor_ene 5 from zwxyz_vor_ene 1 i-1 j+1 k t
	619	ctin va_vor_ene 6 from zwxyz_vor_ene 1 i j k t
	620	ctin va_vor_ene 7 from zwxyz_vor_ene 1 i j+1 k t
	621
[50]	622	//#---------->dyn_ldf_lap
[1]	623	ctin ua_dyn_ldf_lap 1 from ua_vor_ene 1 i j k t
	624	ctin ua_dyn_ldf_lap 2 from rotn 1 i j-1 k t-2
	625	ctin ua_dyn_ldf_lap 3 from rotn 1 i j k t-2
	626	ctin ua_dyn_ldf_lap 4 from hdivn 1 i j k t-2
	627	ctin ua_dyn_ldf_lap 5 from hdivn 1 i+1 j k t-2
	628
	629	ctin va_dyn_ldf_lap 1 from va_vor_ene 1 i j k t
	630	ctin va_dyn_ldf_lap 2 from rotn 1 i-1 j k t-2
	631	ctin va_dyn_ldf_lap 3 from rotn 1 i j k t-2
	632	ctin va_dyn_ldf_lap 4 from hdivn 1 i j k t-2
	633	ctin va_dyn_ldf_lap 5 from hdivn 1 i j+1 k t-2
	634
[50]	635	//#---------->dyn__hpg_zco
[1]	636	ctin zhpij_dyn_hpg_zco 1 from rhd 1 i+1 j k t
	637	ctin zhpij_dyn_hpg_zco 2 from rhd 1 i j+1 k t
	638	ctin zhpij_dyn_hpg_zco 3 from rhd 1 i j k t
	639	ctin zhpij_dyn_hpg_zco 4 from rhd 1 i+1 j k-1 t
	640	ctin zhpij_dyn_hpg_zco 5 from rhd 1 i j+1 k-1 t
	641	ctin zhpij_dyn_hpg_zco 6 from rhd 1 i j k-1 t
	642	ctin zhpij_dyn_hpg_zco 7 from zhpij_dyn_hpg_zco 1 i j k-1 t
	643	ctin zhpij_dyn_hpg_zco 8 from zhpij_dyn_hpg_zco 2 i j k-1 t
	644
	645	ctin ua_dyn_hpg_zco 1 from ua_dyn_ldf_lap 1 i j k t
	646	ctin ua_dyn_hpg_zco 2 from zhpij_dyn_hpg_zco 1 i j k t
	647
	648	ctin va_dyn_hpg_zco 1 from va_dyn_ldf_lap 1 i j k t
	649	ctin va_dyn_hpg_zco 2 from zhpij_dyn_hpg_zco 2 i j k t
	650
[50]	651	//#---------->dynzdf_imp
[1]	652	ctin zwisd_ua_dynzdf_imp 1 from zdf_avt_avmu_avmv 2 i j k t
	653	ctin zwisd_ua_dynzdf_imp 2 from zdf_avt_avmu_avmv 2 i j k+1 t
	654
	655	ctin zwisd_va_dynzdf_imp 1 from zdf_avt_avmu_avmv 3 i j k t
	656	ctin zwisd_va_dynzdf_imp 2 from zdf_avt_avmu_avmv 3 i j k+1 t
	657
	658	ctin zrhs_ua_dynzdf_imp 1 from ua_dyn_hpg_zco 1 i j k t
	659	ctin zrhs_ua_dynzdf_imp 2 from ub 1 i j k t-1
	660	ctin zrhs_ua_dynzdf_imp 3 from sbcgyre_utau_vtau 1 i j t
	661
	662	ctin zrhs_va_dynzdf_imp 1 from va_dyn_hpg_zco 1 i j k t
	663	ctin zrhs_va_dynzdf_imp 2 from vb 1 i j k t-1
	664	ctin zrhs_va_dynzdf_imp 3 from sbcgyre_utau_vtau 2 i j t
	665
	666	ctin zwt_ua_dynzdf_imp 1 from zwisd_ua_dynzdf_imp 1 i j k t
	667	ctin zwt_ua_dynzdf_imp 2 from zwisd_ua_dynzdf_imp 2 i j k-1 t
	668	ctin zwt_ua_dynzdf_imp 3 from zwisd_ua_dynzdf_imp 3 i j k t
	669	ctin zwt_ua_dynzdf_imp 4 from zwt_ua_dynzdf_imp 1 i j k-1 t
	670
	671	ctin zwt_va_dynzdf_imp 1 from zwisd_va_dynzdf_imp 1 i j k t
	672	ctin zwt_va_dynzdf_imp 2 from zwisd_va_dynzdf_imp 2 i j k-1 t
	673	ctin zwt_va_dynzdf_imp 3 from zwisd_va_dynzdf_imp 3 i j k t
	674	ctin zwt_va_dynzdf_imp 4 from zwt_va_dynzdf_imp 1 i j k-1 t
	675
	676	ctin ua_de_dynzdf_imp 1 from zwisd_ua_dynzdf_imp 1 i j k t
	677	ctin ua_de_dynzdf_imp 2 from ua_de_dynzdf_imp 1 i j k-1 t
	678	ctin ua_de_dynzdf_imp 3 from zrhs_ua_dynzdf_imp 1 i j k t
	679	ctin ua_de_dynzdf_imp 4 from zwt_ua_dynzdf_imp 1 i j k-1 t
	680
	681	ctin ua_dynzdf_imp 1 from zwisd_ua_dynzdf_imp 2 i j k t
	682	ctin ua_dynzdf_imp 2 from ua_dynzdf_imp 1 i j k+1 t
	683	ctin ua_dynzdf_imp 3 from ua_de_dynzdf_imp 1 i j k t
	684	ctin ua_dynzdf_imp 4 from zwt_ua_dynzdf_imp 1 i j k t
	685
	686	ctin va_de_dynzdf_imp 1 from zwisd_va_dynzdf_imp 1 i j k t
	687	ctin va_de_dynzdf_imp 2 from va_de_dynzdf_imp 1 i j k-1 t
	688	ctin va_de_dynzdf_imp 3 from zrhs_va_dynzdf_imp 1 i j k t
	689	ctin va_de_dynzdf_imp 4 from zwt_va_dynzdf_imp 1 i j k-1 t
	690
	691	ctin va_dynzdf_imp 1 from zwisd_va_dynzdf_imp 2 i j k t
	692	ctin va_dynzdf_imp 2 from va_dynzdf_imp 1 i j k+1 t
	693	ctin va_dynzdf_imp 3 from va_de_dynzdf_imp 1 i j k t
	694	ctin va_dynzdf_imp 4 from zwt_va_dynzdf_imp 1 i j k t
	695
	696	ctin ua_norm_dynzdf 1 from ua_dynzdf_imp 1 i j k t
	697	ctin ua_norm_dynzdf 2 from ub 1 i j k t-1
	698
	699	ctin va_norm_dynzdf 1 from va_dynzdf_imp 1 i j k t
	700	ctin va_norm_dynzdf 2 from vb 1 i j k t-1
	701
[50]	702	//#---------->ddynspg_flt
[1]	703	ctin spguv_now_dynspg 1 from sshn 1 i j t-1
	704	ctin spguv_now_dynspg 2 from sshn 1 i j+1 t-1
	705	ctin spguv_now_dynspg 3 from sshn 1 i+1 j t-1
	706
	707	ctin ua_1_dynspg_flt 1 from ua_norm_dynzdf 1 i j k t
	708	ctin ua_1_dynspg_flt 2 from ub 1 i j k t-1
	709	ctin ua_1_dynspg_flt 3 from spguv_now_dynspg 1 i j t
	710
	711	ctin va_1_dynspg_flt 1 from va_norm_dynzdf 1 i j k t
	712	ctin va_1_dynspg_flt 2 from vb 1 i j k t-1
	713	ctin va_1_dynspg_flt 3 from spguv_now_dynspg 2 i j t
	714
	715	ctin sum_spgu_dynspg_flt 1..NZ from ua_1_dynspg_flt 1 i j 1..NZ t
	716	ctin sum_spgv_dynspg_flt 1..NZ from va_1_dynspg_flt 1 i j 1..NZ t
	717
	718	ctin gcb_dynspg_flt 1 from sum_spgu_dynspg_flt 1 i j t
	719	ctin gcb_dynspg_flt 2 from sum_spgu_dynspg_flt 1 i-1 j t
	720	ctin gcb_dynspg_flt 3 from sum_spgv_dynspg_flt 1 i j t
	721	ctin gcb_dynspg_flt 4 from sum_spgv_dynspg_flt 1 i j-1 t
	722
	723	ctin gcx_dynspg_flt 1 from gcx2 1 i j t-1
	724	ctin gcx_dynspg_flt 2 from gcx2 1 i j t-2
	725
	726	ctin spguv_dynspg_flt 1 from gcx2 1 i+1 j t
	727	ctin spguv_dynspg_flt 2 from gcx2 1 i j t
	728	ctin spguv_dynspg_flt 3 from gcx2 1 i j+1 t
	729
	730	ctin ua 1 from ua_1_dynspg_flt 1 i j k t
	731	ctin ua 2 from spguv_dynspg_flt 1 i j t
	732	ctin ua 3 from ua_c 1 i j k
	733
	734	ctin va 1 from va_1_dynspg_flt 1 i j k t
	735	ctin va 2 from spguv_dynspg_flt 2 i j t
	736	ctin va 3 from va_c 1 i j k
	737
	738	ctin sshn 1 from sshb 1 i j t-1
	739	ctin sshn 2 from wa 1 i j 1 t-1
	740	ctin sshn 3 from sbcgyre_emp 1 i j t
	741	ctin sshn 4 from sshn_c 1 i j
	742
	743	ctin sshb 1 from sshb 1 i j t-1
	744	ctin sshb 2 from sshn 1 i j t-1
	745	ctin sshb 3 from sshn 1 i j t
	746	ctin sshb 4 from sshn_c 1 i j
[53]	747
	748	#ifndef SOLSORYAO
[50]	749	//############## Ajout de ctin "virtuels" ##############
[53]	750	ctin solsor_dynspg_flt 1..9 from gcx_dynspg_flt 1 i%~1 j%~1 t
	751	ctin solsor_dynspg_flt 10..18 from gcb_dynspg_flt 1 i%~1 j%~1 t
	752	ctin solsor_dynspg_flt 19 from solsor_dynspg_flt 1 i-1 j-1 t
	753	ctin gcx2 1 from solsor_dynspg_flt 1 i j t
	754	#endif
[1]	755
[53]	756	#ifdef SOLSORYAO
[45]	757	ctin solsor_flag 1 from solsor_gx2_x_r 2 i j k t
	758	ctin solsor_flag 2 from solsor_flag 2 NX NY k-1 t
	759	ctin solsor_flag 3 from solsor_flag 1 i-1 NY k t
[46]	760	ctin solsor_flag 4 from solsor_flag 1 i j-1 k t
[45]	761
	762	ctin solsor_gx1_x_r 1 from gcx_dynspg_flt 1 i j t
	763	ctin solsor_gx1_x_r 2 from gcb_dynspg_flt 1 i j t
	764	ctin solsor_gx1_x_r 3 from solsor_gx2_x_r 1 i j-1 k-1 t
	765	ctin solsor_gx1_x_r 4 from solsor_gx2_x_r 1 i-1 j k-1 t
	766	ctin solsor_gx1_x_r 5 from solsor_gx2_x_r 1 i+1 j k-1 t
	767	ctin solsor_gx1_x_r 6 from solsor_gx2_x_r 1 i j+1 k-1 t
	768	ctin solsor_gx1_x_r 7 from solsor_gx2_x_r 1 i j k-1 t
	769	ctin solsor_gx1_x_r 8 from solsor_flag 2 NX NY k-1 t
	770
	771	ctin solsor_gx2_x_r 1 from gcx_dynspg_flt 1 i j t
	772	ctin solsor_gx2_x_r 2 from gcb_dynspg_flt 1 i j t
[47]	773	ctin solsor_gx2_x_r 3 from solsor_gx1_x_r 1 i j-1 k t
[45]	774	ctin solsor_gx2_x_r 4 from solsor_gx1_x_r 1 i-1 j k t
[47]	775	ctin solsor_gx2_x_r 5 from solsor_gx1_x_r 1 i+1 j k t
[45]	776	ctin solsor_gx2_x_r 6 from solsor_gx1_x_r 1 i j+1 k t
	777	ctin solsor_gx2_x_r 7 from solsor_gx1_x_r 1 i j k t
	778	ctin solsor_gx2_x_r 8 from solsor_flag 2 NX NY k-1 t
	779	ctin solsor_gx2_x_r 9 from solsor_gx1_x_r 2 i j k t
	780
[47]	781	ctin gcx2 1 from solsor_gx2_x_r 1 i j NMAX t
[53]	782	#endif
	783
[50]	784	//#---------->dyn_nxt
[1]	785	ctin ub 1 from ub 1 i j k t-1
	786	ctin ub 2 from ua 1 i j k t-1
	787	ctin ub 3 from ua 1 i j k t
	788	ctin ub 4 from ua_c 1 i j k
	789
	790	ctin vb 1 from vb 1 i j k t-1
	791	ctin vb 2 from va 1 i j k t-1
	792	ctin vb 3 from va 1 i j k t
	793	ctin vb 4 from va_c 1 i j k
	794
[50]	795	//#---------->divcur
[1]	796	ctin hdivn 1 from ua 1 i j k t
	797	ctin hdivn 2 from ua 1 i-1 j k t
	798	ctin hdivn 3 from va 1 i j k t
	799	ctin hdivn 4 from va 1 i j-1 k t
	800
	801	ctin rotn 1 from va 1 i+1 j k t
	802	ctin rotn 2 from va 1 i j k t
	803	ctin rotn 3 from ua 1 i j+1 k t
	804	ctin rotn 4 from ua 1 i j k t
	805
[50]	806	//#---------->wzv
[1]	807	ctin wa 1 from wa 1 i j k+1 t
	808	ctin wa 2 from hdivn 1 i j k t
[50]	809	//#---------->
[1]	810
[50]	811	#ifdef OPTIMORDER
[1]	812
[50]	813	//#---------->sbcgyre + bn2_rn2 + zdf + trasbc + traqsr + traadv +
	814	//# traldf + trazdf + tra_nxt + eos + dynadv_cen2 + vor_ene
	815	//# +dyn_ldf + dyn__hpg_zco +dynzdf_imp(-> gcx_dynspg_flt) //
[1]	816
	817
[50]	818	order modinspace S3dt
	819	order YA1 YA2
	820	sbcgyre_qsr_qns sbcgyre_emp1
	821	spguv_now_dynspg
	822	gcx_dynspg_flt
	823	order YA3
	824	bn2_rn2 zcent_hor_traadv_cen2 zcens_hor_traadv_cen2
	825	zcent_ver_traadv_cen2 zcens_ver_traadv_cen2
	826	ztuv_traldf_lap zsuv_traldf_lap
	827	hmf_TF_dynadv_cen2 zfuv_UW_dynadv_cen2
	828	forder
[1]	829	forder
[49]	830
[50]	831	order YA3
	832	order YA1 YA2
	833	zua_dhmf_dynadv_cen2 zva_dhmf_dynadv_cen2 zwxyz_vor_ene
	834	forder
	835	forder
[49]	836
[50]	837	//#NO PARALLEL
	838	order YA2 YA1
	839	sbcgyre_zsumemp_zsurf
	840	forder
	841	order YA1 YA2
[49]	842	order YB3
[50]	843	zdf_avt_avmu_avmv
	844	zwisd_trazdf_imp
	845	zwisd_ua_dynzdf_imp zwisd_va_dynzdf_imp
	846	forder
	847	sbcgyre_emp sbcgyre_emps sbcgyre_utau_vtau
	848	zdfmxl_hmld zdfmxl_nmln_hmlp_hmlpt ta_sa_trasbc
	849	order YB3
	850	ta_traqsr
	851	ua_dynadv_cen2 va_dynadv_cen2
	852	ua_vor_ene va_vor_ene
	853	ua_dyn_ldf_lap va_dyn_ldf_lap
	854	ta_hor_traadv_cen2 sa_hor_traadv_cen2
[49]	855	ta_ver_traadv_cen2 sa_ver_traadv_cen2
	856	ta_traldf_lap sa_traldf_lap
	857	zrhs_trazdf_imp zrhs_sa_trazdf_imp
[50]	858	forder
[49]	859	order YA3
	860	zwt_trazdf_imp ta_de_trazdf_imp sa_de_trazdf_imp
[50]	861	zwt_ua_dynzdf_imp zwt_va_dynzdf_imp
[49]	862	forder
	863	order YB3
	864	ta sa tb sb rhd rhop
	865	forder
[50]	866	forder
	867	order YA1 YA2
	868	order YA3
	869	zhpij_dyn_hpg_zco
	870	ua_dyn_hpg_zco va_dyn_hpg_zco
	871	zrhs_ua_dynzdf_imp zrhs_va_dynzdf_imp
	872	ua_de_dynzdf_imp va_de_dynzdf_imp
	873	forder
	874	order YB3
	875	ua_dynzdf_imp va_dynzdf_imp
	876	ua_norm_dynzdf va_norm_dynzdf
	877	ua_1_dynspg_flt va_1_dynspg_flt
	878	forder
	879	sum_spgu_dynspg_flt sum_spgv_dynspg_flt
	880	forder
[49]	881
[50]	882	order YA1 YA2
	883	sbcgyre_wndm
[52]	884	gcb_dynspg_flt
[53]	885
[50]	886	forder
[53]	887	#ifdef SOLSORYAO
[50]	888	forder
[53]	889	#endif
[49]	890
[53]	891	#ifndef SOLSORYAO
	892	order YA1 YA2
	893	solsor_dynspg_flt
	894	forder
	895	#endif
	896
	897	#ifdef SOLSORYAO
[50]	898	order modinspace Ssolsor
	899	order YA3
	900	order YA2 YA1
	901	solsor_gx1_x_r
	902	forder
	903
	904	order YA2 YA1
	905	solsor_gx2_x_r
	906	forder
	907
	908	order YA1 YA2
	909	solsor_flag
	910	forder
	911	forder
	912	forder
[53]	913	#endif
[50]	914
[53]	915	#ifdef SOLSORYAO
[50]	916	order modinspace S3dt_b
[53]	917	#endif
[50]	918	order YA2 YA1
	919	gcx2
[52]	920	sshn sshb
[50]	921	forder
	922	order YA2 YA1
	923	spguv_dynspg_flt
[52]	924	order YA3
	925	ua va
	926	ub vb
	927	forder
[53]	928	forder
[52]	929
	930	// #---------->divcur
	931	order YA3 YA2 YA1
	932	hdivn rotn
	933	forder
	934	// #---------->wzv
	935	order YA2 YA1 YB3
	936	wa
[53]	937
	938	forder
	939
	940
[50]	941	forder
	942
	943	#endif
	944
[58]	945	#ifdef FILTER
	946	// calcul du filtre
[62]	947	#ifndef FILZNOL
[59]	948	order modinspace S3dtlf
[67]	949	order YA3 YA2 YA1
	950	dta_lfexp
	951	forder
[58]	952	forder
[62]	953	#endif
[67]	954	#ifndef FILLNOZ
[59]	955	order modinspace S3dtzf
[67]	956	#ifdef FZIMP
	957	order YA2 YA1
	958	order YA3
	959	dta_zfimp_t
	960	forder
	961	order YB3
	962	dta_zfimp
	963	forder
	964	forder
	965	#endif
	966	#ifndef FZIMP
[59]	967	order YA3 YA2 YA1
[67]	968	dta_zfexp
[59]	969	forder
[67]	970	#endif
[59]	971	forder
[62]	972	#endif
[67]	973
[58]	974	order modinspace S3d
	975	order YA3 YA2 YA1
	976	ta_c
	977	forder
	978	forder
[59]	979
[58]	980	#endif
	981
[50]	982	#ifndef OPTIMORDER
[58]	983
[50]	984	order modinspace S3dt
	985	//#---------->sbcgyre
	986	order YA2 YA1
	987	sbcgyre_qsr_qns sbcgyre_emp1 sbcgyre_zsumemp_zsurf
	988	forder
	989	order YA2 YA1
	990	sbcgyre_emp sbcgyre_emps sbcgyre_utau_vtau sbcgyre_wndm
	991	forder
	992
	993
	994	//#---------->bn2
	995	order YA3 YA2 YA1
[1]	996	bn2_rn2
	997	forder
[49]	998
[50]	999	//#---------->zdf
[1]	1000	order YA3 YA2 YA1
	1001	zdf_avt_avmu_avmv
	1002	forder
	1003	order YA2 YA1
	1004	zdfmxl_hmld zdfmxl_nmln_hmlp_hmlpt
	1005	forder
[50]	1006	//#---------->trasbc
[1]	1007	order YA2 YA1
	1008	ta_sa_trasbc
	1009	forder
[50]	1010	//#---------->traqsr
[1]	1011	order YA3 YA2 YA1
	1012	ta_traqsr
	1013	forder
[50]	1014	//#------> traadv_cen2
[1]	1015	order YA3
	1016	order YA2 YA1
	1017	zcent_hor_traadv_cen2 zcens_hor_traadv_cen2
	1018	forder
	1019	order YA2 YA1
	1020	ta_hor_traadv_cen2 sa_hor_traadv_cen2
	1021	forder
	1022	forder
	1023
	1024	order YA3 YA2 YA1
	1025	zcent_ver_traadv_cen2 zcens_ver_traadv_cen2
	1026	forder
	1027	order YA3 YA2 YA1
	1028	ta_ver_traadv_cen2 sa_ver_traadv_cen2
	1029	forder
	1030
[50]	1031	//#------> traldf_lap
[1]	1032	order YA3 YA2 YA1
	1033	ztuv_traldf_lap zsuv_traldf_lap
	1034	ta_traldf_lap sa_traldf_lap
	1035	forder
[50]	1036	//#------> trazdf_imp
[1]	1037	order YA3 YA2 YA1
	1038	zwisd_trazdf_imp zrhs_trazdf_imp zrhs_sa_trazdf_imp
	1039	forder
	1040	order YA3 YA2 YA1
	1041	zwt_trazdf_imp ta_de_trazdf_imp sa_de_trazdf_imp
	1042	forder
	1043	order YB3 YA2 YA1
	1044	ta sa
	1045	forder
[50]	1046	//#---------->tra_nxt
[1]	1047	order YA3 YA2 YA1
	1048	tb sb
	1049	forder
[50]	1050	//#---------->eos
[1]	1051	order YA3 YA2 YA1
	1052	rhd rhop
	1053	forder
[50]	1054	//#------> dynadv_cen2
[1]	1055	order YA3
	1056	order YA2 YA1
	1057	hmf_TF_dynadv_cen2
	1058	forder
	1059	order YA2 YA1
	1060	zua_dhmf_dynadv_cen2 zva_dhmf_dynadv_cen2
	1061	forder
	1062	forder
	1063
	1064	order YA3 YA2 YA1
	1065	zfuv_UW_dynadv_cen2
	1066	forder
	1067	order YA3 YA2 YA1
	1068	ua_dynadv_cen2 va_dynadv_cen2
	1069	forder
[50]	1070	//#------> vor_ene && dyn_ldf_lap
[1]	1071	order YA3
	1072	order YA2 YA1
	1073	zwxyz_vor_ene
	1074	forder
	1075	order YA2 YA1
	1076	ua_vor_ene va_vor_ene
	1077	ua_dyn_ldf_lap va_dyn_ldf_lap
	1078	forder
	1079	forder
[50]	1080	//#---------->dyn__hpg_zco
[1]	1081	order YA3 YA2 YA1
	1082	zhpij_dyn_hpg_zco ua_dyn_hpg_zco va_dyn_hpg_zco
	1083	forder
[50]	1084	//#---------->dynzdf_imp
[1]	1085	order YA3 YA2 YA1
	1086	zwisd_ua_dynzdf_imp zwisd_va_dynzdf_imp
	1087	zrhs_ua_dynzdf_imp zrhs_va_dynzdf_imp
	1088	forder
	1089	order YA3 YA2 YA1
	1090	zwt_ua_dynzdf_imp ua_de_dynzdf_imp
	1091	zwt_va_dynzdf_imp va_de_dynzdf_imp
	1092	forder
	1093	order YB3 YA2 YA1
	1094	ua_dynzdf_imp va_dynzdf_imp
	1095	forder
	1096	order YA3 YA2 YA1
	1097	ua_norm_dynzdf va_norm_dynzdf
	1098	forder
[50]	1099	//#---------->dynspg_flt
[1]	1100	order YA2 YA1
	1101	spguv_now_dynspg
	1102	forder
	1103	order YA3 YA2 YA1
	1104	ua_1_dynspg_flt va_1_dynspg_flt
	1105	forder
	1106	order YA2 YA1
	1107	sum_spgu_dynspg_flt sum_spgv_dynspg_flt
	1108	forder
	1109	order YA2 YA1
	1110	gcb_dynspg_flt gcx_dynspg_flt
	1111	forder
[53]	1112
	1113	#ifdef SOLSORYAO
[45]	1114	forder
[53]	1115	#endif
[45]	1116
[53]	1117	#ifndef SOLSORYAO
	1118	order YA1 YA2
	1119	solsor_dynspg_flt
	1120	forder
	1121	#endif
	1122
	1123	#ifdef SOLSORYAO
[45]	1124	order modinspace Ssolsor
	1125	order YA3
	1126	order YA2 YA1
	1127	solsor_gx1_x_r
	1128	forder
	1129
	1130	order YA2 YA1
	1131	solsor_gx2_x_r
	1132	forder
	1133
	1134	order YA1 YA2
	1135	solsor_flag
	1136	forder
[1]	1137	forder
[45]	1138	forder
[53]	1139	#endif
[45]	1140
[53]	1141	#ifdef SOLSORYAO
[45]	1142	order modinspace S3dt_b
[53]	1143	#endif SOLSORYAO
	1144
[1]	1145	order YA2 YA1
	1146	gcx2
	1147	forder
	1148	order YA2 YA1
	1149	spguv_dynspg_flt
[50]	1150	sshn sshb
	1151	order YA3
	1152	ua va
	1153	forder
[1]	1154	forder
[50]	1155	// #---------->dyn_nxt
	1156	order YA3 YA2 YA1
	1157	ub vb
	1158	forder
	1159	// #---------->divcur
	1160	order YA3 YA2 YA1
	1161	hdivn rotn
	1162	forder
	1163	// #---------->wzv
	1164	order YB3 YA2 YA1
	1165	wa
[1]	1166	forder
	1167	forder
[50]	1168	#endif
[1]	1169
	1170
[53]	1171
[50]	1172	#ifdef SOLSORYAO
[1]	1173	order spaceintraj Tsbd
[45]	1174	S3dt Ssolsor S3dt_b
[1]	1175	forder
[50]	1176	#endif
[1]	1177
[58]	1178	#ifdef FILTER
[59]	1179
[62]	1180	#ifndef FILZNOL
[59]	1181	order spaceintraj Tlfil
	1182	S3dtlf
	1183	forder
[62]	1184	#endif
[67]	1185	#ifndef FILLNOZ
[59]	1186	order spaceintraj Tzfil
	1187	S3dtzf
	1188	forder
[62]	1189	#endif
[67]	1190
[58]	1191	order spaceintraj Tcst
[59]	1192	S3d
[58]	1193	forder
[59]	1194
[58]	1195	#endif
	1196
[59]	1197	#ifndef SOLSORYAO
	1198
[53]	1199	order spaceintraj Tsbd
	1200	S3dt
	1201	forder
	1202	#endif
	1203
[50]	1204	//#USER FUNCTIONS ---------------------------------INSERT_FCT
[1]	1205	insert_fct xdisplay
	1206	insert_fct xcomparYF
	1207	insert_fct arg xistate_init
	1208	insert_fct arg true_target_in_tab
[3]	1209	insert_fct arg xrst_save
[8]	1210	insert_fct arg xchangesavemode
	1211
[62]	1212	#ifdef FILTER
[58]	1213	insert_fct arg load_eb
[68]	1214	insert_fct arg init_nu
	1215	insert_fct arg xset_fdt_fco
[62]	1216	#endif
[14]	1217	insert_fct arg xwriteout
[36]	1218	insert_fct arg xwritegrad
[14]	1219	insert_fct arg xinitnc
[69]	1220	insert_fct arg init_euler
[50]	1221	//#insert_fct arg load_shape_func
	1222	//#insert_fct arg load_stdev_pca
	1223	//#insert_fct arg load_mean

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

Context Navigation

source: branches/branche-mb/src/sinobad.d @ 74

Download in other formats: