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

Seperating global index computation on client and server side

+) Create a class which do mapping in general manner, between client and server index global
+) Remove some redundant functions and variables
+) Add some comments to code

Test
+) On Curie. Only test_new_features.f90
+) Test passes and results are correct.
+) Need to change index from 1 to 0

File:
1 edited

Legend:

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

    • Property svn:executable set to *
    r551 r553  
    1313  TYPE(xios_duration)      :: dtime 
    1414  TYPE(xios_context) :: ctx_hdl 
    15   INTEGER,PARAMETER :: ni_glo=100 
    16   INTEGER,PARAMETER :: nj_glo=100 
     15  INTEGER,PARAMETER :: ni_glo=5 
     16  INTEGER,PARAMETER :: nj_glo=5 
    1717  INTEGER,PARAMETER :: llm=5 
    1818  DOUBLE PRECISION  :: lval(llm)=1 
     
    7070  ALLOCATE(lon(ni,nj),lat(ni,nj),field_A(0:ni+1,-1:nj+2,llm),lonvalue(ni*nj)) 
    7171! ALLOCATE(lon(ni,nj),lat(ni,nj),field_A(0:ni+1,-1:nj+2,llm,llm),lonvalue(ni*nj)) 
    72   lon(:,:)=lon_glo(ibegin:iend,jbegin:jend) 
    73   lat(:,:)=lat_glo(ibegin:iend,jbegin:jend) 
     72  lon(:,:)=lon_glo(ibegin+1:iend+1,jbegin+1:jend+1) 
     73  lat(:,:)=lat_glo(ibegin+1:iend+1,jbegin+1:jend+1) 
    7474  field_A(1:ni,1:nj,:)=field_A_glo(ibegin+1:iend+1,jbegin+1:jend+1,:) 
    7575 
Note: See TracChangeset for help on using the changeset viewer.