Changeset 211 for codes/icosagcm/trunk
- Timestamp:
- 07/15/14 18:09:26 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/getin.f90
r186 r211 15 15 USE transfert_omp_mod 16 16 USE omp_para 17 USE mpipara 17 18 IMPLICIT NONE 18 19 CHARACTER(LEN=*) :: name … … 21 22 !$OMP MASTER 22 23 CALL getin_(name,value) 24 IF(is_mpi_root) PRINT *,'GETIN ',TRIM(name),' = ', TRIM(value) 23 25 !$OMP END MASTER 24 26 IF (omp_in_parallel()) CALL bcast_omp(value) … … 29 31 USE transfert_omp_mod 30 32 USE omp_para 33 USE mpipara 31 34 IMPLICIT NONE 32 35 CHARACTER(LEN=*) :: name … … 35 38 !$OMP MASTER 36 39 CALL getin_(name,value) 40 IF(is_mpi_root) PRINT *,'GETIN ',TRIM(name),' = ', value 37 41 !$OMP END MASTER 38 42 IF (omp_in_parallel()) CALL bcast_omp(value) … … 43 47 USE transfert_omp_mod 44 48 USE omp_para 49 USE mpipara 45 50 IMPLICIT NONE 46 51 CHARACTER(LEN=*) :: name … … 49 54 !$OMP MASTER 50 55 CALL getin_(name,value) 56 IF(is_mpi_root) PRINT *,'GETIN ',TRIM(name), ' = ', value 51 57 !$OMP END MASTER 52 58 IF (omp_in_parallel()) CALL bcast_omp(value) … … 57 63 USE ioipsl, ONLY : getin_=>getin 58 64 USE omp_para 65 USE mpipara 59 66 USE transfert_omp_mod 60 67 IMPLICIT NONE … … 64 71 !$OMP MASTER 65 72 CALL getin_(name,value) 73 IF(is_mpi_root) PRINT *,'GETIN ',TRIM(name), ' = ', value 66 74 !$OMP END MASTER 67 75 IF (omp_in_parallel()) CALL bcast_omp(value)
Note: See TracChangeset
for help on using the changeset viewer.