Changeset 3890

Timestamp:

Jan 25, 2016, 10:23:34 AM (9 years ago)

Author:

ymipsl

Message:

xios initialisation is done in xios_init subroutine

YM

File:

• dynamico_lmdz/aquaplanet/ICOSAGCM/src/xios_mod.F90 (modified) (2 diffs)

dynamico_lmdz/aquaplanet/ICOSAGCM/src/xios_mod.F90

@@ -21 +21 @@
  SUBROUTINE xios_init
    USE getin_mod
+   USE xios
+   USE mpipara
    IMPLICIT NONE
-
-   using_xios=.TRUE.
+    TYPE(xios_context) :: ctx_hdl
+
+     using_xios=.TRUE.
+     CALL xios_context_initialize("icosagcm",comm_icosa)
+     CALL xios_get_handle("icosagcm",ctx_hdl)
+     CALL xios_set_current_context(ctx_hdl)
    
  END SUBROUTINE xios_init  
@@ -51 +57 @@
 !$OMP BARRIER
 !$OMP MASTER
-   CALL xios_context_initialize("icosagcm",comm_icosa)
+!   CALL xios_context_initialize("icosagcm",comm_icosa)
    CALL xios_get_handle("icosagcm",ctx_hdl)
    CALL xios_set_current_context(ctx_hdl)