Changeset 351 for codes/icosagcm/trunk/src/domain_param.f90

Timestamp:

08/06/15 10:39:21 (9 years ago)

Author:

dubos

Message:

Thread safety fixes

File:

• codes/icosagcm/trunk/src/domain_param.f90 (modified) (1 diff)

codes/icosagcm/trunk/src/domain_param.f90

@@ -1 +1 @@
 MODULE domain_param
+  IMPLICIT NONE
+  PRIVATE
+  INTEGER :: nsplit_i
+  INTEGER :: nsplit_j
+  INTEGER :: halo=1
 
-INTEGER :: nsplit_i
-INTEGER :: nsplit_j
-INTEGER :: halo=1
+  INTEGER, PARAMETER :: default_nsplit_i=1
+  INTEGER, PARAMETER :: default_nsplit_j=1
 
-INTEGER, PARAMETER :: default_nsplit_i=1
-INTEGER, PARAMETER :: default_nsplit_j=1
+  PUBLIC nsplit_i, nsplit_j, halo, init_domain_param
 
 CONTAINS
   
   SUBROUTINE init_domain_param
-  USE ioipsl
-  IMPLICIT NONE
+    USE ioipsl
+    !$OMP CRITICAL
     nsplit_i=default_nsplit_i
     nsplit_j=default_nsplit_j
     CALL getin('nsplit_i',nsplit_i)
     CALL getin('nsplit_j',nsplit_j)
+    !$OMP END CRITICAL
   END SUBROUTINE init_domain_param