Ignore:
Timestamp:
02/11/15 16:23:16 (8 years ago)
Author:
mhnguyen
Message:

Changing interface of tests to make sure global index begins at zero (0)

+) In all tests, ibegin, jbegin starts at zero (0), so there are some minor changes in field_glo
+) Improve a littel bit class design

Test
+) On Curie,
+) All test passed and results are the same as before

File:
1 edited

Legend:

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

    r549 r554  
    5959    ENDDO 
    6060  ENDDO 
    61   ni=ni_glo ; ibegin=1 
    62  
    63   jbegin=1 
     61  ni=ni_glo ; ibegin=0 
     62 
     63  jbegin=0 
    6464  DO n=0,size_loc-1 
    6565    nj=nj_glo/size_loc 
     
    7272 
    7373  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,:) 
    7777 
    7878 
     
    165165      kindex(i)=2*i-1 
    166166    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 /)) 
    168168 
    169169  CALL xios_context_initialize("surface",comm) 
Note: See TracChangeset for help on using the changeset viewer.