source: trunk/src/sinobad.d @ 186

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

bug fixes

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