Changeset 953 for codes/icosagcm/trunk/src/sphere

Timestamp:

07/15/19 12:29:31 (5 years ago)

Author:

adurocher

Message:

trunk : GPU implementation with OpenACC ( merge from glcp.idris.fr )

File:

• codes/icosagcm/trunk/src/sphere/geometry.f90 (modified) (2 diffs)

codes/icosagcm/trunk/src/sphere/geometry.f90

@@ -266 +266 @@
     INTEGER :: nb_it=0
     TYPE(t_domain),POINTER :: d
-    INTEGER :: ind,it,i,j,n,k
-    REAL(rstd) :: x1(3),x2(3)
+    INTEGER :: ind,it,i,j,n
     REAL(rstd) :: vect(3,6)
     REAL(rstd) :: centr(3)
@@ -690 +689 @@
 !    CALL surf_triangle(d%xyz(:,ii_begin,jj_begin),d%xyz(:,ii_begin,jj_end),d%xyz(:,ii_end,jj_begin),S)
  
+    CALL update_device_field(geom%Ai)
+
+    CALL update_device_field(geom%xyz_i)
+    CALL update_device_field(geom%lon_i)
+    CALL update_device_field(geom%lat_i)
+    CALL update_device_field(geom%elon_i)
+    CALL update_device_field(geom%elat_i)
+    CALL update_device_field(geom%centroid)
+
+    CALL update_device_field(geom%xyz_e)
+    CALL update_device_field(geom%lon_e)
+    CALL update_device_field(geom%lat_e)
+    CALL update_device_field(geom%elon_e)
+    CALL update_device_field(geom%elat_e)
+    CALL update_device_field(geom%ep_e)
+    CALL update_device_field(geom%et_e)
+
+    CALL update_device_field(geom%xyz_v)
+    CALL update_device_field(geom%de)
+    CALL update_device_field(geom%le)
+    CALL update_device_field(geom%le_de)
+    CALL update_device_field(geom%bi)
+    CALL update_device_field(geom%Av)
+    CALL update_device_field(geom%S1)
+    CALL update_device_field(geom%S2)
+    CALL update_device_field(geom%Riv)
+    CALL update_device_field(geom%Riv2)
+    CALL update_device_field(geom%ne)
+    CALL update_device_field(geom%Wee)
+    CALL update_device_field(geom%bi)
+    CALL update_device_field(geom%fv)
+
   END SUBROUTINE set_geometry