Changeset 661


Ignore:
Timestamp:
08/03/15 09:23:48 (6 years ago)
Author:
rlacroix
Message:

Fix compilation with GNU compilers.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • XIOS/trunk/src/test/test_remap.f90

    r660 r661  
    112112  CALL xios_set_current_context(ctx_hdl) 
    113113 
    114   CALL xios_set_domain_attr("src_domain",ni_glo=src_ni_glo, ibegin=src_ibegin, ni=src_ni, type="unstructured") 
    115   CALL xios_set_domain_attr("src_domain",lonvalue=src_lon,latvalue=src_lat, bounds_lon=src_boundslon, bounds_lat=src_boundslat, nvertex=src_nvertex) 
    116   CALL xios_set_domain_attr("dst_domain",ni_glo=dst_ni_glo, ibegin=dst_ibegin, ni=dst_ni, type="unstructured") 
    117   CALL xios_set_domain_attr("dst_domain",lonvalue=dst_lon,latvalue=dst_lat, bounds_lon=dst_boundslon, bounds_lat=dst_boundslat, nvertex=dst_nvertex) 
    118  
     114  CALL xios_set_domain_attr("src_domain", ni_glo=src_ni_glo, ibegin=src_ibegin, ni=src_ni, type="unstructured") 
     115  CALL xios_set_domain_attr("src_domain", lonvalue=src_lon, latvalue=src_lat, & 
     116                            bounds_lon=src_boundslon, bounds_lat=src_boundslat, nvertex=src_nvertex) 
     117  CALL xios_set_domain_attr("dst_domain", ni_glo=dst_ni_glo, ibegin=dst_ibegin, ni=dst_ni, type="unstructured") 
     118  CALL xios_set_domain_attr("dst_domain", lonvalue=dst_lon, latvalue=dst_lat, & 
     119                            bounds_lon=dst_boundslon, bounds_lat=dst_boundslat, nvertex=dst_nvertex) 
     120  
    119121  dtime%second = 3600 
    120122  CALL xios_set_timestep(dtime) 
Note: See TracChangeset for help on using the changeset viewer.