Changeset 211

Timestamp:

07/15/14 18:09:26 (10 years ago)

Author:

dubos

Message:

Let getin print key=value pairs

File:

• codes/icosagcm/trunk/src/getin.f90 (modified) (8 diffs)

codes/icosagcm/trunk/src/getin.f90

@@ -15 +15 @@
   USE transfert_omp_mod
   USE omp_para
+  USE mpipara
   IMPLICIT NONE
     CHARACTER(LEN=*) :: name
@@ -21 +22 @@
 !$OMP MASTER    
     CALL getin_(name,value)
+    IF(is_mpi_root) PRINT *,'GETIN ',TRIM(name),' = ', TRIM(value)
 !$OMP END MASTER
     IF (omp_in_parallel()) CALL bcast_omp(value)
@@ -29 +31 @@
   USE transfert_omp_mod
   USE omp_para
+  USE mpipara
   IMPLICIT NONE
     CHARACTER(LEN=*) :: name
@@ -35 +38 @@
 !$OMP MASTER    
     CALL getin_(name,value)
+    IF(is_mpi_root) PRINT *,'GETIN ',TRIM(name),' = ', value
 !$OMP END MASTER
     IF (omp_in_parallel()) CALL bcast_omp(value)
@@ -43 +47 @@
   USE transfert_omp_mod
   USE omp_para
+  USE mpipara
   IMPLICIT NONE
     CHARACTER(LEN=*) :: name
@@ -49 +54 @@
 !$OMP MASTER    
     CALL getin_(name,value)
+    IF(is_mpi_root) PRINT *,'GETIN ',TRIM(name), ' = ', value
 !$OMP END MASTER
     IF (omp_in_parallel()) CALL bcast_omp(value)
@@ -57 +63 @@
   USE ioipsl, ONLY : getin_=>getin
   USE omp_para
+  USE mpipara
   USE transfert_omp_mod
   IMPLICIT NONE
@@ -64 +71 @@
 !$OMP MASTER    
     CALL getin_(name,value)
+    IF(is_mpi_root) PRINT *,'GETIN ',TRIM(name), ' = ', value
 !$OMP END MASTER
     IF (omp_in_parallel()) CALL bcast_omp(value)