Context Navigation

sinobad.d @ 101

Last change on this file since 101 was 81, checked in by jbrlod, 11 years ago

bug fixes

Property svn:mergeinfo set to False
/branches/branche-mb/src/sinobad.d merged eligible

File size: 39.3 KB

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

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

Context Navigation

source: trunk/src/sinobad.d @ 101

Download in other formats: