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 1326 for trunk/NEMO/OFF_SRC/TRA/zpshde.F90 – NEMO

Ignore:
Timestamp:
2009-02-20T11:08:16+01:00 (15 years ago)
Author:
cetlod
Message:

suppression of useless CPP key key_mpp_omp, see ticket:350

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OFF_SRC/TRA/zpshde.F90

    r1152 r1326  
    130130 
    131131      ! Interpolation of T and S at the last ocean level 
    132 # if defined key_vectopt_loop   &&   ! defined key_mpp_omp 
     132# if defined key_vectopt_loop 
    133133         jj = 1 
    134134         DO ji = 1, jpij-jpi   ! vector opt. (forced unrolled) 
     
    193193               pgsv(ji,jj) = vmask(ji,jj,1) * ( psal(ji,jj+1,ikv) - zsj(ji,jj) ) 
    194194            ENDIF 
    195 # if ! defined key_vectopt_loop   ||   defined key_mpp_omp 
     195# if ! defined key_vectopt_loop 
    196196         END DO 
    197197# endif 
     
    205205 
    206206      ! Gradient of density at the last level  
    207 # if defined key_vectopt_loop   &&   ! defined key_mpp_omp 
     207# if defined key_vectopt_loop  
    208208         jj = 1 
    209209         DO ji = 1, jpij-jpi   ! vector opt. (forced unrolled) 
     
    226226               pgrv(ji,jj) = vmask(ji,jj,1) * ( prd(ji,jj+1,ikv) - zrj(ji,jj) ) 
    227227            ENDIF 
    228 # if ! defined key_vectopt_loop   ||   defined key_mpp_omp 
     228# if ! defined key_vectopt_loop 
    229229         END DO 
    230230# endif 
Note: See TracChangeset for help on using the changeset viewer.