Changeset 1694 for trunk/NEMO/OPA_SRC/DOM/domzgr.F90
- Timestamp:
- 2009-10-30T17:06:23+01:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DOM/domzgr.F90
r1639 r1694 1253 1253 hbatf(:,:) = rn_sbot_min 1254 1254 DO jj = 1, jpjm1 1255 DO ji = 1, jpim1 1255 DO ji = 1, jpim1 ! NO vector opt. 1256 1256 hbatu(ji,jj) = 0.5 * ( hbatt(ji ,jj) + hbatt(ji+1,jj ) ) 1257 1257 hbatv(ji,jj) = 0.5 * ( hbatt(ji ,jj) + hbatt(ji ,jj+1) )
Note: See TracChangeset
for help on using the changeset viewer.