Changeset 13434 for NEMO/trunk/src/TOP/PISCES/P4Z/p5zlim.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/p5zlim.F90 (modified) (1 diff)

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

@@ -306 +306 @@
          &          / (xqndmax(ji,jj,jk) - 2. * xqndmin(ji,jj,jk) ) )   &
          &          * xqndmax(ji,jj,jk) / (zration + rtrn)
-         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 )
          zlim4    = MAX( 0., ( zratiof - zqfemd ) / qfdopt )
          xlimdfe(ji,jj,jk) = MIN( 1., zlim4 )