Ignore:
Timestamp:
08/05/14 16:00:09 (10 years ago)
Author:
ymipsl
Message:

Synchronize trunk and Saturn branch.
Merge modification from trunk branch to Saturn branch.

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM/src/mpipara.F90

    r261 r267  
    2121  END INTERFACE free_mpi_buffer 
    2222 
     23  PRIVATE :: getin 
     24 
    2325CONTAINS 
    2426 
     27  SUBROUTINE getin(name,value) ! Copied from getin.f90 to avoid circular dependency 
     28  USE ioipsl, ONLY : getin_=>getin 
     29  USE transfert_omp_mod 
     30  USE omp_para 
     31  IMPLICIT NONE 
     32    CHARACTER(LEN=*) :: name 
     33    CHARACTER(LEN=*) :: value 
     34 
     35!$OMP MASTER     
     36    CALL getin_(name,value) 
     37    IF(is_mpi_root) PRINT *,'GETIN ',TRIM(name),' = ', TRIM(value) 
     38!$OMP END MASTER 
     39    IF (omp_in_parallel()) CALL bcast_omp(value) 
     40  END SUBROUTINE getin 
     41 
    2542  SUBROUTINE init_mpipara 
    2643  USE mpi_mod 
    27   USE getin_mod 
    2844#ifdef CPP_USING_XIOS 
    2945  USE xios 
Note: See TracChangeset for help on using the changeset viewer.