Changeset 14786 for NEMO/branches/2021/dev_r14383_PISCES_NEWDEV_PISCO/src/TOP/PISCES/P4Z/p4zfechem.F90

Timestamp:

2021-05-05T09:09:10+02:00 (3 years ago)

Author:

aumont

Message:

Various bug fixes in PISCES

File:

• NEMO/branches/2021/dev_r14383_PISCES_NEWDEV_PISCO/src/TOP/PISCES/P4Z/p4zfechem.F90 (modified) (2 diffs)

NEMO/branches/2021/dev_r14383_PISCES_NEWDEV_PISCO/src/TOP/PISCES/P4Z/p4zfechem.F90

@@ -120 +120 @@
          &         + fesol(ji,jj,jk,5) / zhplus )
          !
-         zfecoll = 0.5 * zFeL1(ji,jj,jk) * 1E-9
+         zfecoll = 0.5 * zFeL1(ji,jj,jk)
          ! precipitation of Fe3+, creation of nanoparticles
          zprecip = MAX( 0., ( zFe3(ji,jj,jk) - fe3sol ) ) * kfep * xstep * ( 1.0 - nitrfac(ji,jj,jk) ) 
@@ -198 +198 @@
              zlcoll3d(ji,jj,jk)  = zaggliga + zaggligb
          END_3D
-         plig(:,:,:) =  MAX( 0., ( ( zFeL1(:,:,:) * 1E-9 ) / ( tr(:,:,:,jpfer,Kbb) +rtrn ) ) )
-         !
-      ENDIF
+      ENDIF
+
       !  Output of some diagnostics variables
       !     ---------------------------------