Changeset 3322 for LMDZ6/branches/DYNAMICO-conv/libf/misc/wxios.F90

Timestamp:

May 4, 2018, 3:33:28 PM (6 years ago)

Author:

Laurent Fairhead

Message:

Continuing convergence between DYNAMICO and LMDZ new physics.
The xios stuff

File:

• LMDZ6/branches/DYNAMICO-conv/libf/misc/wxios.F90 (modified) (2 diffs)

LMDZ6/branches/DYNAMICO-conv/libf/misc/wxios.F90

@@ -136 +136 @@
         g_ctx_name = xios_ctx_name
         
-        ! Si couple alors init fait dans cpl_init
-        IF (.not. PRESENT(type_ocean)) THEN
-            CALL wxios_context_init()
-        ENDIF
+!        ! Si couple alors init fait dans cpl_init
+!        IF (.not. PRESENT(type_ocean)) THEN
+!            CALL wxios_context_init()
+!        ENDIF
 
     END SUBROUTINE wxios_init
@@ -165 +165 @@
 !$OMP END MASTER
     END SUBROUTINE wxios_context_init
+
+
+    SUBROUTINE wxios_set_context()
+        IMPLICIT NONE
+        TYPE(xios_context) :: xios_ctx
+
+       !$OMP MASTER
+        CALL xios_get_handle(g_ctx_name, xios_ctx)    !Récupération
+        CALL xios_set_current_context(xios_ctx)            !Activation
+       !$OMP END MASTER
+
+    END SUBROUTINE wxios_set_context
 
     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!