Changeset 934 for XIOS/trunk/src/test/test_unstruct_complete.f90

Timestamp:

09/22/16 10:58:44 (8 years ago)

Author:

mhnguyen

Message:

Adding new transformation: Compute_connectivity_domain

Test
+) On Curie
+) Test passes

File:

• XIOS/trunk/src/test/test_unstruct_complete.f90 (modified) (4 diffs)

XIOS/trunk/src/test/test_unstruct_complete.f90

@@ -30 +30 @@
   INTEGER,ALLOCATABLE :: i_index(:)
   LOGICAL,ALLOCATABLE :: mask_glo(:),mask(:)
+  INTEGER,ALLOCATABLE :: n_local(:),local_neighbor(:,:)
   DOUBLE PRECISION,ALLOCATABLE :: lon(:),lat(:),field_A_srf(:,:), lonvalue(:) ;
   DOUBLE PRECISION,ALLOCATABLE :: bounds_lon(:,:),bounds_lat(:,:) ;
   INTEGER :: ni,ibegin,iend,nj,jbegin,jend
-  INTEGER :: i,j,l,ts,n
+  INTEGER :: i,j,l,ts,n, nbMax
   INTEGER :: ncell_glo,ncell,ind
   REAL :: ilon,ilat
@@ -164 +165 @@
   ALLOCATE(field_A_srf(ncell,llm))
   ALLOCATE(mask(ncell))
+  ALLOCATE(n_local(ncell))
   ncell=0
   data_n_index=0
@@ -205 +207 @@
   CALL xios_set_domain_attr("domain_srf", lonvalue_1D=lon, latvalue_1D=lat)
   CALL xios_set_domain_attr("domain_srf", nvertex=4, bounds_lon_1D=bounds_lon, bounds_lat_1D=bounds_lat)
+!  CALL xios_set_compute_connectivity_domain_attr("compute", n_neighbor=n_local, local_neighbor=local_neighbor)
 
 
@@ -211 +214 @@
   CALL xios_set_timestep(dtime)
   CALL xios_close_context_definition()
+
+  CALL xios_get_compute_connectivity_domain_attr("compute", n_neighbor_max=nbMax)
+  ALLOCATE(local_neighbor(nbMax,ncell))
+  CALL xios_get_compute_connectivity_domain_attr("compute", n_neighbor=n_local, local_neighbor=local_neighbor)
 
    DO ts=1,24*10