Changeset 7252


Ignore:
Timestamp:
2021-07-21T16:44:31+02:00 (3 years ago)
Author:
agnes.ducharne
Message:

Modifications sur routing_simple.f90 pour pouvoir tourner sans xios. Fait par Adriana Sima avec Yann Meurdesoif.

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r6102 r7252  
    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 
    352353    IF (is_omp_root) THEN    
    353354       CALL xios_get_axis_attr("basins", n_glo=basins_out)    ! get nb basins to output 
    … …  
    358359       IF (file_exists) CALL xios_set_file_attr("routing_start", enabled=.TRUE.)   
    359360    ENDIF 
    360  
     361#endif 
    361362  END SUBROUTINE routing_simple_xios_initialize 
    362363 
    … …  
    379380 
    380381  SUBROUTINE routing_simple_init_2(nbpt, contfrac) 
    381     USE xios 
     382!    USE xios 
    382383    USE grid, ONLY : area 
    383384    IMPLICIT NONE 
    … …  
    409410 
    410411!_ ================================================================================================================================ 
    411  
     412#ifdef XIOS 
    412413    split_routing=1 
    413414    CALL getin_p("SPLIT_ROUTING",split_routing) 
    … …  
    657658 
    658659    ENDIF 
    659  
     660#endif 
    660661  END SUBROUTINE routing_simple_init_2 
    661662 
    … …  
    733734                                 coastalflow_omp, hydrographs, slowflow_diag, flood_frac, flood_res) 
    734735     
    735     USE xios 
     736!    USE xios 
    736737    USE grid, ONLY : area 
    737738    IMPLICIT NONE 
    … …  
    854855    ! 
    855856 
    856  
     857#ifdef XIOS 
    857858    irrig_netereq(:) = zero 
    858859    totarea(:) = zero 
    … …  
    11671168    irrigation(:) = zero 
    11681169 
    1169  
     1170#endif 
    11701171  END SUBROUTINE routing_simple_flow 
    11711172 
    … …  
    17111712 
    17121713  SUBROUTINE routing_simple_finalize( kjit, nbpt, rest_id, flood_frac, flood_res ) 
    1713     USE xios 
     1714!    USE xios 
    17141715    IMPLICIT NONE 
    17151716 
    … …  
    17271728    !_ ================================================================================================================================ 
    17281729 
     1730#ifdef XIOS 
    17291731    IF (is_omp_root) THEN 
    17301732       CALL xios_send_field("fast_reservoir_restart",fast_reservoir_r) 
    … …  
    17321734       CALL xios_send_field("stream_reservoir_restart",stream_reservoir_r) 
    17331735    ENDIF 
    1734  
     1736#endif 
    17351737  END SUBROUTINE routing_simple_finalize 
    17361738 
Note: See TracChangeset for help on using the changeset viewer.