Changeset 2912 for LMDZ5/trunk/libf/phylmd/surface_data.F90

Timestamp:

Jun 14, 2017, 10:26:55 AM (7 years ago)

Author:

jghattas

Message:

• Added OMP_THREADPRIVATE for varibales fields_cpl, nb_fields_cpl, type_veget.
• Removed variable flag_omp never used.

File:

• LMDZ5/trunk/libf/phylmd/surface_data.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/surface_data.F90

@@ -9 +9 @@
   
   LOGICAL, SAVE          :: ok_veget      ! true for use of vegetation model ORCHIDEE
-  CHARACTER(len=10), SAVE :: type_veget    ! orchidee/y/bucket/n/betaclim
   !$OMP THREADPRIVATE(ok_veget)
-  ! Martin
+
+  CHARACTER(len=10), SAVE :: type_veget   ! orchidee/y/bucket/n/betaclim
+  !$OMP THREADPRIVATE(type_veget)
+
   LOGICAL, SAVE          :: ok_snow       ! true for coupling to snow model SISVAT
   !$OMP THREADPRIVATE(ok_snow)
-  ! Martin
 
   CHARACTER(len=6), SAVE :: type_ocean    ! force/slab/couple