Changeset 664 for XIOS/trunk/src/test/test_new_features.f90

Timestamp:

08/24/15 14:53:17 (9 years ago)

Author:

mhnguyen

Message:

Changing some domain attributes

+) Longitude and latitude from now on can be 2 dimension array

Test
+) On Curie
+) test_client, test_complete pass and are correct

File:

• XIOS/trunk/src/test/test_new_features.f90 (modified) (2 diffs)

XIOS/trunk/src/test/test_new_features.f90

@@ -132 +132 @@
   CALL xios_set_domain_attr("domain_A",ni_glo=ni_glo, nj_glo=nj_glo, ibegin=ibegin, ni=ni,jbegin=jbegin,nj=nj)
   CALL xios_set_domain_attr("domain_A",data_dim=2, data_ibegin=-1, data_ni=ni+2, data_jbegin=-2, data_nj=nj+4)
-  CALL xios_set_domain_attr("domain_A",lonvalue=RESHAPE(lon,(/ni*nj/)),latvalue=RESHAPE(lat,(/ni*nj/)))
+  CALL xios_set_domain_attr("domain_A",lonvalue_2D=lon,latvalue_2D=lat)
 
   CALL xios_set_domain_attr("domain_A_transformed", ni_glo=niDomGlo, nj_glo=njDomGlo, &
                                                     ibegin=ibeginDomInterp, ni=niDomInterp, jbegin=jbeginDomInterp, nj=njDomInterp)
-  CALL xios_set_domain_attr("domain_A_transformed", lonvalue=RESHAPE(lontransformed,(/niDomInterp*njDomInterp/)), &
-                                                    latvalue=RESHAPE(lattransformed,(/niDomInterp*njDomInterp/)))
+  CALL xios_set_domain_attr("domain_A_transformed", lonvalue_2D=lontransformed, &
+                                                    latvalue_2D=lattransformed)
 
   CALL xios_set_fieldgroup_attr("field_definition",enabled=.TRUE.)
@@ -172 +172 @@
 
   ni=0 ; lonvalue(:)=0
-  CALL xios_get_domain_attr("domain_A",ni=ni,lonvalue=lonvalue)
+  CALL xios_get_domain_attr("domain_A",ni=ni,lonvalue_1D=lonvalue)
 
 !  print *,"ni",ni