Changeset 627


Ignore:
Timestamp:
06/23/15 13:34:33 (6 years ago)
Author:
rlacroix
Message:

Fix compilation with GNU compilers

File:
1 edited

Legend:

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

    r624 r627  
    2727  DOUBLE PRECISION,DIMENSION(ni_glo,nj_glo) :: lon_glo,lat_glo 
    2828  DOUBLE PRECISION :: field_A_glo(ni_glo,nj_glo,llm), lval_ni_glo(ni_glo), lval_nj_glo(nj_glo) 
    29   DOUBLE PRECISION,ALLOCATABLE :: lon(:,:),lat(:,:),field_A(:,:,:), field_All_Axis(:,:,:), lonvalue(:) , field_Axis(:), lvaln(:), lval_ni(:), lval_nj(:), field_Two_Axis(:,:) 
     29  DOUBLE PRECISION,ALLOCATABLE :: lon(:,:), lat(:,:), field_A(:,:,:), field_All_Axis(:,:,:), lonvalue(:), & 
     30                                  field_Axis(:), lvaln(:), lval_ni(:), lval_nj(:), field_Two_Axis(:,:) 
    3031  INTEGER :: ni,ibegin,iend,nj,jbegin,jend, nAxis, axisBegin, axisEnd 
    3132  INTEGER :: i,j,l,ts,n 
     
    8182 
    8283 
    83   ALLOCATE(lon(ni,nj),lat(ni,nj),field_A(0:ni+1,-1:nj+2,llm),lonvalue(ni*nj), field_Axis(nAxis), field_All_Axis(1:ni,1:nj,llm), lvaln(nAxis), lval_ni(ni), lval_nj(nj), field_Two_Axis(ni_glo,1:nj)) 
     84  ALLOCATE(lon(ni,nj), lat(ni,nj), field_A(0:ni+1,-1:nj+2,llm), lonvalue(ni*nj), field_Axis(nAxis), & 
     85           field_All_Axis(1:ni,1:nj,llm), lvaln(nAxis), lval_ni(ni), lval_nj(nj), field_Two_Axis(ni_glo,1:nj)) 
    8486  ALLOCATE(mask(nj)) 
    8587  DO i = 1, nj 
     
    180182 
    181183END PROGRAM test_new_features 
    182  
    183  
    184  
    185  
    186  
Note: See TracChangeset for help on using the changeset viewer.