Changeset 1694 for trunk/NEMO/OPA_SRC/LDF/ldfdyn_c3d.h90
- Timestamp:
- 2009-10-30T17:06:23+01:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
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.