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/TRA/trabbc.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/TRA/trabbc.F90

    r719 r789  
    7575      INTEGER, INTENT( in ) ::   kt   ! ocean time-step index 
    7676      !! 
    77 #if defined key_vectopt_loop   &&   ! defined key_mpp_omp 
     77#if defined key_vectopt_loop 
    7878      INTEGER ::   ji       ! dummy loop indices 
    7979#else 
     
    9595      ! 
    9696      CASE ( 1:2 )                !  geothermal heat flux 
    97 #if defined key_vectopt_loop   &&   ! defined key_mpp_omp 
     97#if defined key_vectopt_loop 
    9898         DO ji = jpi+2, jpij-jpi-1   ! vector opt. (forced unrolling) 
    9999            zqgh_trd = ro0cpr * qgh_trd0(ji,1) / fse3t(ji,1,nbotlevt(ji,1) ) 
Note: See TracChangeset for help on using the changeset viewer.