Changeset 216 for codes/icosagcm/trunk
- Timestamp:
- 07/16/14 01:18:40 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/mpipara.F90
r193 r216 18 18 END INTERFACE free_mpi_buffer 19 19 20 PRIVATE :: getin 21 20 22 CONTAINS 21 23 24 SUBROUTINE getin(name,value) ! Copied from getin.f90 to avoid circular dependency 25 USE ioipsl, ONLY : getin_=>getin 26 USE transfert_omp_mod 27 USE omp_para 28 IMPLICIT NONE 29 CHARACTER(LEN=*) :: name 30 CHARACTER(LEN=*) :: value 31 32 !$OMP MASTER 33 CALL getin_(name,value) 34 IF(is_mpi_root) PRINT *,'GETIN ',TRIM(name),' = ', TRIM(value) 35 !$OMP END MASTER 36 IF (omp_in_parallel()) CALL bcast_omp(value) 37 END SUBROUTINE getin 38 22 39 SUBROUTINE init_mpipara 23 40 USE mpi_mod 24 USE getin_mod25 41 #ifdef CPP_USING_XIOS 26 42 USE xios
Note: See TracChangeset
for help on using the changeset viewer.