1 | //constantes |
---|
2 | //YREAL rdtflo=2*3600; |
---|
3 | YREAL rdtflo=1; |
---|
4 | YREAL ur_dx=0; |
---|
5 | YREAL ur_dy=0; |
---|
6 | YREAL vr_dx=0; |
---|
7 | YREAL vr_dy=0; |
---|
8 | |
---|
9 | //Declaration |
---|
10 | |
---|
11 | void appli_start(int argc, char *argv[]){} |
---|
12 | void before_it(int nit){} |
---|
13 | void cost_function(int pdt){} |
---|
14 | void adjust_target(){} |
---|
15 | void after_it(int nit){ |
---|
16 | |
---|
17 | printf("u_d(9,16)=%f %f %f %f\n",YS1_u_d(9,16),YS1_u_d(10,16),YS1_u_d(10,17),YS1_u_d(9,17)); |
---|
18 | } |
---|
19 | void forward_before(int ctrp){ |
---|
20 | } |
---|
21 | void forward_after(int ctrp){ |
---|
22 | } |
---|
23 | |
---|
24 | void backward_before(int ctrp){ |
---|
25 | } |
---|
26 | |
---|
27 | void backward_after(int ctrp){ |
---|
28 | } |
---|
29 | |
---|
30 | short select_io(int indic, char *nmod, int sortie, int iaxe, |
---|
31 | int jaxe, int kaxe, int pdt, YREAL *val){ |
---|
32 | //if(indic==YIO_LOADSTATE && !strcmp(nmod,"u")) { |
---|
33 | //printf("s=%d t=%d Yi=%d Yj=%d val=%f\n",sortie,pdt,iaxe,jaxe,*val); |
---|
34 | //} |
---|
35 | |
---|
36 | return(1); |
---|
37 | } |
---|
38 | |
---|
39 | //in case we want to see how it s loading the data we do this above |
---|
40 | |
---|
41 | void update_uv(){ |
---|
42 | int j,k; |
---|
43 | for (j=0;j<nlon;j++) |
---|
44 | for (k=0;k<nlat;k++) { |
---|
45 | YS1_u(j,k)+=YS1_u_d(j,k); |
---|
46 | YS1_v(j,k)+=YS1_v_d(j,k); |
---|
47 | } |
---|
48 | } |
---|
49 | //void load_aviso(int argc, char *argv[]){ |
---|
50 | |
---|
51 | // } |
---|