Merge branch '529-minor-optimisation-of-pisces-routines' into 'main'

small bugfix in "Minor optimisation of PISCES routines"

Closes #529

See merge request !691

(cherry picked from commit 789f105d)

e911cc0f bugfix

src/TOP/PISCES/P4Z/p4zpoc.F90

@@ -95,7 +95,9 @@ CONTAINS
 
       ! Initialisation of arrays
       orem(:,:,jpk) = 0._wp
-      pdep(:,:) = MAX( hmld(:,:), gdept(:,:,1,Kmm) ) 
+      DO_2D( 0, 0, 0, 0 )
+         pdep(ji,jj) = MAX( hmld(ji,jj), gdept(ji,jj,1,Kmm) )
+      END_2D
       !
       ll_newday  = nsec_day == NINT(0.5_wp * rn_Dt)  ! New day
       IF( ll_newday ) THEN   ;  ll_poc_lab = .TRUE.