Changeset 12967 for NEMO/branches

Timestamp:

2020-05-25T20:16:17+02:00 (4 years ago)

Author:

cetlod

Message:

branch clem_dan_fixcpl : remove duplicated lines in p4zfechem PISCES routine. Fix to be done also in the trunk

File:

• NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/TOP/PISCES/P4Z/p4zfechem.F90 (modified) (1 diff)

NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/TOP/PISCES/P4Z/p4zfechem.F90

@@ -121 +121 @@
                !
                zfeequi = zFe3(ji,jj,jk) * 1E-9
-               zhplus  = max( rtrn, hi(ji,jj,jk) )
-               fe3sol  = fesol(ji,jj,jk,1) * ( zhplus**3 + fesol(ji,jj,jk,2) * zhplus**2  &
-                  &         + fesol(ji,jj,jk,3) * zhplus + fesol(ji,jj,jk,4)     &
-                  &         + fesol(ji,jj,jk,5) / zhplus )
                zfecoll = 0.5 * zFeL1(ji,jj,jk) * 1E-9
                ! precipitation of Fe3+, creation of nanoparticles