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

Timestamp:

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

Author:

dubos

Message:

Thread safety fixes

File:

• codes/icosagcm/trunk/src/write_field.f90 (modified) (3 diffs)

codes/icosagcm/trunk/src/write_field.f90

@@ -1 +1 @@
 module write_field_mod
-USE genmod
-implicit none
+  USE genmod
+  IMPLICIT NONE
   PRIVATE  
   INTEGER,SAVE :: ncprec
@@ -24 +24 @@
   
     SUBROUTINE init_writeField
-    USE ioipsl
-    use netcdf_mod
-    IMPLICIT NONE
+      USE ioipsl
+      use netcdf_mod
       CHARACTER(LEN=255) :: netcdf_prec
-      
+      !$OMP CRITICAL
       netcdf_prec='float'
       CALL getin("netcdf_prec",netcdf_prec)
-      
       SELECT CASE(TRIM(netcdf_prec))
         CASE('float')
@@ -41 +39 @@
         STOP   
       END SELECT
+      !$OMP END CRITICAL
     END SUBROUTINE init_writeField