Changeset 1197 for trunk/NEMO/TOP_SRC/TRP/zpshde_trc.F90
- Timestamp:
- 2008-09-22T10:03:39+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/TRP/zpshde_trc.F90
r1152 r1197 125 125 DO jn = 1, jptra 126 126 ! Interpolation of passive tracers at the last ocean level 127 # if defined key_vectopt_loop && ! defined key_mpp_omp127 # if defined key_vectopt_loop 128 128 jj = 1 129 129 DO ji = 1, jpij-jpi ! vector opt. (forced unrolled) … … 170 170 pgtrv(ji,jj,jn) = vmask(ji,jj,1) * ( ptra(ji,jj+1,ikv,jn) - ztraj(ji,jj,jn) ) 171 171 ENDIF 172 # if ! defined key_vectopt_loop || defined key_mpp_omp172 # if ! defined key_vectopt_loop 173 173 END DO 174 174 # endif
Note: See TracChangeset
for help on using the changeset viewer.