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

Timestamp:

07/30/15 15:18:00 (9 years ago)

Author:

mhnguyen

Message:

Adding interpolation test_remap

+) Add new test case for domain interpolation
+) Resolve circular dependence
+) Add function to read weigh file

Test
+) On Curie
+) test_remap can print out .nc

File:

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

XIOS/trunk/src/test/test_unstruct_complete.f90

@@ -190 +190 @@
     IF (mask(ind)) THEN
       data_n_index=data_n_index+1
-      data_i_index(data_n_index)=ind
+      data_i_index(data_n_index)=ind-1
       field_A_compressed(data_n_index,:)=field_A_srf(ind,:)
     ENDIF
@@ -200 +200 @@
 
   CALL xios_set_axis_attr("axis_srf",size=llm ,value=lval) ;
-!  CALL xios_set_domain_attr("domain_srf",ni_glo=ncell_glo, ni=ncell, ibegin=1, i_index=RESHAPE(i_index,(/ncell,1/) ))
   CALL xios_set_domain_attr("domain_srf", ni_glo=ncell_glo, ni=ncell, ibegin=1, i_index=i_index)
   CALL xios_set_domain_attr("domain_srf", type='unstructured', data_dim=1, data_ni=data_n_index, &
@@ -206 +205 @@
   CALL xios_set_domain_attr("domain_srf", lonvalue=lon, latvalue=lat)
   CALL xios_set_domain_attr("domain_srf", nvertex=4, bounds_lon=bounds_lon, bounds_lat=bounds_lat)
-!  CALL xios_set_domain_attr("domain_srf", mask=RESHAPE(mask,(/ncell,1/) ))
+