Changeset 1125 for trunk/NEMO/OPA_SRC/DOM
- Timestamp:
- 2008-06-23T11:05:02+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DOM/domvvl.F90
r1058 r1125 302 302 #endif 303 303 304 #if defined key_bdy || defined key_bdy_tides 305 DO jj = 1, jpj 306 DO ji = 1, jpi 307 zhdiv(ji,jj) = zhdiv(ji,jj)*bdytmask(ji,jj) 308 END DO 309 END DO 304 #if defined key_bdy 305 zhdiv(:,:) = zhdiv(:,:) * bdytmask(:,:) 310 306 #endif 311 307
Note: See TracChangeset
for help on using the changeset viewer.