Changeset 12967
- Timestamp:
- 2020-05-25T20:16:17+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/TOP/PISCES/P4Z/p4zfechem.F90
r12276 r12967 121 121 ! 122 122 zfeequi = zFe3(ji,jj,jk) * 1E-9 123 zhplus = max( rtrn, hi(ji,jj,jk) )124 fe3sol = fesol(ji,jj,jk,1) * ( zhplus**3 + fesol(ji,jj,jk,2) * zhplus**2 &125 & + fesol(ji,jj,jk,3) * zhplus + fesol(ji,jj,jk,4) &126 & + fesol(ji,jj,jk,5) / zhplus )127 123 zfecoll = 0.5 * zFeL1(ji,jj,jk) * 1E-9 128 124 ! precipitation of Fe3+, creation of nanoparticles
Note: See TracChangeset
for help on using the changeset viewer.