Changeset 2715 for trunk/NEMOGCM/NEMO/TOP_SRC/LOBSTER/trcexp.F90
- Timestamp:
- 2011-03-30T17:58:35+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/LOBSTER/trcexp.F90
r2528 r2715 101 101 sedpoca(ji,jj) = ( zwork + dminl(ji,jj) * fbod(ji,jj) & 102 102 & - sedlam * sedpocn(ji,jj) - sedlostpoc * sedpocn(ji,jj) ) * rdt 103 zgeolpoc = zgeolpoc + sedlostpoc * sedpocn(ji,jj) * e1 t(ji,jj) *e2t(ji,jj)103 zgeolpoc = zgeolpoc + sedlostpoc * sedpocn(ji,jj) * e1e2t(ji,jj) 104 104 END DO 105 105 END DO
Note: See TracChangeset
for help on using the changeset viewer.