- Timestamp:
- 2010-10-13T10:48:48+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/TRA/traldf_lap.F90
r2104 r2240 57 57 !! difft = 1/(e1t*e2t*e3t) { di-1[ aht e2u*e3u/e1u di(tb) ] 58 58 !! + dj-1[ aht e1v*e3v/e2v dj(tb) ] } 59 !! Note: key_zco defined, the e3t=e3u=e3v, the trend becomes:60 !! difft = 1/(e1t*e2t) { di-1[ aht e2u/e1u di(tb) ]61 !! + dj-1[ aht e1v/e2v dj(tb) ] }62 59 !! Add this trend to the general tracer trend pta : 63 60 !! pta = pta + difft
Note: See TracChangeset
for help on using the changeset viewer.