Changeset 755


Ignore:
Timestamp:
10/23/15 10:49:19 (8 years ago)
Author:
rlacroix
Message:

test_new_features: Fix random errors caused by an uninitialized variable.

File:
1 edited

Legend:

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

    r687 r755  
    6060    lval_nj_glo(j) = j-1 
    6161  ENDDO 
    62   ni=ni_glo ; ibegin=0 
     62  ni = ni_glo 
     63  ibegin = 0 
     64  iend = ibegin + ni - 1 
    6365 
    6466  jbegin=0 
     
    210212 
    211213CONTAINS 
    212   SUBROUTINE  Test_Interpolate 
    213  
    214  
    215   END SUBROUTINE Test_Interpolate 
    216  
    217214  SUBROUTINE Distribute_index(ibegin, iend, ni, nglob, rank, size) 
    218215    INTEGER, INTENT(INOUT) :: ibegin, iend, ni 
Note: See TracChangeset for help on using the changeset viewer.