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

Timestamp:

09/22/16 10:59:32 (8 years ago)

Author:

mhnguyen

Message:

Update compute_connectivity_domain with new functions of class CMesh

+) Make use of the function computing local neighbor of class CMesh

Test
+) On Curie
+) Work

File:

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

XIOS/trunk/src/test/test_unstruct_complete.f90

@@ -17 +17 @@
   INTEGER,PARAMETER :: ni_glo=100
   INTEGER,PARAMETER :: nj_glo=100
-  INTEGER,PARAMETER :: llm=5
+  INTEGER,PARAMETER :: llm=1
   DOUBLE PRECISION  :: lval(llm)=1
   TYPE(xios_field) :: field_hdl
   TYPE(xios_fieldgroup) :: fieldgroup_hdl
   TYPE(xios_file) :: file_hdl
+  TYPE(xios_domain) :: domain_hdl
   LOGICAL :: ok
 
@@ -179 +180 @@
       IF (MOD(ind,8)>=0 .AND. MOD(ind,8)<2) THEN
         mask(ncell)=.FALSE.
+!        data_n_index=data_n_index+1
       ELSE
         mask(ncell)=.TRUE.
@@ -215 +217 @@
   CALL xios_close_context_definition()
 
+  CALL xios_field_get_domain("field_A_expand",domain_hdl)
+  CALL xios_get_attr(domain_hdl,ni=ni)
+  PRINT *, "Domain destination ni = ",ni, "Domain source n= ",ncell
   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
+  PRINT *, "Connectivity max = ",nbMax
+
+   DO ts=1,1
      CALL xios_update_calendar(ts)
      CALL xios_send_field("field_A_srf",field_A_compressed)