Ignore:
Timestamp:
2024-01-14T15:15:57+01:00 (6 months ago)
Author:
jan.polcher
Message:

The modifications performed on the trunk for the coupling to WRF and the interpolation by XIOS on curviliean grids has been backported.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/ORCHIDEE_2_2/ORCHIDEE/src_parallel/mod_orchidee_para.F90

    r7792 r8377  
    4141  !! \n 
    4242  !_ ==============================================================================================================================  
    43   SUBROUTINE Init_orchidee_para(communicator) 
     43  SUBROUTINE Init_orchidee_para(communicator, usexios) 
    4444    IMPLICIT NONE 
    4545    INTEGER,OPTIONAL,INTENT(in) :: communicator  
    46  
     46    LOGICAL,OPTIONAL,INTENT(in) :: usexios 
     47     
    4748    CALL Init_orchidee_omp 
    4849 
    49  
    5050    IF ( PRESENT(communicator) ) THEN 
    51        CALL Init_orchidee_mpi(communicator) 
     51       IF ( PRESENT(usexios) ) THEN 
     52          CALL Init_orchidee_mpi(communicator, usexios) 
     53       ELSE 
     54          CALL Init_orchidee_mpi(communicator) 
     55       ENDIF 
    5256    ELSE 
    5357       CALL Init_orchidee_mpi 
    5458    ENDIF 
    55  
    5659 
    5760    IF (is_mpi_root .AND. is_omp_root) THEN 
Note: See TracChangeset for help on using the changeset viewer.