source: trunk/src/sinobad.d @ 73

Last change on this file since 73 was 73, checked in by jbrlod, 13 years ago

modif for dual

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