- Timestamp:
- 2020-07-02T20:34:16+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11708_aumont_PISCES_QUOTA/src/TOP/PISCES/P4Z/p4zagg.F90
r12537 r13233 100 100 zaggdoc2 = ( 3.53E3 * zfact + 0.1 * xstep ) * trb(ji,jj,jk,jpgoc) * 0.3 * trb(ji,jj,jk,jpdoc) 101 101 ! tranfer of DOC to POC due to brownian motion 102 ! The temperature dependency has been omitted. 102 103 zaggdoc3 = 114. * 0.3 * trb(ji,jj,jk,jpdoc) *xstep * 0.3 * trb(ji,jj,jk,jpdoc) 103 104 … … 123 124 ! 124 125 zfact = xstep * xdiss(ji,jj,jk) 125 ! 126 ! Part I : Coagulation dependent on turbulence 126 127 ! The stickiness has been assumed to be 0.1 127 128 zaggtmp = 25.9 * zfact * trb(ji,jj,jk,jppoc)
Note: See TracChangeset
for help on using the changeset viewer.