Changeset 554 for XIOS/trunk/src/test/test_complete.f90
- Timestamp:
- 02/11/15 16:23:16 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/test/test_complete.f90
r549 r554 59 59 ENDDO 60 60 ENDDO 61 ni=ni_glo ; ibegin= 162 63 jbegin= 161 ni=ni_glo ; ibegin=0 62 63 jbegin=0 64 64 DO n=0,size_loc-1 65 65 nj=nj_glo/size_loc … … 72 72 73 73 ALLOCATE(lon(ni,nj),lat(ni,nj),field_A_atm(0:ni+1,-1:nj+2,llm),lonvalue(ni*nj)) 74 lon(:,:)=lon_glo(ibegin :iend,jbegin:jend)75 lat(:,:)=lat_glo(ibegin :iend,jbegin:jend)76 field_A_atm(1:ni,1:nj,:)=field_A_glo(ibegin :iend,jbegin:jend,:)74 lon(:,:)=lon_glo(ibegin+1:iend+1,jbegin+1:jend+1) 75 lat(:,:)=lat_glo(ibegin+1:iend+1,jbegin+1:jend+1) 76 field_A_atm(1:ni,1:nj,:)=field_A_glo(ibegin+1:iend+1,jbegin+1:jend+1,:) 77 77 78 78 … … 165 165 kindex(i)=2*i-1 166 166 ENDDO 167 field_A_srf(1:nb_pt,:)=RESHAPE(field_A_glo(ibegin :iend:2,jbegin:jend,:),(/ nb_pt,llm /))167 field_A_srf(1:nb_pt,:)=RESHAPE(field_A_glo(ibegin+1:iend+1:2,jbegin+1:jend+1,:),(/ nb_pt,llm /)) 168 168 169 169 CALL xios_context_initialize("surface",comm)
Note: See TracChangeset
for help on using the changeset viewer.