Changeset 2055 for LMDZ5/trunk/libf/bibio/wxios.F90

Timestamp:

Jun 4, 2014, 2:33:27 PM (10 years ago)

Author:

acaubel

Message:

Modifications in order to run forced configuration with coupled executable
i.e replaced the use of cpp key CPP_PARA by the use of type_ocean flag.

File:

• LMDZ5/trunk/libf/bibio/wxios.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/bibio/wxios.F90

@@ -96 +96 @@
     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-    SUBROUTINE wxios_init(xios_ctx_name, locom, outcom)
+    SUBROUTINE wxios_init(xios_ctx_name, locom, outcom, type_ocean)
         IMPLICIT NONE
         INCLUDE 'iniprint.h'
@@ -103 +103 @@
       INTEGER, INTENT(IN), OPTIONAL :: locom
       INTEGER, INTENT(OUT), OPTIONAL :: outcom
+      CHARACTER(len=6), INTENT(IN), OPTIONAL :: type_ocean
 
     
@@ -129 +130 @@
         g_ctx_name = xios_ctx_name
         
-#ifndef CPP_COUPLE
+        ! Si couple alors init fait dans cpl_init
+        IF (.not. PRESENT(type_ocean)) THEN
             CALL wxios_context_init()
-#endif
+        ENDIF
 
     END SUBROUTINE wxios_init