Changeset 1646 for XIOS/dev/dev_trunk_omp/src/test/test_omp.f90

Timestamp:

01/31/19 12:12:52 (5 years ago)

Author:

yushan

Message:

branch merged with trunk @1645. arch file (ep&mpi) added for ADA

File:

• XIOS/dev/dev_trunk_omp/src/test/test_omp.f90 (modified) (2 diffs)

XIOS/dev/dev_trunk_omp/src/test/test_omp.f90

@@ -142 +142 @@
    ni=0 ; lonvalue(:,:)=0;
    CALL xios_get_domain_attr("domain_A",ni=ni,lonvalue_2D=lonvalue)
-   print *,"ni",ni
-   print *,"lonvalue",lonvalue;
+   !print *,"ni",ni
+   !print *,"lonvalue",lonvalue;
 
    CALL xios_is_defined_field_attr("field_A",enabled=ok)
@@ -183 +183 @@
 
     CALL xios_init_server
-    print *, "Server : xios_finalize "
+    print *, "Server : xios_finalize ", rank
   
     endif