Changeset 1080 for XIOS/dev/branch_yushan/src/test

Timestamp:

03/29/17 19:12:27 (7 years ago)

Author:

yushan

Message:

Under development : save modification

File:

• XIOS/dev/branch_yushan/src/test/test_omp.f90 (modified) (3 diffs)

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

@@ -36 +36 @@
 
   CALL MPI_INIT_THREAD(3, provided, ierr)
+  print*, "provided = ", provided
+  
   CALL init_wait
 
@@ -79 +81 @@
   print*, "xios init OK", rank, size
 
+
    CALL xios_context_initialize("test",comm)
-
    print*, "xios_context init OK", rank, size 
-
-  !CALL xios_context_finalize()
-
-  
+   
+    CALL xios_get_handle("test",ctx_hdl)
+    print*, "xios_get_handle OK", rank, size 
+   
+    CALL xios_set_current_context(ctx_hdl)
+    print*, "xios_set_current_context OK", rank, size 
+ 
+    CALL xios_get_calendar_type(calendar_type)
+    print*, "xios_get_calendar_type OK", rank, size 
+
+  !CALL xios_context_finalize()  
   !print*, "xios_context finalize OK", rank, size 
 
@@ -175 +184 @@
   print *, "Client : xios_finalize "
 
-   else
-
-   CALL xios_init_server
-   print *, "Server : xios_finalize "
-  
-   endif
+    else
+
+    CALL xios_init_server
+    print *, "Server : xios_finalize "
+  
+    endif