source: altifloat/src/floater.d @ 118

defval jtlag 21//nombre de pas de temps Delta t/ delta t
defval nlon 87 //nbre de points de grilles en longitude
defval nlat 58 //nbre de points de grilles en latitude
defval nfloat 1 //nbre de flotteurs

hat_name "floater.h"



option o_m1qn3
option o_gradtest
//option  O_EXTOBJ "../object/ncutil.o" //for aviso files

//    name   M upt offt  dt    nbstep
traj T_float M 1    0     1    jtlag //trajectoire pour r 
traj T_euler M 0    0     1    1 //trajectoire pour u et v

space S_float M nfloat    T_float
space S_euler M nlon nlat T_euler
space S_eulerlocate M nfloat nlon nlat T_float

modul r_float space S_float input 4  output 2 tempo cout
modul ur      space S_float input 18 output 2 tempo
modul uinter space S_float noward   output 8 tempo
modul xinter space S_float noward   output 8 tempo

modul u       space S_euler noward   output 1 target //noward veut dire pas de calcul
modul v           space S_euler noward   output 1 target
modul locate  space S_eulerlocate input 2  output 1 tempo

exec disp_modul //afficher les modules lors de la ganeration du code

ctin r_float  1..2   from r_float 1..2 i t-1 // i par default est la premier dimension, ici i=1 floater
ctin r_float  3..4   from ur      1..2 i t    // comme c'est un calcul, il depend pas de la valeur initiale

ctin ur       1..8   from uinter 1..8 i t
ctin ur       9..16  from xinter 1..8 i t
ctin ur       17..18 from r_float 1..2 i t-1

ctin locate   1..2   from r_float 1..2 i t-1

exec disp_ct_in //afficher les connexions

order modinspace S_float
        order YA1
                ur r_float
        forder
forder

order modinspace S_eulerlocate
        order YA1 YA2 YA3
                locate
        forder
forder

order spaceintraj T_float
        S_eulerlocate S_float
forder
 
//insert_fct arg load_aviso