Changeset 7254


Ignore:
Timestamp:
2021-07-21T19:32:17+02:00 (3 years ago)
Author:
agnes.ducharne
Message:

Reversion de la r7252 qui empeche de compiler avec xios et libIGCM.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba/routing_simple.f90

    r7252 r7254  
    342342 
    343343  SUBROUTINE routing_simple_xios_initialize 
    344 !    USE xios 
     344    USE xios 
    345345    USE routing, ONLY : routing_names 
    346346    IMPLICIT NONE      
    … …  
    350350    LOGICAL :: file_exists 
    351351 
    352 #ifdef XIOS 
    353352    IF (is_omp_root) THEN    
    354353       CALL xios_get_axis_attr("basins", n_glo=basins_out)    ! get nb basins to output 
    … …  
    359358       IF (file_exists) CALL xios_set_file_attr("routing_start", enabled=.TRUE.)   
    360359    ENDIF 
    361 #endif 
     360 
    362361  END SUBROUTINE routing_simple_xios_initialize 
    363362 
    … …  
    380379 
    381380  SUBROUTINE routing_simple_init_2(nbpt, contfrac) 
    382 !    USE xios 
     381    USE xios 
    383382    USE grid, ONLY : area 
    384383    IMPLICIT NONE 
    … …  
    410409 
    411410!_ ================================================================================================================================ 
    412 #ifdef XIOS 
     411 
    413412    split_routing=1 
    414413    CALL getin_p("SPLIT_ROUTING",split_routing) 
    … …  
    658657 
    659658    ENDIF 
    660 #endif 
     659 
    661660  END SUBROUTINE routing_simple_init_2 
    662661 
    … …  
    734733                                 coastalflow_omp, hydrographs, slowflow_diag, flood_frac, flood_res) 
    735734     
    736 !    USE xios 
     735    USE xios 
    737736    USE grid, ONLY : area 
    738737    IMPLICIT NONE 
    … …  
    855854    ! 
    856855 
    857 #ifdef XIOS 
     856 
    858857    irrig_netereq(:) = zero 
    859858    totarea(:) = zero 
    … …  
    11681167    irrigation(:) = zero 
    11691168 
    1170 #endif 
     1169 
    11711170  END SUBROUTINE routing_simple_flow 
    11721171 
    … …  
    17121711 
    17131712  SUBROUTINE routing_simple_finalize( kjit, nbpt, rest_id, flood_frac, flood_res ) 
    1714 !    USE xios 
     1713    USE xios 
    17151714    IMPLICIT NONE 
    17161715 
    … …  
    17281727    !_ ================================================================================================================================ 
    17291728 
    1730 #ifdef XIOS 
    17311729    IF (is_omp_root) THEN 
    17321730       CALL xios_send_field("fast_reservoir_restart",fast_reservoir_r) 
    … …  
    17341732       CALL xios_send_field("stream_reservoir_restart",stream_reservoir_r) 
    17351733    ENDIF 
    1736 #endif 
     1734 
    17371735  END SUBROUTINE routing_simple_finalize 
    17381736 
Note: See TracChangeset for help on using the changeset viewer.