- Timestamp:
- 10/23/15 10:49:19 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/test/test_new_features.f90
r687 r755 60 60 lval_nj_glo(j) = j-1 61 61 ENDDO 62 ni=ni_glo ; ibegin=0 62 ni = ni_glo 63 ibegin = 0 64 iend = ibegin + ni - 1 63 65 64 66 jbegin=0 … … 210 212 211 213 CONTAINS 212 SUBROUTINE Test_Interpolate213 214 215 END SUBROUTINE Test_Interpolate216 217 214 SUBROUTINE Distribute_index(ibegin, iend, ni, nglob, rank, size) 218 215 INTEGER, INTENT(INOUT) :: ibegin, iend, ni
Note: See TracChangeset
for help on using the changeset viewer.