Ignore:
Timestamp:
10/05/15 14:43:48 (6 years ago)
Author:
mhnguyen
Message:

Temporary modification of auto-generate domain. This should be changed to a better solution

+) Divide a rectangular domain into parts being equal to number of procs

Test
+) On local with 2 procs, mode server and attached.
+) test_remap passes and result is correct

File:
1 edited

Legend:

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

    r709 r715  
    2020  DOUBLE PRECISION,ALLOCATABLE :: src_boundslon(:,:), dst_boundslon(:,:) 
    2121  DOUBLE PRECISION,ALLOCATABLE :: src_boundslat(:,:), dst_boundslat(:,:) 
    22   DOUBLE PRECISION,ALLOCATABLE :: src_field(:) 
     22  DOUBLE PRECISION,ALLOCATABLE :: src_field(:), tmp_field(:) 
    2323  INTEGER :: src_ni_glo, dst_ni_glo; 
    2424  INTEGER :: src_nvertex, dst_nvertex; 
     
    119119                            bounds_lon_1D=dst_boundslon, bounds_lat_1D=dst_boundslat, nvertex=dst_nvertex) 
    120120 
    121   CALL xios_set_domain_attr("dst_domain_regular", type="rectilinear") 
     121!  CALL xios_set_domain_attr("dst_domain_regular", type="rectilinear") 
    122122 
     123 
     124  ALLOCATE(tmp_field(180*90/2)) 
    123125  dtime%second = 3600 
    124126  CALL xios_set_timestep(dtime) 
     
    127129 
    128130  DO ts=1,1 
     131    CALL xios_recv_field("src_field_regular", tmp_field) 
    129132    CALL xios_update_calendar(ts) 
    130     CALL xios_send_field("src_field",src_field) 
     133!    CALL xios_send_field("src_field",src_field) 
     134    CALL xios_send_field("tmp_field",tmp_field) 
    131135    CALL wait_us(5000) ; 
    132136  ENDDO 
Note: See TracChangeset for help on using the changeset viewer.