Changeset 2547
- Timestamp:
- 2011-01-11T16:37:22+01:00 (14 years ago)
- File:
-
- 1 edited
-
trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynbfr.F90 (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynbfr.F90
r2528 r2547 71 71 ! Apply stability criteria on absolute value : abs(bfr/e3) < 1/(2dt) => bfr/e3 > -1/(2dt) 72 72 ua(ji,jj,ikbu) = ua(ji,jj,ikbu) + MAX( bfrua(ji,jj) / fse3u(ji,jj,ikbu) , zm1_2dt ) * ub(ji,jj,ikbu) 73 va(ji,jj,ikbv) = va(ji,jj,ikbv) + MAX( bfr ua(ji,jj) / fse3v(ji,jj,ikbu) , zm1_2dt ) * vb(ji,jj,ikbv)73 va(ji,jj,ikbv) = va(ji,jj,ikbv) + MAX( bfrva(ji,jj) / fse3v(ji,jj,ikbv) , zm1_2dt ) * vb(ji,jj,ikbv) 74 74 END DO 75 75 END DO
Note: See TracChangeset
for help on using the changeset viewer.
