Changeset 15249 for NEMO/trunk/src/OCE/ZDF/zdfphy.F90

Timestamp:

2021-09-13T11:59:09+02:00 (3 years ago)

Author:

hadcv

Message:

#2721: Fix SETTE debug failures

File:

• NEMO/trunk/src/OCE/ZDF/zdfphy.F90 (modified) (1 diff)

NEMO/trunk/src/OCE/ZDF/zdfphy.F90

@@ -146 +146 @@
          wi    (:,:,:) = 0._wp
       ENDIF
+      !                                  ! Initialise zdf_mxl arrays (only hmld as not set everywhere when nn_hls > 1)
+      IF( zdf_mxl_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'zdf_mxl : unable to allocate arrays' )
+      hmld(:,:) = 0._wp
       !                          !==  Background eddy viscosity and diffusivity  ==!
       IF( nn_avb == 0 ) THEN             ! Define avmb, avtb from namelist parameter