Changeset 109 for altifloat/src/locate.h

Timestamp:

01/22/14 11:38:27 (10 years ago)

Author:

jbrlod

Message:

add time dimension to u,v fields

File:

• altifloat/src/locate.h (modified) (2 diffs)

altifloat/src/locate.h

@@ -8 +8 @@
         {
         //printf("j_ll=%d ; k_ll=%d\n",j_ll,k_ll);
-                YS1_uinter(Yi,YTemps)=YS1_u(Yj,Yk);//la 1ere sortie du module uinter pour le floater i est la valeur du module u en Yj Yk
-                YS2_uinter(Yi,YTemps)=YS1_u(Yj+1,Yk);
-                YS3_uinter(Yi,YTemps)=YS1_u(Yj,Yk+1);
-                YS4_uinter(Yi,YTemps)=YS1_u(Yj+1,Yk+1);
-                YS5_uinter(Yi,YTemps)=YS1_v(Yj,Yk);
-                YS6_uinter(Yi,YTemps)=YS1_v(Yj+1,Yk);
-                YS7_uinter(Yi,YTemps)=YS1_v(Yj,Yk+1);
-                YS8_uinter(Yi,YTemps)=YS1_v(Yj+1,Yk+1);
+          YS1_uinter(Yi,YTemps)=YS1_u(Yj,Yk,YTemps);//la 1ere sortie du module uinter pour le floater i est la valeur du module u en Yj Yk
+                YS2_uinter(Yi,YTemps)=YS1_u(Yj+1,Yk,YTemps);
+                YS3_uinter(Yi,YTemps)=YS1_u(Yj,Yk+1,YTemps);
+                YS4_uinter(Yi,YTemps)=YS1_u(Yj+1,Yk+1,YTemps);
+                YS5_uinter(Yi,YTemps)=YS1_v(Yj,Yk,YTemps);
+                YS6_uinter(Yi,YTemps)=YS1_v(Yj+1,Yk,YTemps);
+                YS7_uinter(Yi,YTemps)=YS1_v(Yj,Yk+1,YTemps);
+                YS8_uinter(Yi,YTemps)=YS1_v(Yj+1,Yk+1,YTemps);
                 YS1_xinter(Yi,YTemps)=(YREAL)Yj;                
                 YS2_xinter(Yi,YTemps)=(YREAL)Yj+1;              
@@ -34 +34 @@
         if (j_ll==Yj && k_ll==Yk)
         {
-                YG1_u(Yj,Yk)+=YG1_uinter(Yi,YTemps);
-                YG1_u(Yj+1,Yk)+=YG2_uinter(Yi,YTemps);
-                YG1_u(Yj,Yk+1)+=YG3_uinter(Yi,YTemps);
-                YG1_u(Yj+1,Yk+1)+=YG4_uinter(Yi,YTemps);
-                YG1_v(Yj,Yk)+=YG5_uinter(Yi,YTemps);
-                YG1_v(Yj+1,Yk)+=YG6_uinter(Yi,YTemps);
-                YG1_v(Yj,Yk+1)+=YG7_uinter(Yi,YTemps);
-                YG1_v(Yj+1,Yk+1)+=YG8_uinter(Yi,YTemps);
+                YG1_u(Yj,Yk,YTemps)+=YG1_uinter(Yi,YTemps);
+                YG1_u(Yj+1,Yk,YTemps)+=YG2_uinter(Yi,YTemps);
+                YG1_u(Yj,Yk+1,YTemps)+=YG3_uinter(Yi,YTemps);
+                YG1_u(Yj+1,Yk+1,YTemps)+=YG4_uinter(Yi,YTemps);
+                YG1_v(Yj,Yk,YTemps)+=YG5_uinter(Yi,YTemps);
+                YG1_v(Yj+1,Yk,YTemps)+=YG6_uinter(Yi,YTemps);
+                YG1_v(Yj,Yk+1,YTemps)+=YG7_uinter(Yi,YTemps);
+                YG1_v(Yj+1,Yk+1,YTemps)+=YG8_uinter(Yi,YTemps);
 
         }