Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/bibio/wxios.F90

    r2054 r2055  
    9696    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    9797
    98     SUBROUTINE wxios_init(xios_ctx_name, locom, outcom)
     98    SUBROUTINE wxios_init(xios_ctx_name, locom, outcom, type_ocean)
    9999        IMPLICIT NONE
    100100        INCLUDE 'iniprint.h'
     
    103103      INTEGER, INTENT(IN), OPTIONAL :: locom
    104104      INTEGER, INTENT(OUT), OPTIONAL :: outcom
     105      CHARACTER(len=6), INTENT(IN), OPTIONAL :: type_ocean
    105106
    106107   
     
    129130        g_ctx_name = xios_ctx_name
    130131       
    131 #ifndef CPP_COUPLE
     132        ! Si couple alors init fait dans cpl_init
     133        IF (.not. PRESENT(type_ocean)) THEN
    132134            CALL wxios_context_init()
    133 #endif
     135        ENDIF
    134136
    135137    END SUBROUTINE wxios_init
Note: See TracChangeset for help on using the changeset viewer.