Changeset 1694 for trunk/NEMO/OPA_SRC/LDF/ldfdyn_c2d.h90
- Timestamp:
- 2009-10-30T17:06:23+01:00 (15 years ago)
- File:
-
- 1 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
Note: See TracChangeset
for help on using the changeset viewer.