Changeset 1315 for trunk/LMDZ.COMMON/libf/dyn3d_common/cpdet_mod.F90

Timestamp:

Jul 11, 2014, 4:15:06 PM (10 years ago)

Author:

milmd

Message:

LMDZ.GENERIC. OpenMP directives added in generic physic. When running in pure OpenMP or hybrid OpenMP/MPI, may have some bugs with condense_cloud and wstats routines.

File:

• trunk/LMDZ.COMMON/libf/dyn3d_common/cpdet_mod.F90 (modified) (4 diffs)

trunk/LMDZ.COMMON/libf/dyn3d_common/cpdet_mod.F90

@@ -142 +142 @@
 ! Parallel version of t2tpot, for an arbitrary number of columns
       USE control_mod, only : planet_type
+      USE parallel_lmdz, only : OMP_CHUNK
       IMPLICIT none
 
@@ -179 +180 @@
 ! Parallel version of t2tpot, over the full dynamics (scalar) grid
 ! (more efficient than multiple calls to t2tpot_p() with slices of data)
-      USE parallel_lmdz, only : jj_begin,jj_end
+      USE parallel_lmdz, only : jj_begin,jj_end,OMP_CHUNK
       USE control_mod, only : planet_type
       IMPLICIT none
@@ -223 +224 @@
 ! Parallel version of tpot2t, for an arbitrary number of columns
       USE control_mod, only : planet_type
+      USE parallel_lmdz, only : OMP_CHUNK
       IMPLICIT none
 ! for cpp, nu_venus and t0_venus:
@@ -259 +261 @@
 ! Parallel version of tpot2t, over the full dynamics (scalar) grid
 ! (more efficient than multiple calls to tpot2t_p() with slices of data)
-      USE parallel_lmdz, only : jj_begin,jj_end
+      USE parallel_lmdz, only : jj_begin,jj_end,OMP_CHUNK
       USE control_mod, only : planet_type
       IMPLICIT none