Changeset 659


Ignore:
Timestamp:
07/28/15 14:42:21 (6 years ago)
Author:
rlacroix
Message:

Fix compilation with GNU compilers.

Location:
XIOS/trunk/src/test
Files:
2 edited

Legend:

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

    r657 r659  
    134134  CALL xios_set_domain_attr("domain_A",lonvalue=RESHAPE(lon,(/ni*nj/)),latvalue=RESHAPE(lat,(/ni*nj/))) 
    135135 
    136   CALL xios_set_domain_attr("domain_A_transformed",ni_glo=niDomGlo, nj_glo=njDomGlo, ibegin=ibeginDomInterp, ni=niDomInterp,jbegin=jbeginDomInterp,nj=njDomInterp) 
    137   CALL xios_set_domain_attr("domain_A_transformed",lonvalue=RESHAPE(lontransformed,(/niDomInterp*njDomInterp/)),latvalue=RESHAPE(lattransformed,(/niDomInterp*njDomInterp/))) 
     136  CALL xios_set_domain_attr("domain_A_transformed", ni_glo=niDomGlo, nj_glo=njDomGlo, & 
     137                                                    ibegin=ibeginDomInterp, ni=niDomInterp, jbegin=jbeginDomInterp, nj=njDomInterp) 
     138  CALL xios_set_domain_attr("domain_A_transformed", lonvalue=RESHAPE(lontransformed,(/niDomInterp*njDomInterp/)), & 
     139                                                    latvalue=RESHAPE(lattransformed,(/niDomInterp*njDomInterp/))) 
    138140 
    139141  CALL xios_set_fieldgroup_attr("field_definition",enabled=.TRUE.) 
  • XIOS/trunk/src/test/test_unstruct_complete.f90

    r658 r659  
    201201  CALL xios_set_axis_attr("axis_srf",size=llm ,value=lval) ; 
    202202!  CALL xios_set_domain_attr("domain_srf",ni_glo=ncell_glo, ni=ncell, ibegin=1, i_index=RESHAPE(i_index,(/ncell,1/) )) 
    203   CALL xios_set_domain_attr("domain_srf",ni_glo=ncell_glo, ni=ncell, ibegin=1, i_index=i_index) 
    204   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') 
    205   CALL xios_set_domain_attr("domain_srf",lonvalue=lon,latvalue=lat) 
    206   CALL xios_set_domain_attr("domain_srf", nvertex=4, bounds_lon=bounds_lon, bounds_lat=bounds_lat ) 
     203  CALL xios_set_domain_attr("domain_srf", ni_glo=ncell_glo, ni=ncell, ibegin=1, i_index=i_index) 
     204  CALL xios_set_domain_attr("domain_srf", type='unstructured', data_dim=1, data_ni=data_n_index, & 
     205                                          data_n_index=data_n_index, data_i_index=data_i_index) 
     206  CALL xios_set_domain_attr("domain_srf", lonvalue=lon, latvalue=lat) 
     207  CALL xios_set_domain_attr("domain_srf", nvertex=4, bounds_lon=bounds_lon, bounds_lat=bounds_lat) 
    207208!  CALL xios_set_domain_attr("domain_srf", mask=RESHAPE(mask,(/ncell,1/) )) 
    208209 
Note: See TracChangeset for help on using the changeset viewer.