Changeset 15090 for NEMO/trunk/src/TOP/PISCES/P4Z/p4zbio.F90

Timestamp:

2021-07-06T16:25:18+02:00 (3 years ago)

Author:

cetlod

Message:

trunk : minor changes in PISCES to make it work in debug mode when nn_hls=2 ( still not working when enabling tiles )

File:

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

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

@@ -72 +72 @@
       xdiss(:,:,:) = 1.
 !!gm the use of nmld should be better here?
-      DO_3D( 1, 1, 1, 1, 2, jpkm1 )
+      DO_3D( nn_hls, nn_hls, nn_hls, nn_hls, 2, jpkm1 )
 !!gm  :  use nmln  and test on jk ...  less memory acces
          IF( gdepw(ji,jj,jk+1,Kmm) > hmld(ji,jj) )   xdiss(ji,jj,jk) = 0.01