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 1197 for trunk/NEMO/TOP_SRC/TRP/zpshde_trc.F90 – NEMO

Ignore:
Timestamp:
2008-09-22T10:03:39+02:00 (16 years ago)
Author:
cetlod
Message:

remove useless CPP key, key_mpp_omp in passive tracers transport routines, see ticket:49

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/TOP_SRC/TRP/zpshde_trc.F90

    r1152 r1197  
    125125      DO jn = 1, jptra 
    126126         ! Interpolation of passive tracers at the last ocean level 
    127 # if defined key_vectopt_loop   &&   ! defined key_mpp_omp 
     127# if defined key_vectopt_loop 
    128128         jj = 1 
    129129         DO ji = 1, jpij-jpi   ! vector opt. (forced unrolled) 
     
    170170                  pgtrv(ji,jj,jn) = vmask(ji,jj,1) * ( ptra(ji,jj+1,ikv,jn) - ztraj(ji,jj,jn) ) 
    171171               ENDIF 
    172 # if ! defined key_vectopt_loop   ||   defined key_mpp_omp 
     172# if ! defined key_vectopt_loop 
    173173            END DO 
    174174# endif 
Note: See TracChangeset for help on using the changeset viewer.