Changeset 15444

Timestamp:

2021-10-25T12:54:42+02:00 (2 years ago)

Author:

cetlod

Message:

dev_PISCO : minor bugfix

File:

• NEMO/branches/2021/dev_r14383_PISCES_NEWDEV_PISCO/src/TOP/PISCES/P4Z/p4zlim.F90 (modified) (1 diff)

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

@@ -201 +201 @@
           zlim1    = xdiatno3(ji,jj,jk) + xdiatnh4(ji,jj,jk)
           zlim2    = tr(ji,jj,jk,jppo4,Kbb) / ( tr(ji,jj,jk,jppo4,Kbb) + zconc1dnh4  )
-          zlim3    = tr(ji,jj,jk,jpsil,Kbb) / ( tr(ji,jj,jk,jpsil,Kbb) + xksi(ji,jj) )
+          zlim3    = tr(ji,jj,jk,jpsil,Kbb) / ( tr(ji,jj,jk,jpsil,Kbb) + xksi(ji,jj) + rtrn )
           zratio   = tr(ji,jj,jk,jpdfe,Kbb) * z1_trbdia