New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 789 for trunk/NEMO/OPA_SRC/DYN/dynvor.F90 – NEMO

Ignore:
Timestamp:
2008-01-11T19:04:56+01:00 (16 years ago)
Author:
rblod
Message:

Suppress jki routines and associated key_mpp_omp

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/DYN/dynvor.F90

    r719 r789  
    226226 
    227227!CDIR PARALLEL DO PRIVATE( zwx, zwy, zwz ) 
    228 !$OMP PARALLEL DO PRIVATE( zwx, zwy, zwz ) 
    229228      !                                                ! =============== 
    230229      DO jk = 1, jpkm1                                 ! Horizontal slab 
    … …  
    333332 
    334333!CDIR PARALLEL DO PRIVATE( zwx, zwy, zwz, zww ) 
    335 !$OMP PARALLEL DO PRIVATE( zwx, zwy, zwz, zww ) 
    336334      !                                                ! =============== 
    337335      DO jk = 1, jpkm1                                 ! Horizontal slab 
    … …  
    444442 
    445443!CDIR PARALLEL DO PRIVATE( zwx, zwy, zwz ) 
    446 !$OMP PARALLEL DO PRIVATE( zwx, zwy, zwz ) 
    447444      !                                                ! =============== 
    448445      DO jk = 1, jpkm1                                 ! Horizontal slab 
    … …  
    567564       
    568565!CDIR PARALLEL DO PRIVATE( zwx, zwy, zwz, ztnw, ztne, ztsw, ztse ) 
    569 !$OMP PARALLEL DO PRIVATE( zwx, zwy, zwz, ztnw, ztne, ztsw, ztse ) 
    570566      !                                                ! =============== 
    571567      DO jk = 1, jpkm1                                 ! Horizontal slab 
Note: See TracChangeset for help on using the changeset viewer.