source: altifloat/src/locate_d.h @ 84

Last change on this file since 84 was 84, checked in by leila_ocean, 11 years ago

initial import

File size: 1.2 KB
Line 
1forward(YREAL x, YREAL y)
2{
3        //Yj = longitude
4        //Yk = latitude
5        int j_ll=YS1_xinter(Yi,YTemps);
6        int k_ll=YS5_xinter(Yi,YTemps);
7        if (j_ll==Yj & k_ll==Yk)
8        {
9                //printf("j_ll=%d ; k_ll=%d\n",j_ll,k_ll);
10                YS1_uinter_d(Yi,YTemps)=YS1_u_d(Yj,Yk);//la 1ere sortie du module uinter pour le floater i est la valeur du module u en Yj Yk
11                YS2_uinter_d(Yi,YTemps)=YS1_u_d(Yj+1,Yk);
12                YS3_uinter_d(Yi,YTemps)=YS1_u_d(Yj,Yk+1);
13                YS4_uinter_d(Yi,YTemps)=YS1_u_d(Yj+1,Yk+1);
14                YS5_uinter_d(Yi,YTemps)=YS1_v_d(Yj,Yk);
15                YS6_uinter_d(Yi,YTemps)=YS1_v_d(Yj+1,Yk);
16                YS7_uinter_d(Yi,YTemps)=YS1_v_d(Yj,Yk+1);
17                YS8_uinter_d(Yi,YTemps)=YS1_v_d(Yj+1,Yk+1);
18               
19               
20        }
21}
22
23backward(YREAL x, YREAL y)
24{
25        int j_ll=YS1_xinter(Yi,YTemps);
26        int k_ll=YS5_xinter(Yi,YTemps);
27        if (j_ll==Yj & k_ll==Yk)
28        {
29                YG1_u_d(Yj,Yk)+=YG1_uinter_d(Yi,YTemps);
30                YG1_u_d(Yj+1,Yk)+=YG2_uinter_d(Yi,YTemps);
31                YG1_u_d(Yj,Yk+1)+=YG3_uinter_d(Yi,YTemps);
32                YG1_u_d(Yj+1,Yk+1)+=YG4_uinter_d(Yi,YTemps);
33                YG1_v_d(Yj,Yk)+=YG5_uinter_d(Yi,YTemps);
34                YG1_v_d(Yj+1,Yk)+=YG6_uinter_d(Yi,YTemps);
35                YG1_v_d(Yj,Yk+1)+=YG7_uinter_d(Yi,YTemps);
36                YG1_v_d(Yj+1,Yk+1)+=YG8_uinter_d(Yi,YTemps);
37
38        }
39
40
41//YG1_uinter(Yi,Ytemps)=


YG1_u(Yj,Yk)


42       
43       
44}
Note: See TracBrowser for help on using the repository browser.