Changeset 320 for codes/icosagcm/trunk/src/omp_para.F90

Timestamp:

01/22/15 01:21:09 (9 years ago)

Author:

dubos

Message:

Fixed circular dependency

File:

• codes/icosagcm/trunk/src/omp_para.F90 (modified) (2 diffs)

codes/icosagcm/trunk/src/omp_para.F90

@@ -58 +58 @@
   PRIVATE :: ll_begin_distrib, ll_beginp1_distrib, ll_end_distrib, ll_endm1_distrib, ll_endp1_distrib 
 
-
 CONTAINS
-
 
   SUBROUTINE init_omp_para(is_mpi_master)
   USE grid_param
-  USE getin_mod
+  USE ioipsl, ONLY : getin
 #ifdef CPP_USING_OMP
   USE omp_lib
@@ -101 +99 @@
     omp_level_size=1 
     CALL getin("omp_level_size",omp_level_size)
+    IF(is_mpi_master) PRINT *,'GETIN omp_level_size', ' = ', omp_level_size
+
     IF (MOD(omp_size,omp_level_size)/=0) THEN
       IF (is_mpi_master) PRINT*,"omp_size /= omp_level_size x omp_domain_size  => disable omp threads on vertical layers"