Changeset 295 for codes/icosagcm/trunk/src/vorticity.f90

Timestamp:

10/31/14 14:52:01 (10 years ago)

Author:

ymipsl

Message:

Merging OpenMP parallisme mode : by subdomain and on vertical level.
This feature is actually experimental but may be retro-compatible with the last method based only on subdomain

YM

File:

• codes/icosagcm/trunk/src/vorticity.f90 (modified) (2 diffs)

codes/icosagcm/trunk/src/vorticity.f90

@@ -29 +29 @@
   USE icosa
   USE disvert_mod
+  USE omp_para
   IMPLICIT NONE
     REAL(rstd),INTENT(IN)  :: ue(3*iim*jjm,llm)
@@ -34 +35 @@
     INTEGER :: i,j,ij,l
 
-    DO l = 1,llm
+    DO l = ll_begin,ll_end
       DO j=jj_begin-1,jj_end+1
         DO i=ii_begin-1,ii_end+1