Changeset 1326 for trunk/NEMO/OFF_SRC/TRA/zpshde.F90
- Timestamp:
- 2009-02-20T11:08:16+01:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OFF_SRC/TRA/zpshde.F90
r1152 r1326 130 130 131 131 ! Interpolation of T and S at the last ocean level 132 # if defined key_vectopt_loop && ! defined key_mpp_omp132 # if defined key_vectopt_loop 133 133 jj = 1 134 134 DO ji = 1, jpij-jpi ! vector opt. (forced unrolled) … … 193 193 pgsv(ji,jj) = vmask(ji,jj,1) * ( psal(ji,jj+1,ikv) - zsj(ji,jj) ) 194 194 ENDIF 195 # if ! defined key_vectopt_loop || defined key_mpp_omp195 # if ! defined key_vectopt_loop 196 196 END DO 197 197 # endif … … 205 205 206 206 ! Gradient of density at the last level 207 # if defined key_vectopt_loop && ! defined key_mpp_omp207 # if defined key_vectopt_loop 208 208 jj = 1 209 209 DO ji = 1, jpij-jpi ! vector opt. (forced unrolled) … … 226 226 pgrv(ji,jj) = vmask(ji,jj,1) * ( prd(ji,jj+1,ikv) - zrj(ji,jj) ) 227 227 ENDIF 228 # if ! defined key_vectopt_loop || defined key_mpp_omp228 # if ! defined key_vectopt_loop 229 229 END DO 230 230 # endif
Note: See TracChangeset
for help on using the changeset viewer.