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

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

filtre lateral explicit fichier dta_lfexp.h

File size: 39.1 KB
Line 
1defval 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      10
25defval OFTZ      0
26defval OFT       10
27#endif
28#ifndef FILTER
29defval OFT      0
30#endif
31//#exec disp_valdef
32#ifdef FZIMP
33defval K_FZIMP
34#endif
35#ifdef FILTER
36defval K_FILTER
37#endif
38#ifdef FILZNOL
39defval K_FILZNOL
40#endif
41#ifdef FILLNOZ
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 16
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#ifndef FILZNOL
332#ifndef FZIMP
333ctin     dta_zfexp      1       from    dta_lfexp               1  i    j    k     t
334#endif
335#ifdef FZIMP
336ctin     dta_zfimp      1       from    dta_lfexp               1  i    j    k     t
337#endif
338#endif
339
340#ifdef FILZNOL
341#ifndef FZIMP
342ctin     dta_zfexp      1       from    nu                      1  i    j    k 
343#endif
344#ifdef FZIMP
345ctin     dta_zfimp      1       from    nu                      1  i    j    k
346#endif
347#endif
348
349#ifdef FZIMP
350ctin     dta_zfimp      2       from    dta_zfimp               1  i    j    k+1   t
351ctin     dta_zfimp      3       from    dta_zfimp_t             1  i    j    k     t
352
353ctin     dta_zfimp_t    1       from    dta_zfimp_t             1  i    j    k-1 t
354ctin     dta_zfimp_t    2       from    dta_zfimp               1  i    j    k  t-1
355#endif
356#ifndef FZIMP
357ctin     dta_zfexp      2       from    dta_zfexp               1  i    j    k-1     t-1 
358ctin     dta_zfexp      3       from    dta_zfexp               1  i    j    k   t-1 
359ctin     dta_zfexp      4       from    dta_zfexp               1  i    j    k+1     t-1
360#endif
361
362//#---------->ta_c
363#ifdef FZIMP
364ctin     ta_c           1       from    dta_zfimp               1  i    j    k   t
365#endif
366#ifndef FZIMP
367ctin     ta_c           1       from    dta_zfexp               1  i    j    k   t
368#endif
369#endif
370#ifdef FILLNOZ
371ctin     ta_c           1       from    dta_lfexp               1  i    j    k   t
372#endif
373
374
375#endif
376
377//#ctin  ta_c                   1..NPCA from    pca_ta                  1..NPCA  1
378
379//#exec disp_ct_in
380//exec disp_modul
381
382
383//#---------->sbcgyre
384ctin     sbcgyre_qsr_qns        1       from    tb                      1  i    j    1    t-1
385
386ctin     sbcgyre_zsumemp_zsurf  1       from    sbcgyre_zsumemp_zsurf   1  i-1  j         t
387ctin     sbcgyre_zsumemp_zsurf  2       from    sbcgyre_zsumemp_zsurf   1  NX   j-1       t
388ctin     sbcgyre_zsumemp_zsurf  3       from    sbcgyre_zsumemp_zsurf   2  i-1  j         t
389ctin     sbcgyre_zsumemp_zsurf  4       from    sbcgyre_zsumemp_zsurf   2  NX   j-1       t
390ctin     sbcgyre_zsumemp_zsurf  5       from    sbcgyre_emp1            1  i    j         t
391
392ctin     sbcgyre_emp            1       from    sbcgyre_emp1            1  i    j         t
393ctin     sbcgyre_emp            2       from    sbcgyre_zsumemp_zsurf   1  NX   NY        t
394ctin     sbcgyre_emp            3       from    sbcgyre_zsumemp_zsurf   2  NX   NY        t
395
396ctin     sbcgyre_emps           1       from    sbcgyre_emp             1  i    j         t
397
398ctin     sbcgyre_wndm           1       from    sbcgyre_utau_vtau       1  i-1  j         t
399ctin     sbcgyre_wndm           2       from    sbcgyre_utau_vtau       2  i    j-1       t
400ctin     sbcgyre_wndm           3       from    sbcgyre_utau_vtau       1  i    j         t
401ctin     sbcgyre_wndm           4       from    sbcgyre_utau_vtau       2  i    j         t
402
403//#---------->bn2
404ctin     bn2_rn2                1       from    tb                      1  i    j    k    t-1
405ctin     bn2_rn2                2       from    tb                      1  i    j    k-1  t-1
406ctin     bn2_rn2                3       from    sb                      1  i    j    k    t-1
407ctin     bn2_rn2                4       from    sb                      1  i    j    k-1  t-1
408
409//#---------->zdf
410ctin     zdf_avt_avmu_avmv      1       from    bn2_rn2                 1  i    j    k    t
411ctin     zdf_avt_avmu_avmv      2       from    bn2_rn2                 1  i+1  j    k    t
412ctin     zdf_avt_avmu_avmv      3       from    bn2_rn2                 1  i    j+1  k    t
413
414ctin     zdf_avt_avmu_avmv      4       from    ua                      1  i-1  j    30   t-1
415ctin     zdf_avt_avmu_avmv      5       from    ua                      1  i-1  j+1  30   t-1
416ctin     zdf_avt_avmu_avmv      6       from    ua                      1  i    j    30   t-1
417ctin     zdf_avt_avmu_avmv      7       from    ua                      1  i    j+1  30   t-1
418
419ctin     zdf_avt_avmu_avmv      8       from    ua                      1  i-1  j    2    t-1
420ctin     zdf_avt_avmu_avmv      9       from    ua                      1  i-1  j+1  2    t-1
421ctin     zdf_avt_avmu_avmv      10      from    ua                      1  i    j    2    t-1
422ctin     zdf_avt_avmu_avmv      11      from    ua                      1  i    j+1  2    t-1
423
424ctin     zdf_avt_avmu_avmv      12      from    va                      1  i    j-1  30   t-1
425ctin     zdf_avt_avmu_avmv      13      from    va                      1  i    j    30   t-1
426ctin     zdf_avt_avmu_avmv      14      from    va                      1  i+1  j-1  30   t-1
427ctin     zdf_avt_avmu_avmv      15      from    va                      1  i+1  j    30   t-1
428
429ctin     zdf_avt_avmu_avmv      16      from    va                      1  i    j-1  2    t-1
430ctin     zdf_avt_avmu_avmv      17      from    va                      1  i    j    2    t-1
431ctin     zdf_avt_avmu_avmv      18      from    va                      1  i+1  j-1  2    t-1
432ctin     zdf_avt_avmu_avmv      19      from    va                      1  i+1  j    2    t-1
433
434ctin     zdfmxl_hmld            1..NZ   from    zdf_avt_avmu_avmv       1  i    j   1..NZ t
435ctin     zdfmxl_nmln_hmlp_hmlpt 1..NZ   from    rhop                    1  i    j   1..NZ t-1
436
437//#---------->trasbc
438ctin     ta_sa_trasbc           1       from    sbcgyre_qsr_qns         2  i    j         t
439ctin     ta_sa_trasbc           2       from    sbcgyre_emps            1  i    j         t
440ctin     ta_sa_trasbc           3       from    sa                      1  i    j    1    t-1
441
442//#---------->traqsr
443ctin     ta_traqsr              1       from    sbcgyre_qsr_qns         1  i    j         t
444ctin     ta_traqsr              2       from    ta_sa_trasbc            1  i    j         t
445
446//#---------->traadv_cen2
447ctin    zcent_hor_traadv_cen2   1       from    ua                      1  i    j    k    t-1
448ctin    zcent_hor_traadv_cen2   2       from    va                      1  i    j    k    t-1
449ctin    zcent_hor_traadv_cen2   3       from    ta                      1  i    j    k    t-1
450ctin    zcent_hor_traadv_cen2   4       from    ta                      1  i    j+1  k    t-1
451ctin    zcent_hor_traadv_cen2   5       from    ta                      1  i+1  j    k    t-1
452
453ctin    zcens_hor_traadv_cen2   1       from    ua                      1  i    j    k    t-1
454ctin    zcens_hor_traadv_cen2   2       from    va                      1  i    j    k    t-1
455ctin    zcens_hor_traadv_cen2   3       from    sa                      1  i    j    k    t-1
456ctin    zcens_hor_traadv_cen2   4       from    sa                      1  i    j+1  k    t-1
457ctin    zcens_hor_traadv_cen2   5       from    sa                      1  i+1  j    k    t-1
458
459ctin    ta_hor_traadv_cen2      1       from    ta_traqsr               1  i    j    k    t
460ctin    ta_hor_traadv_cen2      2       from    zcent_hor_traadv_cen2   1  i-1  j    k    t
461ctin    ta_hor_traadv_cen2      3       from    zcent_hor_traadv_cen2   1  i    j    k    t
462ctin    ta_hor_traadv_cen2      4       from    zcent_hor_traadv_cen2   2  i    j-1  k    t
463ctin    ta_hor_traadv_cen2      5       from    zcent_hor_traadv_cen2   2  i    j    k    t
464
465ctin    sa_hor_traadv_cen2      1       from    ta_sa_trasbc            2  i    j         t
466ctin    sa_hor_traadv_cen2      2       from    zcens_hor_traadv_cen2   1  i-1  j    k    t
467ctin    sa_hor_traadv_cen2      3       from    zcens_hor_traadv_cen2   1  i    j    k    t
468ctin    sa_hor_traadv_cen2      4       from    zcens_hor_traadv_cen2   2  i    j-1  k    t
469ctin    sa_hor_traadv_cen2      5       from    zcens_hor_traadv_cen2   2  i    j    k    t
470
471ctin    zcent_ver_traadv_cen2   1       from    wa                      1  i    j    k    t-1
472ctin    zcent_ver_traadv_cen2   2       from    ta                      1  i    j    k    t-1
473ctin    zcent_ver_traadv_cen2   3       from    ta                      1  i    j    k-1  t-1
474
475ctin    zcens_ver_traadv_cen2   1       from    wa                      1  i    j    k    t-1
476ctin    zcens_ver_traadv_cen2   2       from    sa                      1  i    j    k    t-1
477ctin    zcens_ver_traadv_cen2   3       from    sa                      1  i    j    k-1  t-1
478
479ctin    ta_ver_traadv_cen2      1       from    ta_hor_traadv_cen2      1  i    j    k    t
480ctin    ta_ver_traadv_cen2      2       from    zcent_ver_traadv_cen2   1  i    j    k    t
481ctin    ta_ver_traadv_cen2      3       from    zcent_ver_traadv_cen2   1  i    j    k+1  t
482
483ctin    sa_ver_traadv_cen2      1       from    sa_hor_traadv_cen2      1  i    j    k    t
484ctin    sa_ver_traadv_cen2      2       from    zcens_ver_traadv_cen2   1  i    j    k    t
485ctin    sa_ver_traadv_cen2      3       from    zcens_ver_traadv_cen2   1  i    j    k+1  t
486
487//#---------->traldf_lap
488ctin     ztuv_traldf_lap        1       from    tb                      1  i    j    k    t-1
489ctin     ztuv_traldf_lap        2       from    tb                      1  i+1  j    k    t-1
490ctin     ztuv_traldf_lap        3       from    tb                      1  i    j+1  k    t-1
491
492ctin     zsuv_traldf_lap        1       from    sb                      1  i    j    k    t-1
493ctin     zsuv_traldf_lap        2       from    sb                      1  i+1  j    k    t-1
494ctin     zsuv_traldf_lap        3       from    sb                      1  i    j+1  k    t-1
495
496ctin     ta_traldf_lap          1       from    ta_ver_traadv_cen2      1  i    j    k    t
497ctin     ta_traldf_lap          2       from    ztuv_traldf_lap         1  i    j    k    t
498ctin     ta_traldf_lap          3       from    ztuv_traldf_lap         1  i-1  j    k    t
499ctin     ta_traldf_lap          4       from    ztuv_traldf_lap         2  i    j    k    t
500ctin     ta_traldf_lap          5       from    ztuv_traldf_lap         2  i    j-1  k    t
501
502ctin     sa_traldf_lap          1       from    sa_ver_traadv_cen2      1  i    j    k    t
503ctin     sa_traldf_lap          2       from    zsuv_traldf_lap         1  i    j    k    t
504ctin     sa_traldf_lap          3       from    zsuv_traldf_lap         1  i-1  j    k    t
505ctin     sa_traldf_lap          4       from    zsuv_traldf_lap         2  i    j    k    t
506ctin     sa_traldf_lap          5       from    zsuv_traldf_lap         2  i    j-1  k    t
507
508//#---------->trazdf_imp
509ctin     zwisd_trazdf_imp       1       from    zdf_avt_avmu_avmv       1  i    j    k    t
510ctin     zwisd_trazdf_imp       2       from    zdf_avt_avmu_avmv       1  i    j    k+1  t
511
512ctin     zrhs_trazdf_imp        1       from    ta_traldf_lap           1  i    j    k    t
513ctin     zrhs_trazdf_imp        2       from    tb                      1  i    j    k    t-1
514
515ctin     zrhs_sa_trazdf_imp     1       from    sa_traldf_lap           1  i    j    k    t
516ctin     zrhs_sa_trazdf_imp     2       from    sb                      1  i    j    k    t-1
517
518ctin     zwt_trazdf_imp         1       from    zwisd_trazdf_imp        1  i    j    k    t
519ctin     zwt_trazdf_imp         2       from    zwisd_trazdf_imp        2  i    j    k-1  t
520ctin     zwt_trazdf_imp         3       from    zwisd_trazdf_imp        3  i    j    k    t
521ctin     zwt_trazdf_imp         4       from    zwt_trazdf_imp          1  i    j    k-1  t
522
523ctin     ta_de_trazdf_imp       1       from    zwisd_trazdf_imp        1  i    j    k    t
524ctin     ta_de_trazdf_imp       2       from    ta_de_trazdf_imp        1  i    j    k-1  t
525ctin     ta_de_trazdf_imp       3       from    zrhs_trazdf_imp         1  i    j    k    t
526ctin     ta_de_trazdf_imp       4       from    zwt_trazdf_imp          1  i    j    k-1  t
527
528ctin     ta                     1       from    zwisd_trazdf_imp        2  i    j    k    t
529ctin     ta                     2       from    ta                      1  i    j    k+1  t
530ctin     ta                     3       from    ta_de_trazdf_imp        1  i    j    k    t
531ctin     ta                     4       from    zwt_trazdf_imp          1  i    j    k    t
532ctin     ta                     5       from    ta_c                    1  i    j    k
533
534ctin     sa_de_trazdf_imp       1       from    zwisd_trazdf_imp        1  i    j    k    t
535ctin     sa_de_trazdf_imp       2       from    sa_de_trazdf_imp        1  i    j    k-1  t
536ctin     sa_de_trazdf_imp       3       from    zrhs_sa_trazdf_imp      1  i    j    k    t
537ctin     sa_de_trazdf_imp       4       from    zwt_trazdf_imp          1  i    j    k-1  t
538
539ctin     sa                     1       from    zwisd_trazdf_imp        2  i    j    k    t
540ctin     sa                     2       from    sa              1  i    j    k+1  t
541ctin     sa                     3       from    sa_de_trazdf_imp        1  i    j    k    t
542ctin     sa                     4       from    zwt_trazdf_imp          1  i    j    k    t
543ctin     sa                     5       from    sa_c                    1  i    j    k
544
545//#---------->tra_nxt
546ctin     tb                     1       from    tb                      1  i    j    k    t-1
547ctin     tb                     2       from    ta                      1  i    j    k    t-1
548ctin     tb                     3       from    ta                      1  i    j    k    t
549ctin     tb                     4       from    ta_c                    1  i    j    k
550
551ctin     sb                     1       from    sb                      1  i    j    k    t-1
552ctin     sb                     2       from    sa                      1  i    j    k    t-1
553ctin     sb                     3       from    sa                      1  i    j    k    t
554ctin     sb                     4       from    sa_c                    1  i    j    k
555
556//#---------->eos
557ctin     rhd                    1       from    tb                      1  i    j    k    t
558ctin     rhd                    2       from    sb                      1  i    j    k    t
559
560ctin     rhop                   1       from    rhd                     1  i    j    k    t
561
562
563//#---------->dynadv_cen2
564ctin    hmf_TF_dynadv_cen2      1       from    ua                      1  i    j    k    t-1
565ctin    hmf_TF_dynadv_cen2      2       from    ua                      1  i+1  j    k    t-1
566ctin    hmf_TF_dynadv_cen2      3       from    ua                      1  i    j+1  k    t-1
567ctin    hmf_TF_dynadv_cen2      4       from    va                      1  i    j    k    t-1
568ctin    hmf_TF_dynadv_cen2      5       from    va                      1  i+1  j    k    t-1
569ctin    hmf_TF_dynadv_cen2      6       from    va                      1  i    j+1  k    t-1
570
571ctin    zua_dhmf_dynadv_cen2    1       from    hmf_TF_dynadv_cen2      1  i    j    k    t
572ctin    zua_dhmf_dynadv_cen2    2       from    hmf_TF_dynadv_cen2      1  i-1  j    k    t
573ctin    zua_dhmf_dynadv_cen2    3       from    hmf_TF_dynadv_cen2      2  i    j    k    t
574ctin    zua_dhmf_dynadv_cen2    4       from    hmf_TF_dynadv_cen2      2  i    j-1  k    t
575
576ctin    zva_dhmf_dynadv_cen2    1       from    hmf_TF_dynadv_cen2      3  i    j    k    t
577ctin    zva_dhmf_dynadv_cen2    2       from    hmf_TF_dynadv_cen2      3  i-1  j    k    t
578ctin    zva_dhmf_dynadv_cen2    3       from    hmf_TF_dynadv_cen2      4  i    j    k    t
579ctin    zva_dhmf_dynadv_cen2    4       from    hmf_TF_dynadv_cen2      4  i    j-1  k    t
580
581ctin    zfuv_UW_dynadv_cen2     1       from    wa                      1  i    j    k    t-1
582ctin    zfuv_UW_dynadv_cen2     2       from    wa                      1  i+1  j    k    t-1
583ctin    zfuv_UW_dynadv_cen2     3       from    wa                      1  i    j+1  k    t-1
584ctin    zfuv_UW_dynadv_cen2     4       from    ua                      1  i    j    k    t-1   
585ctin    zfuv_UW_dynadv_cen2     5       from    ua                      1  i    j    k-1  t-1
586ctin    zfuv_UW_dynadv_cen2     6       from    va                      1  i    j    k    t-1   
587ctin    zfuv_UW_dynadv_cen2     7       from    va                      1  i    j    k-1  t-1
588
589ctin    ua_dynadv_cen2          1       from    zfuv_UW_dynadv_cen2     1  i    j    k    t
590ctin    ua_dynadv_cen2          2       from    zfuv_UW_dynadv_cen2     1  i    j    k+1  t
591ctin    ua_dynadv_cen2          3       from    zua_dhmf_dynadv_cen2    1  i    j    k    t
592
593ctin    va_dynadv_cen2          1       from    zfuv_UW_dynadv_cen2     2  i    j    k    t
594ctin    va_dynadv_cen2          2       from    zfuv_UW_dynadv_cen2     2  i    j    k+1  t
595ctin    va_dynadv_cen2          3       from    zva_dhmf_dynadv_cen2    1  i    j    k    t
596
597//#---------->vor_ene
598ctin    zwxyz_vor_ene   1       from    ua                      1  i    j    k    t-1
599ctin    zwxyz_vor_ene   2       from    ua                      1  i    j+1  k    t-1
600ctin    zwxyz_vor_ene   3       from    va                      1  i    j    k    t-1
601ctin    zwxyz_vor_ene   4       from    va                      1  i+1  j    k    t-1
602
603ctin    ua_vor_ene      1       from    ua_dynadv_cen2          1  i    j    k    t
604ctin    ua_vor_ene      2       from    zwxyz_vor_ene           3  i    j-1  k    t
605ctin    ua_vor_ene      3       from    zwxyz_vor_ene           3  i    j    k    t
606ctin    ua_vor_ene      4       from    zwxyz_vor_ene           2  i    j-1  k    t
607ctin    ua_vor_ene      5       from    zwxyz_vor_ene           2  i    j    k    t
608ctin    ua_vor_ene      6       from    zwxyz_vor_ene           2  i+1  j-1  k    t
609ctin    ua_vor_ene      7       from    zwxyz_vor_ene           2  i+1  j    k    t
610
611ctin    va_vor_ene      1       from    va_dynadv_cen2          1  i    j    k    t
612ctin    va_vor_ene      2       from    zwxyz_vor_ene           3  i-1  j    k    t
613ctin    va_vor_ene      3       from    zwxyz_vor_ene           3  i    j    k    t
614ctin    va_vor_ene      4       from    zwxyz_vor_ene           1  i-1  j    k    t
615ctin    va_vor_ene      5       from    zwxyz_vor_ene           1  i-1  j+1  k    t
616ctin    va_vor_ene      6       from    zwxyz_vor_ene           1  i    j    k    t
617ctin    va_vor_ene      7       from    zwxyz_vor_ene           1  i    j+1  k    t
618
619//#---------->dyn_ldf_lap
620ctin    ua_dyn_ldf_lap  1       from    ua_vor_ene              1  i    j    k    t
621ctin    ua_dyn_ldf_lap  2       from    rotn                    1  i    j-1  k    t-2
622ctin    ua_dyn_ldf_lap  3       from    rotn                    1  i    j    k    t-2
623ctin    ua_dyn_ldf_lap  4       from    hdivn                   1  i    j    k    t-2
624ctin    ua_dyn_ldf_lap  5       from    hdivn                   1  i+1  j    k    t-2
625
626ctin    va_dyn_ldf_lap  1       from    va_vor_ene              1  i    j    k    t
627ctin    va_dyn_ldf_lap  2       from    rotn                    1  i-1  j    k    t-2
628ctin    va_dyn_ldf_lap  3       from    rotn                    1  i    j    k    t-2
629ctin    va_dyn_ldf_lap  4       from    hdivn                   1  i    j    k    t-2
630ctin    va_dyn_ldf_lap  5       from    hdivn                   1  i    j+1  k    t-2
631
632//#---------->dyn__hpg_zco
633ctin     zhpij_dyn_hpg_zco      1       from    rhd                     1  i+1  j    k    t
634ctin     zhpij_dyn_hpg_zco      2       from    rhd                     1  i    j+1  k    t
635ctin     zhpij_dyn_hpg_zco      3       from    rhd                     1  i    j    k    t
636ctin     zhpij_dyn_hpg_zco      4       from    rhd                     1  i+1  j    k-1  t
637ctin     zhpij_dyn_hpg_zco      5       from    rhd                     1  i    j+1  k-1  t
638ctin     zhpij_dyn_hpg_zco      6       from    rhd                     1  i    j    k-1  t
639ctin     zhpij_dyn_hpg_zco      7       from    zhpij_dyn_hpg_zco       1  i    j    k-1  t
640ctin     zhpij_dyn_hpg_zco      8       from    zhpij_dyn_hpg_zco       2  i    j    k-1  t
641
642ctin     ua_dyn_hpg_zco         1       from    ua_dyn_ldf_lap          1  i    j    k    t
643ctin     ua_dyn_hpg_zco         2       from    zhpij_dyn_hpg_zco       1  i    j    k    t
644
645ctin     va_dyn_hpg_zco         1       from    va_dyn_ldf_lap          1  i    j    k    t
646ctin     va_dyn_hpg_zco         2       from    zhpij_dyn_hpg_zco       2  i    j    k    t
647
648//#---------->dynzdf_imp
649ctin     zwisd_ua_dynzdf_imp    1       from    zdf_avt_avmu_avmv       2  i    j    k    t
650ctin     zwisd_ua_dynzdf_imp    2       from    zdf_avt_avmu_avmv       2  i    j    k+1  t
651
652ctin     zwisd_va_dynzdf_imp    1       from    zdf_avt_avmu_avmv       3  i    j    k    t
653ctin     zwisd_va_dynzdf_imp    2       from    zdf_avt_avmu_avmv       3  i    j    k+1  t
654
655ctin     zrhs_ua_dynzdf_imp     1       from    ua_dyn_hpg_zco          1  i    j    k    t
656ctin     zrhs_ua_dynzdf_imp     2       from    ub                      1  i    j    k    t-1
657ctin     zrhs_ua_dynzdf_imp     3       from    sbcgyre_utau_vtau       1  i    j         t
658
659ctin     zrhs_va_dynzdf_imp     1       from    va_dyn_hpg_zco          1  i    j    k    t
660ctin     zrhs_va_dynzdf_imp     2       from    vb                      1  i    j    k    t-1
661ctin     zrhs_va_dynzdf_imp     3       from    sbcgyre_utau_vtau       2  i    j         t
662
663ctin     zwt_ua_dynzdf_imp      1       from    zwisd_ua_dynzdf_imp     1  i    j    k    t
664ctin     zwt_ua_dynzdf_imp      2       from    zwisd_ua_dynzdf_imp     2  i    j    k-1  t
665ctin     zwt_ua_dynzdf_imp      3       from    zwisd_ua_dynzdf_imp     3  i    j    k    t
666ctin     zwt_ua_dynzdf_imp      4       from    zwt_ua_dynzdf_imp       1  i    j    k-1  t
667
668ctin     zwt_va_dynzdf_imp      1       from    zwisd_va_dynzdf_imp     1  i    j    k    t
669ctin     zwt_va_dynzdf_imp      2       from    zwisd_va_dynzdf_imp     2  i    j    k-1  t
670ctin     zwt_va_dynzdf_imp      3       from    zwisd_va_dynzdf_imp     3  i    j    k    t
671ctin     zwt_va_dynzdf_imp      4       from    zwt_va_dynzdf_imp       1  i    j    k-1  t
672
673ctin     ua_de_dynzdf_imp       1       from    zwisd_ua_dynzdf_imp     1  i    j    k    t
674ctin     ua_de_dynzdf_imp       2       from    ua_de_dynzdf_imp        1  i    j    k-1  t
675ctin     ua_de_dynzdf_imp       3       from    zrhs_ua_dynzdf_imp      1  i    j    k    t
676ctin     ua_de_dynzdf_imp       4       from    zwt_ua_dynzdf_imp       1  i    j    k-1  t
677
678ctin     ua_dynzdf_imp          1       from    zwisd_ua_dynzdf_imp     2  i    j    k    t
679ctin     ua_dynzdf_imp          2       from    ua_dynzdf_imp           1  i    j    k+1  t
680ctin     ua_dynzdf_imp          3       from    ua_de_dynzdf_imp        1  i    j    k    t
681ctin     ua_dynzdf_imp          4       from    zwt_ua_dynzdf_imp       1  i    j    k    t
682
683ctin     va_de_dynzdf_imp       1       from    zwisd_va_dynzdf_imp     1  i    j    k    t
684ctin     va_de_dynzdf_imp       2       from    va_de_dynzdf_imp        1  i    j    k-1  t
685ctin     va_de_dynzdf_imp       3       from    zrhs_va_dynzdf_imp      1  i    j    k    t
686ctin     va_de_dynzdf_imp       4       from    zwt_va_dynzdf_imp       1  i    j    k-1  t
687
688ctin     va_dynzdf_imp          1       from    zwisd_va_dynzdf_imp     2  i    j    k    t
689ctin     va_dynzdf_imp          2       from    va_dynzdf_imp           1  i    j    k+1  t
690ctin     va_dynzdf_imp          3       from    va_de_dynzdf_imp        1  i    j    k    t
691ctin     va_dynzdf_imp          4       from    zwt_va_dynzdf_imp       1  i    j    k    t
692
693ctin     ua_norm_dynzdf         1       from    ua_dynzdf_imp           1  i    j    k    t
694ctin     ua_norm_dynzdf         2       from    ub                      1  i    j    k    t-1
695
696ctin     va_norm_dynzdf         1       from    va_dynzdf_imp           1  i    j    k    t
697ctin     va_norm_dynzdf         2       from    vb                      1  i    j    k    t-1
698
699//#---------->ddynspg_flt
700ctin     spguv_now_dynspg       1       from    sshn                    1  i    j         t-1
701ctin     spguv_now_dynspg       2       from    sshn                    1  i    j+1       t-1
702ctin     spguv_now_dynspg       3       from    sshn                    1  i+1  j         t-1
703
704ctin     ua_1_dynspg_flt        1       from    ua_norm_dynzdf          1  i    j    k    t
705ctin     ua_1_dynspg_flt        2       from    ub                      1  i    j    k    t-1
706ctin     ua_1_dynspg_flt        3       from    spguv_now_dynspg        1  i    j         t
707
708ctin     va_1_dynspg_flt        1       from    va_norm_dynzdf          1  i    j    k    t
709ctin     va_1_dynspg_flt        2       from    vb                      1  i    j    k    t-1
710ctin     va_1_dynspg_flt        3       from    spguv_now_dynspg        2  i    j         t
711
712ctin     sum_spgu_dynspg_flt    1..NZ   from    ua_1_dynspg_flt         1  i    j   1..NZ t
713ctin     sum_spgv_dynspg_flt    1..NZ   from    va_1_dynspg_flt         1  i    j   1..NZ t
714
715ctin     gcb_dynspg_flt         1       from    sum_spgu_dynspg_flt     1  i    j         t
716ctin     gcb_dynspg_flt         2       from    sum_spgu_dynspg_flt     1  i-1  j         t
717ctin     gcb_dynspg_flt         3       from    sum_spgv_dynspg_flt     1  i    j         t
718ctin     gcb_dynspg_flt         4       from    sum_spgv_dynspg_flt     1  i    j-1       t
719
720ctin     gcx_dynspg_flt         1       from    gcx2                    1  i    j         t-1
721ctin     gcx_dynspg_flt         2       from    gcx2                    1  i    j         t-2
722
723ctin     spguv_dynspg_flt       1       from    gcx2                    1  i+1  j         t
724ctin     spguv_dynspg_flt       2       from    gcx2                    1  i    j         t
725ctin     spguv_dynspg_flt       3       from    gcx2                    1  i    j+1       t
726
727ctin     ua                     1       from    ua_1_dynspg_flt         1  i    j    k    t
728ctin     ua                     2       from    spguv_dynspg_flt        1  i    j         t
729ctin     ua                     3       from    ua_c                    1  i    j    k
730
731ctin     va                     1       from    va_1_dynspg_flt         1  i    j    k    t
732ctin     va                     2       from    spguv_dynspg_flt        2  i    j         t
733ctin     va                     3       from    va_c                    1  i    j    k
734
735ctin     sshn                   1       from    sshb                    1  i    j         t-1
736ctin     sshn                   2       from    wa                      1  i    j    1    t-1
737ctin     sshn                   3       from    sbcgyre_emp             1  i    j         t
738ctin     sshn                   4       from    sshn_c                  1  i    j         
739
740ctin     sshb                   1       from    sshb                    1  i    j         t-1
741ctin     sshb                   2       from    sshn                    1  i    j         t-1
742ctin     sshb                   3       from    sshn                    1  i    j         t
743ctin     sshb                   4       from    sshn_c                  1  i    j         
744
745#ifndef SOLSORYAO
746//############## Ajout de ctin "virtuels" ##############
747ctin     solsor_dynspg_flt      1..9    from    gcx_dynspg_flt          1 i%~1 j%~1       t
748ctin     solsor_dynspg_flt      10..18  from    gcb_dynspg_flt          1 i%~1 j%~1       t
749ctin     solsor_dynspg_flt      19      from    solsor_dynspg_flt       1 i-1  j-1       t
750ctin     gcx2                   1       from    solsor_dynspg_flt       1 i    j          t
751#endif
752
753#ifdef SOLSORYAO
754ctin solsor_flag                1       from    solsor_gx2_x_r          2 i    j   k    t
755ctin solsor_flag                2       from    solsor_flag             2 NX   NY  k-1  t
756ctin solsor_flag                3       from    solsor_flag             1 i-1  NY  k    t
757ctin solsor_flag                4       from    solsor_flag             1 i    j-1 k    t
758
759ctin solsor_gx1_x_r             1       from    gcx_dynspg_flt          1 i    j        t
760ctin solsor_gx1_x_r             2       from    gcb_dynspg_flt          1 i    j        t
761ctin solsor_gx1_x_r             3       from    solsor_gx2_x_r          1 i    j-1   k-1  t
762ctin solsor_gx1_x_r             4       from    solsor_gx2_x_r          1 i-1  j     k-1  t
763ctin solsor_gx1_x_r             5       from    solsor_gx2_x_r          1 i+1  j     k-1  t
764ctin solsor_gx1_x_r             6       from    solsor_gx2_x_r          1 i    j+1   k-1  t
765ctin solsor_gx1_x_r             7       from    solsor_gx2_x_r          1 i    j     k-1  t
766ctin solsor_gx1_x_r             8       from    solsor_flag             2 NX   NY    k-1  t
767
768ctin solsor_gx2_x_r             1       from    gcx_dynspg_flt          1 i    j        t
769ctin solsor_gx2_x_r             2       from    gcb_dynspg_flt          1 i    j        t
770ctin solsor_gx2_x_r             3       from    solsor_gx1_x_r          1 i    j-1   k  t
771ctin solsor_gx2_x_r             4       from    solsor_gx1_x_r          1 i-1  j     k  t
772ctin solsor_gx2_x_r             5       from    solsor_gx1_x_r          1 i+1  j     k  t
773ctin solsor_gx2_x_r             6       from    solsor_gx1_x_r          1 i    j+1   k  t
774ctin solsor_gx2_x_r             7       from    solsor_gx1_x_r          1 i    j     k  t
775ctin solsor_gx2_x_r             8       from    solsor_flag             2 NX   NY    k-1 t
776ctin solsor_gx2_x_r             9       from    solsor_gx1_x_r          2 i    j     k  t
777
778ctin gcx2                       1       from    solsor_gx2_x_r          1 i    j     NMAX  t
779#endif
780
781//#---------->dyn_nxt
782ctin    ub              1       from    ub                      1  i    j    k    t-1
783ctin    ub              2       from    ua                      1  i    j    k    t-1
784ctin    ub              3       from    ua                      1  i    j    k    t
785ctin    ub              4       from    ua_c                    1  i    j    k
786
787ctin    vb              1       from    vb                      1  i    j    k    t-1
788ctin    vb              2       from    va                      1  i    j    k    t-1
789ctin    vb              3       from    va                      1  i    j    k    t
790ctin    vb              4       from    va_c                    1  i    j    k
791
792//#---------->divcur
793ctin     hdivn                  1       from    ua                      1  i    j    k    t
794ctin     hdivn                  2       from    ua                      1  i-1  j    k    t
795ctin     hdivn                  3       from    va                      1  i    j    k    t
796ctin     hdivn                  4       from    va                      1  i    j-1  k    t
797
798ctin     rotn                   1       from    va                      1  i+1  j    k    t
799ctin     rotn                   2       from    va                      1  i    j    k    t
800ctin     rotn                   3       from    ua                      1  i    j+1  k    t
801ctin     rotn                   4       from    ua                      1  i    j    k    t
802
803//#---------->wzv
804ctin     wa                     1       from    wa                      1  i    j    k+1  t
805ctin     wa                     2       from    hdivn                   1  i    j    k    t
806//#---------->
807
808#ifdef OPTIMORDER
809
810//#---------->sbcgyre + bn2_rn2 + zdf + trasbc + traqsr + traadv +
811//#      traldf + trazdf + tra_nxt + eos + dynadv_cen2 + vor_ene
812//#      +dyn_ldf + dyn__hpg_zco +dynzdf_imp(-> gcx_dynspg_flt)  //
813
814
815order modinspace S3dt
816      order YA1 YA2
817            sbcgyre_qsr_qns sbcgyre_emp1
818            spguv_now_dynspg
819            gcx_dynspg_flt
820            order YA3
821                  bn2_rn2 zcent_hor_traadv_cen2 zcens_hor_traadv_cen2
822                  zcent_ver_traadv_cen2 zcens_ver_traadv_cen2
823                  ztuv_traldf_lap zsuv_traldf_lap
824                  hmf_TF_dynadv_cen2 zfuv_UW_dynadv_cen2
825            forder
826      forder
827
828       order YA3
829             order YA1 YA2
830                   zua_dhmf_dynadv_cen2 zva_dhmf_dynadv_cen2 zwxyz_vor_ene
831             forder
832       forder
833
834      //#NO PARALLEL
835      order YA2 YA1
836            sbcgyre_zsumemp_zsurf
837      forder
838      order YA1 YA2
839             order YB3
840                  zdf_avt_avmu_avmv
841                  zwisd_trazdf_imp
842                  zwisd_ua_dynzdf_imp zwisd_va_dynzdf_imp
843             forder
844             sbcgyre_emp sbcgyre_emps sbcgyre_utau_vtau
845             zdfmxl_hmld zdfmxl_nmln_hmlp_hmlpt ta_sa_trasbc
846             order YB3
847                  ta_traqsr
848                  ua_dynadv_cen2 va_dynadv_cen2
849                  ua_vor_ene    va_vor_ene
850                  ua_dyn_ldf_lap va_dyn_ldf_lap
851                  ta_hor_traadv_cen2 sa_hor_traadv_cen2
852                  ta_ver_traadv_cen2 sa_ver_traadv_cen2
853                  ta_traldf_lap sa_traldf_lap
854                  zrhs_trazdf_imp zrhs_sa_trazdf_imp
855             forder
856             order YA3
857                   zwt_trazdf_imp ta_de_trazdf_imp sa_de_trazdf_imp
858                   zwt_ua_dynzdf_imp zwt_va_dynzdf_imp
859             forder
860             order YB3
861                   ta sa tb sb rhd rhop
862             forder         
863      forder
864      order YA1 YA2
865            order YA3
866                  zhpij_dyn_hpg_zco
867                  ua_dyn_hpg_zco va_dyn_hpg_zco
868                  zrhs_ua_dynzdf_imp zrhs_va_dynzdf_imp
869                  ua_de_dynzdf_imp va_de_dynzdf_imp
870            forder
871            order YB3
872                  ua_dynzdf_imp va_dynzdf_imp
873                  ua_norm_dynzdf va_norm_dynzdf
874                  ua_1_dynspg_flt va_1_dynspg_flt
875            forder
876                  sum_spgu_dynspg_flt sum_spgv_dynspg_flt
877     forder       
878
879     order YA1 YA2
880            sbcgyre_wndm
881            gcb_dynspg_flt
882
883     forder
884#ifdef SOLSORYAO
885forder
886#endif
887
888#ifndef SOLSORYAO
889order YA1 YA2
890      solsor_dynspg_flt
891forder
892#endif
893
894#ifdef SOLSORYAO
895order modinspace Ssolsor
896      order YA3
897            order YA2 YA1
898                  solsor_gx1_x_r
899            forder
900
901            order YA2 YA1
902                  solsor_gx2_x_r
903            forder
904
905            order YA1 YA2
906                  solsor_flag
907            forder
908      forder
909forder
910#endif
911
912#ifdef SOLSORYAO
913order modinspace S3dt_b
914#endif
915      order YA2 YA1
916            gcx2
917            sshn sshb
918      forder
919      order YA2 YA1
920            spguv_dynspg_flt
921                order YA3
922                      ua va
923                      ub vb
924                forder
925        forder
926
927//      #---------->divcur
928              order YA3 YA2 YA1
929                    hdivn rotn
930              forder
931//      #---------->wzv
932              order YA2 YA1 YB3
933                    wa
934 
935     forder
936
937
938forder
939
940#endif
941
942#ifdef FILTER
943// calcul du filtre
944#ifndef FILZNOL
945order modinspace S3dtlf
946    order YA3 YA2 YA1
947          dta_lfexp
948    forder
949forder
950#endif
951#ifndef FILLNOZ
952order modinspace S3dtzf
953#ifdef FZIMP
954    order YA2 YA1
955      order YA3
956          dta_zfimp_t
957      forder
958      order YB3
959          dta_zfimp
960      forder
961    forder
962#endif
963#ifndef FZIMP
964    order YA3 YA2 YA1
965          dta_zfexp
966    forder
967#endif
968forder
969#endif
970
971order modinspace S3d
972       order YA3 YA2 YA1
973            ta_c
974      forder
975forder
976
977#endif   
978
979#ifndef OPTIMORDER
980 
981order modinspace S3dt
982//#---------->sbcgyre
983      order YA2 YA1
984            sbcgyre_qsr_qns sbcgyre_emp1 sbcgyre_zsumemp_zsurf
985      forder
986      order YA2 YA1
987            sbcgyre_emp sbcgyre_emps sbcgyre_utau_vtau sbcgyre_wndm
988      forder
989
990
991//#---------->bn2
992      order YA3 YA2 YA1
993            bn2_rn2
994      forder
995
996//#---------->zdf
997      order YA3 YA2 YA1
998            zdf_avt_avmu_avmv
999      forder
1000      order YA2 YA1
1001            zdfmxl_hmld zdfmxl_nmln_hmlp_hmlpt
1002      forder
1003//#---------->trasbc
1004      order YA2 YA1
1005            ta_sa_trasbc
1006      forder
1007//#---------->traqsr
1008      order YA3 YA2 YA1
1009            ta_traqsr
1010      forder
1011//#------> traadv_cen2
1012      order YA3 
1013            order YA2 YA1
1014                  zcent_hor_traadv_cen2 zcens_hor_traadv_cen2
1015            forder
1016            order YA2 YA1
1017                  ta_hor_traadv_cen2   sa_hor_traadv_cen2
1018            forder
1019      forder
1020
1021      order YA3 YA2 YA1
1022            zcent_ver_traadv_cen2 zcens_ver_traadv_cen2
1023      forder
1024      order YA3 YA2 YA1
1025            ta_ver_traadv_cen2 sa_ver_traadv_cen2
1026      forder
1027
1028//#------> traldf_lap
1029      order YA3 YA2 YA1
1030            ztuv_traldf_lap zsuv_traldf_lap
1031            ta_traldf_lap sa_traldf_lap
1032      forder
1033//#------> trazdf_imp
1034      order YA3 YA2 YA1
1035            zwisd_trazdf_imp zrhs_trazdf_imp zrhs_sa_trazdf_imp
1036      forder
1037      order YA3 YA2 YA1
1038            zwt_trazdf_imp ta_de_trazdf_imp  sa_de_trazdf_imp
1039      forder
1040      order YB3 YA2 YA1
1041            ta sa
1042      forder
1043//#---------->tra_nxt
1044      order YA3 YA2 YA1
1045            tb sb
1046      forder
1047//#---------->eos
1048      order YA3 YA2 YA1
1049            rhd rhop
1050      forder
1051//#------> dynadv_cen2
1052         order YA3 
1053              order YA2 YA1
1054                    hmf_TF_dynadv_cen2
1055              forder
1056              order YA2 YA1
1057                   zua_dhmf_dynadv_cen2 zva_dhmf_dynadv_cen2
1058              forder
1059          forder
1060
1061           order YA3 YA2 YA1
1062                 zfuv_UW_dynadv_cen2
1063           forder
1064           order YA3 YA2 YA1
1065                 ua_dynadv_cen2 va_dynadv_cen2
1066           forder
1067//#------> vor_ene && dyn_ldf_lap
1068         order YA3 
1069              order YA2 YA1
1070                    zwxyz_vor_ene
1071              forder
1072              order YA2 YA1
1073                    ua_vor_ene va_vor_ene
1074                    ua_dyn_ldf_lap va_dyn_ldf_lap
1075              forder
1076         forder
1077//#---------->dyn__hpg_zco
1078         order YA3 YA2 YA1
1079               zhpij_dyn_hpg_zco ua_dyn_hpg_zco va_dyn_hpg_zco
1080         forder
1081//#---------->dynzdf_imp
1082      order YA3 YA2 YA1
1083            zwisd_ua_dynzdf_imp zwisd_va_dynzdf_imp
1084            zrhs_ua_dynzdf_imp zrhs_va_dynzdf_imp
1085      forder
1086      order YA3 YA2 YA1
1087            zwt_ua_dynzdf_imp ua_de_dynzdf_imp
1088            zwt_va_dynzdf_imp va_de_dynzdf_imp
1089      forder
1090      order YB3 YA2 YA1
1091            ua_dynzdf_imp va_dynzdf_imp
1092      forder
1093      order YA3 YA2 YA1
1094            ua_norm_dynzdf va_norm_dynzdf
1095      forder
1096//#---------->dynspg_flt
1097      order YA2 YA1
1098            spguv_now_dynspg
1099      forder
1100      order YA3 YA2 YA1
1101            ua_1_dynspg_flt va_1_dynspg_flt
1102      forder
1103      order YA2 YA1
1104            sum_spgu_dynspg_flt sum_spgv_dynspg_flt
1105      forder
1106      order YA2 YA1
1107            gcb_dynspg_flt gcx_dynspg_flt
1108      forder
1109
1110#ifdef SOLSORYAO
1111forder
1112#endif
1113
1114#ifndef SOLSORYAO
1115order YA1 YA2
1116      solsor_dynspg_flt
1117forder
1118#endif
1119
1120#ifdef SOLSORYAO
1121order modinspace Ssolsor
1122      order YA3
1123            order YA2 YA1
1124                  solsor_gx1_x_r
1125            forder
1126
1127            order YA2 YA1
1128                  solsor_gx2_x_r
1129            forder
1130
1131            order YA1 YA2
1132                  solsor_flag
1133            forder
1134      forder
1135forder
1136#endif
1137
1138#ifdef SOLSORYAO
1139order modinspace S3dt_b
1140#endif SOLSORYAO
1141
1142      order YA2 YA1
1143            gcx2
1144      forder
1145      order YA2 YA1
1146            spguv_dynspg_flt
1147            sshn sshb
1148                order YA3
1149                      ua va
1150                forder
1151      forder
1152//      #---------->dyn_nxt
1153              order YA3 YA2 YA1
1154                    ub vb
1155              forder
1156//      #---------->divcur
1157              order YA3 YA2 YA1
1158                    hdivn rotn
1159              forder
1160//      #---------->wzv
1161              order YB3 YA2 YA1
1162                    wa
1163      forder
1164forder
1165#endif
1166
1167
1168
1169#ifdef SOLSORYAO
1170order spaceintraj Tsbd
1171        S3dt Ssolsor S3dt_b
1172forder
1173#endif
1174
1175#ifdef FILTER
1176
1177#ifndef FILZNOL
1178order spaceintraj Tlfil
1179        S3dtlf
1180forder
1181#endif
1182#ifndef FILLNOZ
1183order spaceintraj Tzfil
1184        S3dtzf
1185forder
1186#endif
1187
1188order spaceintraj Tcst
1189        S3d
1190forder
1191
1192#endif
1193
1194#ifndef SOLSORYAO
1195
1196order spaceintraj Tsbd
1197        S3dt
1198forder
1199#endif
1200
1201//#USER FUNCTIONS       ---------------------------------INSERT_FCT
1202insert_fct      xdisplay
1203insert_fct      xcomparYF
1204insert_fct  arg xistate_init
1205insert_fct  arg true_target_in_tab
1206insert_fct  arg xrst_save
1207insert_fct  arg xchangesavemode
1208
1209#ifdef FILTER
1210insert_fct  arg load_eb
1211insert_fct  init_nu
1212#endif
1213insert_fct arg xwriteout
1214insert_fct arg xwritegrad
1215insert_fct arg xinitnc
1216//#insert_fct  arg load_shape_func
1217//#insert_fct  arg load_stdev_pca
1218//#insert_fct  arg load_mean
Note: See TracBrowser for help on using the repository browser.