Changeset 1037 for XIOS/dev/branch_yushan/src/interface/fortran/idata.F90

Timestamp:

01/25/17 16:25:17 (7 years ago)

Author:

yushan

Message:

initialize the branch

File:

• XIOS/dev/branch_yushan/src/interface/fortran/idata.F90 (modified) (2 diffs)

XIOS/dev/branch_yushan/src/interface/fortran/idata.F90

@@ -465 +465 @@
    INTEGER :: f_return_comm
 
+
       IF (PRESENT(local_comm)) THEN
         f_local_comm=local_comm
@@ -472 +473 @@
 
       CALL cxios_init_client(client_id,LEN(client_id),f_local_comm,f_return_comm)
+      
+      
+      !print*, "in fortran, world_f = ", MPI_COMM_WORLD 
+      print*, "in fortran, f_return_comm = ", f_return_comm 
 
       IF (PRESENT(return_comm)) return_comm=f_return_comm