Changeset 1499 for trunk/NEMO
- Timestamp:
- 2009-07-20T16:51:20+02:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OFF_SRC/DOM/domrea.F90
r1327 r1499 187 187 DO jj = 1, jpj 188 188 DO ji = 1, jpi 189 mbathy(ji,jj) = zprt(ji,jj) * tmask(ji,jj,1) + 1189 mbathy(ji,jj) = MAX( zprt(ji,jj) * tmask(ji,jj,1), 1. ) + 1 190 190 ENDDO 191 191 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.