[84] | 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){ |
---|
[86] | 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)); |
---|
[84] | 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 | // } |
---|