Changeset 693


Ignore:
Timestamp:
09/16/15 16:26:34 (6 years ago)
Author:
rlacroix
Message:

Fix compilation of test_unstruct_complete with GNU compilers.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • XIOS/branchs/xios-1.0/src/test/test_unstruct_complete.f90

    r501 r693  
    3030  INTEGER,ALLOCATABLE :: i_index(:) 
    3131  LOGICAL,ALLOCATABLE :: mask_glo(:),mask(:) 
    32   DOUBLE PRECISION,ALLOCATABLE :: lon(:),lat(:),field_A_srf(:,:), lonvalue(:) ; 
    33   DOUBLE PRECISION,ALLOCATABLE :: bounds_lon(:,:),bounds_lat(:,:) ; 
     32  DOUBLE PRECISION,ALLOCATABLE :: lon(:),lat(:),field_A_srf(:,:), lonvalue(:) 
     33  DOUBLE PRECISION,ALLOCATABLE :: bounds_lon(:,:),bounds_lat(:,:) 
    3434  INTEGER :: ni,ibegin,iend,nj,jbegin,jend 
    3535  INTEGER :: i,j,l,ts,n 
     
    105105    j=(j1+j2)/2 
    106106    n=NINT(COS(Pi/2-(j-0.5)*PI/nlat)*nlon) 
    107     np = MIN(n/ncell_x,rank+1) ; 
     107    np = MIN(n/ncell_x,rank+1) 
    108108    if (j2==1) np=rank+1  
    109109     
    110     PRINT *,"domain ",j2,j1,rank,np ; 
     110    PRINT *,"domain ",j2,j1,rank,np 
    111111    DO j=j2,j1   
    112112      n=NINT(COS(Pi/2-(j-0.5)*PI/nlat)*nlon) 
     
    133133    j=(j1+j2)/2 
    134134    n=NINT(COS(Pi/2-(j-0.5)*PI/nlat)*nlon) 
    135     np = MIN(n/ncell_x,mpi_size-rank) ; 
     135    np = MIN(n/ncell_x,mpi_size-rank) 
    136136    if (j2==nlat) np=mpi_size-rank  
    137137     
    138     PRINT *,"domain ",j2,j1,rank,np ; 
     138    PRINT *,"domain ",j2,j1,rank,np 
    139139    DO j=j1,j2   
    140140      n=NINT(COS(Pi/2-(j-0.5)*PI/nlat)*nlon) 
     
    201201  CALL xios_set_current_context(ctx_hdl) 
    202202   
    203   CALL xios_set_axis_attr("axis_srf",size=llm ,value=lval) ; 
    204   CALL xios_set_domain_attr("domain_srf",ni_glo=ncell_glo, ni=ncell, ibegin=1, i_index=RESHAPE(i_index,(/ncell,1/) )) 
    205   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') 
    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 ) 
     203  CALL xios_set_axis_attr("axis_srf", size=llm ,value=lval) 
     204  CALL xios_set_domain_attr("domain_srf", ni_glo=ncell_glo, ni=ncell, ibegin=1, i_index=RESHAPE(i_index,(/ncell,1/))) 
     205  CALL xios_set_domain_attr("domain_srf", data_dim=1, data_ni=data_n_index, & 
     206                                          data_n_index=data_n_index, data_i_index=data_i_index, type='unstructured') 
     207  CALL xios_set_domain_attr("domain_srf", lonvalue=lon, latvalue=lat) 
     208  CALL xios_set_domain_attr("domain_srf", nvertex=4, bounds_lon=bounds_lon, bounds_lat=bounds_lat) 
    208209     
    209210  
Note: See TracChangeset for help on using the changeset viewer.