Changeset 8504


Ignore:
Timestamp:
2024-03-27T13:02:01+01:00 (6 weeks ago)
Author:
josefine.ghattas
Message:

Integrated correction done in the trunk [8503] for compilation without XIOS.

Location:
branches/ORCHIDEE_2_2/ORCHIDEE
Files:
11 edited

Legend:

Unmodified
Added
Removed

  • branches/ORCHIDEE_2_2/ORCHIDEE

  • branches/ORCHIDEE_2_2/ORCHIDEE/src_parallel/xios_orchidee.f90

    r8377 r8504  
    718718    REAL(r_std), DIMENSION(axlen), INTENT(IN) :: axval 
    719719    ! 
     720#ifdef XIOS 
    720721    IF (xios_orchidee_ok .AND. is_omp_root) THEN 
    721722       CALL xios_set_axis_attr(axname, n_glo=axlen, VALUE=axval) 
    722723    ENDIF 
     724#endif 
    723725    ! 
    724726  END SUBROUTINE xios_orchidee_addaxis 

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

    r7709 r8504  
    473473 
    474474  SUBROUTINE routing_xios_initialize 
    475     USE xios 
     475    USE xios_orchidee 
    476476    IMPLICIT NONE 
    477477 

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

    r7710 r8504  
    665665 
    666666  SUBROUTINE routing_highres_xios_initialize 
    667     USE xios 
     667    USE xios_orchidee 
    668668    IMPLICIT NONE 
    669669 

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

    r8394 r8504  
    4444 
    4545MODULE routing_native_mod 
    46  
     46#ifdef XIOS 
    4747  USE ioipsl    
    4848  USE xios_orchidee 
    … …  
    579579 
    580580  END SUBROUTINE routing_native_clear 
    581    
     581#endif   
    582582END MODULE routing_native_mod 

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

    r8394 r8504  
    11MODULE routing_native_flow_mod 
    2  
     2#ifdef XIOS 
    33  USE ioipsl    
    44  USE xios_orchidee 
    … …  
    23582358  END SUBROUTINE routing_flow_clear 
    23592359 
    2360  
     2360#endif 
    23612361END MODULE routing_native_flow_mod 

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

    r8366 r8504  
    11MODULE routing_native_irrig_mod 
     2#ifdef XIOS 
    23  USE constantes 
    34 
    … …  
    770771   
    771772 
    772  
     773#endif 
    773774END MODULE routing_native_irrig_mod 

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

    r8227 r8504  
    11MODULE routing_native_lake_mod 
     2#ifdef XIOS 
    23  USE constantes 
    34    
    … …  
    288289  
    289290  END SUBROUTINE routing_lake_main 
    290  
     291#endif 
    291292END MODULE routing_native_lake_mod 

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

    r8227 r8504  
    11MODULE routing_native_para 
    2  
     2#ifdef XIOS 
    33 PRIVATE 
    44 
    … …  
    267267 
    268268  END SUBROUTINE update_halo_real 
    269  
     269#endif 
    270270END MODULE routing_native_para 

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

    r7991 r8504  
    4444 
    4545MODULE routing_simple 
    46  
     46#ifdef XIOS 
    4747  USE ioipsl    
    4848  USE xios_orchidee 
    … …  
    26892689 
    26902690  END SUBROUTINE routing_simple_lake 
    2691  
     2691#endif 
    26922692END MODULE routing_simple 

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

    r8227 r8504  
    7676       CALL routing_highres_xios_initialize 
    7777    ELSEIF(routing_method=='simple') THEN   
     78#ifdef XIOS 
    7879       CALL routing_simple_xios_initialize 
    7980    ELSEIF(routing_method=='native') THEN 
    8081       CALL routing_native_xios_initialize 
     82#else 
     83       CALL ipslerr_p(3,'routing_wrapper_xios_inititalize','ROUTING_METHOD simple and native needs XIOS',& 
     84                        'You must compile XIOS and then ORCHIDEE with cpp key XIOS','') 
     85#endif 
    8186    ENDIF 
    8287 
    … …  
    176181 
    177182    ELSE IF(routing_method== 'simple') THEN  
    178  
     183#ifdef XIOS 
    179184       CALL routing_simple_initialize(    kjit,        nbpt,           index,                 & 
    180185                                          rest_id,     hist_id,        hist2_id,   lalo,      & 
    … …  
    182187                                          returnflow,  reinfiltration, irrigation, riverflow, & 
    183188                                          coastalflow, flood_frac,     flood_res ) 
    184  
     189#endif 
    185190       riverflow(:) = zero 
    186191       coastalflow(:) = zero 
    … …  
    192197    
    193198    ELSE IF(routing_method== 'native') THEN 
    194  
     199#ifdef XIOS 
    195200       CALL routing_native_initialize(    kjit,        nbpt,           index,                 & 
    196201                                          rest_id,     hist_id,        hist2_id,   lalo,      & 
    … …  
    198203                                          returnflow,  reinfiltration, irrigation, riverflow, & 
    199204                                          coastalflow, flood_frac,     flood_res , irrigated_next) 
    200  
     205#endif 
    201206       riverflow(:) = zero 
    202207       coastalflow(:) = zero 
    … …  
    298303 
    299304    ELSE IF(routing_method=='simple') THEN  
    300  
     305#ifdef XIOS 
    301306       CALL routing_simple_main (kjit, nbpt, index, & 
    302307            lalo, neighbours, resolution, contfrac, totfrac_nobio, veget_max, floodout, runoff, & 
    … …  
    304309            stempdiag, reinf_slope, returnflow, reinfiltration, irrigation, riverflow, coastalflow, & 
    305310            rest_id, hist_id, hist2_id)  
    306  
     311#endif 
    307312    ELSE IF(routing_method=='native') THEN 
    308  
     313#ifdef XIOS 
    309314       CALL routing_native_main (kjit, nbpt, index, & 
    310315            lalo, neighbours, resolution, contfrac, totfrac_nobio, veget_max, floodout, runoff, & 
    … …  
    313318            rest_id, hist_id, hist2_id, & 
    314319            soiltile, root_deficit, irrigated_next, irrig_frac, fraction_aeirrig_sw)  
     320#endif 
    315321    ENDIF 
    316322 
    … …  
    356362 
    357363    ELSE IF(routing_method=='simple') THEN  
    358  
     364#ifdef XIOS 
    359365       CALL routing_simple_finalize( kjit, nbpt, rest_id, flood_frac, flood_res ) 
    360  
     366#endif 
    361367    ELSE IF(routing_method=='native') THEN 
    362  
     368#ifdef XIOS 
    363369       CALL routing_native_finalize( kjit, nbpt, rest_id, flood_frac, flood_res ) 
    364  
     370#endif 
    365371    ENDIF 
    366372 
    … …  
    393399 
    394400    ELSE IF(routing_method=='simple') THEN  
    395  
     401#ifdef XIOS 
    396402       CALL routing_simple_clear 
    397      
     403#endif     
    398404    ELSE IF(routing_method=='native') THEN 
    399  
     405#ifdef XIOS 
    400406       CALL routing_native_clear 
     407#endif 
    401408    ENDIF 
    402409 
Note: See TracChangeset for help on using the changeset viewer.