Changeset 15586 for NEMO/branches/2021

Timestamp:

2021-12-08T12:16:15+01:00 (2 years ago)

Author:

techene

Message:

#2605 #2715 bug fix sette without tiling in debug mode (sette.sh -At) now OK except ICE_AGRIF

File:

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

NEMO/branches/2021/dev_r14318_RK3_stage1/src/TOP/PISCES/P4Z/p4zche.F90

@@ -519 +519 @@
    REAL(wp)  ::  zrhd
 
-    DO_3D( 1, 1, 1, 1, 1, jpk )
+    DO_3D( nn_hls, nn_hls, nn_hls, nn_hls, 1, jpk )
       zrhd = 1._wp / ( rhd(ji,jj,jk) + 1. )
       p_alknw_inf(ji,jj,jk) =  -tr(ji,jj,jk,jppo4,Kbb) * zrhd - sulfat(ji,jj,jk) &