Changeset 661

Timestamp:

08/03/15 09:23:48 (9 years ago)

Author:

rlacroix

Message:

Fix compilation with GNU compilers.

File:

• XIOS/trunk/src/test/test_remap.f90 (modified) (1 diff)

XIOS/trunk/src/test/test_remap.f90

@@ -112 +112 @@
   CALL xios_set_current_context(ctx_hdl)
 
-  CALL xios_set_domain_attr("src_domain",ni_glo=src_ni_glo, ibegin=src_ibegin, ni=src_ni, type="unstructured")
-  CALL xios_set_domain_attr("src_domain",lonvalue=src_lon,latvalue=src_lat, bounds_lon=src_boundslon, bounds_lat=src_boundslat, nvertex=src_nvertex)
-  CALL xios_set_domain_attr("dst_domain",ni_glo=dst_ni_glo, ibegin=dst_ibegin, ni=dst_ni, type="unstructured")
-  CALL xios_set_domain_attr("dst_domain",lonvalue=dst_lon,latvalue=dst_lat, bounds_lon=dst_boundslon, bounds_lat=dst_boundslat, nvertex=dst_nvertex)
-
+  CALL xios_set_domain_attr("src_domain", ni_glo=src_ni_glo, ibegin=src_ibegin, ni=src_ni, type="unstructured")
+  CALL xios_set_domain_attr("src_domain", lonvalue=src_lon, latvalue=src_lat, &
+                            bounds_lon=src_boundslon, bounds_lat=src_boundslat, nvertex=src_nvertex)
+  CALL xios_set_domain_attr("dst_domain", ni_glo=dst_ni_glo, ibegin=dst_ibegin, ni=dst_ni, type="unstructured")
+  CALL xios_set_domain_attr("dst_domain", lonvalue=dst_lon, latvalue=dst_lat, &
+                            bounds_lon=dst_boundslon, bounds_lat=dst_boundslat, nvertex=dst_nvertex)
+ 
   dtime%second = 3600
   CALL xios_set_timestep(dtime)