Changeset 353 for codes/icosagcm/trunk/src/etat0_dcmip4.f90

Timestamp:

08/06/15 10:48:45 (9 years ago)

Author:

dubos

Message:

OpenMP fixes for DCMIP

File:

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

codes/icosagcm/trunk/src/etat0_dcmip4.f90

@@ -39 +39 @@
     USE icosa
     USE disvert_mod
+    USE omp_para
     INTEGER, INTENT(IN) :: ngrid
     REAL(rstd),INTENT(IN) :: lon(ngrid)
@@ -66 +67 @@
     ENDDO
     
-    DO l=1,llm
+    DO l=ll_begin,ll_end
        etal = 0.5 *( ap(l)/preff+bp(l) + ap(l+1)/preff+bp(l+1) )
        etavl=(etal-eta0)*Pi/2