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

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

@@ -98 +98 @@
       IF ( bmetexc2 ) zmetexcess = 1.0
 
-      DO_3D( 1, 1, 1, 1, 1, jpkm1 )
+      DO_3D( nn_hls, nn_hls, nn_hls, nn_hls, 1, jpkm1)
          zcompam   = MAX( ( tr(ji,jj,jk,jpmes,Kbb) - 1.e-9 ), 0.e0 )
          zfact     = xstep * tgfunc2(ji,jj,jk) * zcompam