Changeset 551 for XIOS/trunk/src/test
- Timestamp:
- 02/11/15 16:23:02 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/test/test_new_features.f90
r549 r551 56 56 ENDDO 57 57 ENDDO 58 ni=ni_glo ; ibegin= 158 ni=ni_glo ; ibegin=0 59 59 60 jbegin= 160 jbegin=0 61 61 DO n=0,size-1 62 62 nj=nj_glo/size … … 72 72 lon(:,:)=lon_glo(ibegin:iend,jbegin:jend) 73 73 lat(:,:)=lat_glo(ibegin:iend,jbegin:jend) 74 field_A(1:ni,1:nj,:)=field_A_glo(ibegin :iend,jbegin:jend,:)74 field_A(1:ni,1:nj,:)=field_A_glo(ibegin+1:iend+1,jbegin+1:jend+1,:) 75 75 76 76 CALL xios_context_initialize("test",comm)
Note: See TracChangeset
for help on using the changeset viewer.