Changeset 1220 for XIOS/dev/branch_openmp/src/test

Timestamp:

07/20/17 09:18:34 (7 years ago)

Author:

yushan

Message:

test_remap_omp tested on ADA except two fields

File:

• XIOS/dev/branch_openmp/src/test/test_remap_omp.f90 (modified) (4 diffs)

XIOS/dev/branch_openmp/src/test/test_remap_omp.f90

@@ -222 +222 @@
   CALL xios_close_context_definition()
 
-!  CALL xios_get_domain_attr("src_domain_regular_read", ni=src_tmp_ni, nj=src_tmp_nj)
-!  ALLOCATE(tmp_field_0(src_tmp_ni*src_tmp_nj))
-
-!  CALL xios_get_axis_attr("src_axis_curvilinear_read", n=src_tmp_n)
-!  CALL xios_get_domain_attr("src_domain_curvilinear_read", ni=src_tmp_ni, nj=src_tmp_nj)
-!  ALLOCATE(tmp_field_1(src_tmp_ni*src_tmp_nj*src_tmp_n))
-
-!  CALL xios_get_domain_attr("src_domain_unstructured_read", ni=src_tmp_ni, nj=src_tmp_nj)
-!  ALLOCATE(tmp_field_2(src_tmp_ni*src_tmp_nj))
-  
-!  CALL xios_recv_field("src_field_regular", tmp_field_0)
-!  CALL xios_recv_field("src_field_curvilinear", tmp_field_1)
-!  CALL xios_recv_field("src_field_unstructured", tmp_field_2)
+  CALL xios_get_domain_attr("src_domain_regular_read", ni=src_tmp_ni, nj=src_tmp_nj)
+  ALLOCATE(tmp_field_0(src_tmp_ni*src_tmp_nj))
+
+  CALL xios_get_axis_attr("src_axis_curvilinear_read", n=src_tmp_n)
+  CALL xios_get_domain_attr("src_domain_curvilinear_read", ni=src_tmp_ni, nj=src_tmp_nj)
+  ALLOCATE(tmp_field_1(src_tmp_ni*src_tmp_nj*src_tmp_n))
+
+  CALL xios_get_domain_attr("src_domain_unstructured_read", ni=src_tmp_ni, nj=src_tmp_nj)
+  ALLOCATE(tmp_field_2(src_tmp_ni*src_tmp_nj))
+  
+  CALL xios_recv_field("src_field_regular", tmp_field_0)
+  CALL xios_recv_field("src_field_curvilinear", tmp_field_1)
+  CALL xios_recv_field("src_field_unstructured", tmp_field_2)
 
   DO ts=1,10
@@ -252 +252 @@
     CALL xios_send_field("src_field_4D",src_field_4D)
     CALL xios_send_field("src_field_3D_pression",src_field_pression)
- !   CALL xios_send_field("tmp_field_0",tmp_field_0)
- !   CALL xios_send_field("tmp_field_1",tmp_field_1)
- !   CALL xios_send_field("tmp_field_2",tmp_field_2)
+    CALL xios_send_field("tmp_field_0",tmp_field_0)
+    CALL xios_send_field("tmp_field_1",tmp_field_1)
+    CALL xios_send_field("tmp_field_2",tmp_field_2)
     CALL wait_us(5000) ;
    ENDDO
@@ -262 +262 @@
   DEALLOCATE(src_lon, src_lat, src_boundslon,src_boundslat, src_field_2D)
   DEALLOCATE(dst_lon, dst_lat, dst_boundslon,dst_boundslat)
-  !DEALLOCATE(tmp_field_0, tmp_field_1, tmp_field_2)
+  DEALLOCATE(tmp_field_0, tmp_field_1, tmp_field_2)
   
   CALL xios_finalize()
@@ -293 +293 @@
 
 
-