Changeset 789 for trunk/NEMO/OPA_SRC/ZDF/zdfevd.F90

Timestamp:

2008-01-11T19:04:56+01:00 (16 years ago)

Author:

rblod

Message:

Suppress jki routines and associated key_mpp_omp

File:

• trunk/NEMO/OPA_SRC/ZDF/zdfevd.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/ZDF/zdfevd.F90

@@ -79 +79 @@
          DO jk = 1, jpkm1                                 ! Horizontal slab
             !                                             ! ===============
-#   if defined key_vectopt_loop   &&   ! defined key_mpp_omp
+#   if defined key_vectopt_loop
 !!!         WHERE( rn2(:,:,jk) <= -1.e-12 ) avt(:,:,jk) = tmask(:,:,jk) * avevd   ! agissant sur T SEUL!
             jj = 1                     ! big loop forced
@@ -129 +129 @@
             !                                             ! ===============
 !!!         WHERE( rn2(:,:,jk) <= -1.e-12 ) avt(:,:,jk) = tmask(:,:,jk) * avevd   ! agissant sur T SEUL! 
-#   if defined key_vectopt_loop   &&   ! defined key_mpp_omp
+#   if defined key_vectopt_loop
             jj = 1                     ! big loop forced
             DO ji = 1, jpij