Changeset 13434 for NEMO/trunk/src/TOP/PISCES/P4Z/p4zlim.F90

Timestamp:

2020-08-25T15:24:01+02:00 (4 years ago)

Author:

cetlod

Message:

Minor bugfix to avoid that PISCES crashes in DEBUG mode when restarting

File:

• NEMO/trunk/src/TOP/PISCES/P4Z/p4zlim.F90 (modified) (1 diff)

NEMO/trunk/src/TOP/PISCES/P4Z/p4zlim.F90

@@ -161 +161 @@
          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
          zironmin = xcoef1 * tr(ji,jj,jk,jpdch,Kbb) * z1_trbdia + xcoef2 * zlim1 + xcoef3 * xdiatno3(ji,jj,jk)