source: trunk/src/sinobad.d @ 71

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

can restart from any restart (including kt>0)

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