Changeset 789 for trunk/NEMO/OPA_SRC/TRA/traldf_iso.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/TRA/traldf_iso.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/TRA/traldf_iso.F90

@@ -18 +18 @@
    !!                  and with the vertical part of
    !!                  the isopycnal or geopotential s-coord. operator 
-   !!                  vector optimization, use k-j-i loops.
    !!----------------------------------------------------------------------
    USE oce             ! ocean dynamics and active tracers
@@ -151 +150 @@
       
 !CDIR PARALLEL DO PRIVATE( zdk1t, zdk1s, zftu, zfsu ) 
-!$OMP PARALLEL DO PRIVATE( zdk1t, zdk1s, zftu, zfsu )
       !                                                ! ===============
       DO jk = 1, jpkm1                                 ! Horizontal slab