Changeset 216

Timestamp:

07/16/14 01:18:40 (10 years ago)

Author:

dubos

Message:

Fixed circular dependency with getin.f90

File:

• codes/icosagcm/trunk/src/mpipara.F90 (modified) (1 diff)

codes/icosagcm/trunk/src/mpipara.F90

@@ -18 +18 @@
   END INTERFACE free_mpi_buffer
 
+  PRIVATE :: getin
+
 CONTAINS
 
+  SUBROUTINE getin(name,value) ! Copied from getin.f90 to avoid circular dependency
+  USE ioipsl, ONLY : getin_=>getin
+  USE transfert_omp_mod
+  USE omp_para
+  IMPLICIT NONE
+    CHARACTER(LEN=*) :: name
+    CHARACTER(LEN=*) :: value
+
+!$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)
+  END SUBROUTINE getin
+
   SUBROUTINE init_mpipara
   USE mpi_mod
-  USE getin_mod
 #ifdef CPP_USING_XIOS
   USE xios