source: trunk/src/sinobad.d @ 70

Last change on this file since 70 was 70, checked in by berrada, 13 years ago

fusion mb-branche dans tronc

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