Changeset 433 for trunk/NEMO/TOP_SRC/TRP/trczdf_imp.F90
- Timestamp:
- 2006-04-10T17:40:29+02:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/TRP/trczdf_imp.F90
r349 r433 159 159 DO ji = fs_2, fs_jpim1 ! vector opt. 160 160 ztra = ( zwx(ji,jj,jk) - trb(ji,jj,jk,jn) ) / rdttrc(jk) 161 trtrd(ji,jj,jk,jn,6) = ztra - tra(ji,jj,jk,jn) + trtrd(ji,jj,jk,jn,6)161 IF (luttrd(jn)) trtrd(ji,jj,jk,ikeep(jn),6) = ztra - tra(ji,jj,jk,jn) + trtrd(ji,jj,jk,ikeep(jn),6) 162 162 END DO 163 163 END DO … … 168 168 DO ji = fs_2, fs_jpim1 ! vector opt. 169 169 ztra = ( zwx(ji,jj,jk) - trb(ji,jj,jk,jn) ) / rdttrc(jk) 170 trtrd(ji,jj,jk,jn,6) = ztra - tra(ji,jj,jk,jn)170 IF (luttrd(jn)) trtrd(ji,jj,jk,ikeep(jn),6) = ztra - tra(ji,jj,jk,jn) 171 171 END DO 172 172 END DO
Note: See TracChangeset
for help on using the changeset viewer.