Changeset 659

Timestamp:

07/28/15 14:42:21 (9 years ago)

Author:

rlacroix

Message:

Fix compilation with GNU compilers.

Location:

XIOS/trunk/src/test

Files:

• test_new_features.f90 (modified) (1 diff)
• test_unstruct_complete.f90 (modified) (1 diff)

XIOS/trunk/src/test/test_new_features.f90

@@ -134 +134 @@
   CALL xios_set_domain_attr("domain_A",lonvalue=RESHAPE(lon,(/ni*nj/)),latvalue=RESHAPE(lat,(/ni*nj/)))
 
-  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", 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_fieldgroup_attr("field_definition",enabled=.TRUE.)

XIOS/trunk/src/test/test_unstruct_complete.f90

@@ -201 +201 @@
   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",data_dim=1, data_ni=data_n_index, data_n_index=data_n_index, data_i_index=data_i_index, type='unstructured')
-  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", 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, &
+                                          data_n_index=data_n_index, data_i_index=data_i_index)
+  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/) ))