Changeset 1694 for trunk/NEMO/OPA_SRC/LDF
- Timestamp:
- 2009-10-30T17:06:23+01:00 (15 years ago)
- Location:
- trunk/NEMO/OPA_SRC/LDF
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/LDF/ldfdyn_c2d.h90
r1581 r1694 259 259 icof(:,:) = icof(:,:) * tmask(:,:,1) 260 260 DO jj = 1, jpjm1 261 DO ji = 1, jpim1 261 DO ji = 1, jpim1 ! NO vector opt. 262 262 zmsk = tmask(ji,jj+1,1) + tmask(ji+1,jj+1,1) + tmask(ji,jj,1) + tmask(ji,jj+1,1) 263 263 IF( zmsk == 0. ) THEN -
trunk/NEMO/OPA_SRC/LDF/ldfdyn_c3d.h90
r1581 r1694 350 350 icof(:,:) = icof(:,:) * tmask(:,:,1) 351 351 DO jj = 1, jpjm1 352 DO ji = 1, jpim1 352 DO ji = 1, jpim1 ! NO vector opt. 353 353 zmsk = tmask(ji,jj+1,1) + tmask(ji+1,jj+1,1) + tmask(ji,jj,1) + tmask(ji,jj+1,1) 354 354 IF( zmsk == 0. ) THEN
Note: See TracChangeset
for help on using the changeset viewer.