Changeset 10906 for NEMO/releases/release-4.0/src/OCE/ZDF/zdfphy.F90

Timestamp:

2019-04-29T17:36:57+02:00 (5 years ago)

Author:

clem

Message:

solve ticket #2275. Repro was just a matter of lbc (for Cu_adv) and an extended loop (for wi). Restartability was tricky (one needed to change r2dt by 2*rdt)

File:

• NEMO/releases/release-4.0/src/OCE/ZDF/zdfphy.F90 (modified) (1 diff)

NEMO/releases/release-4.0/src/OCE/ZDF/zdfphy.F90

@@ -132 +132 @@
       IF( ln_zad_Aimp ) THEN
          IF( zdf_phy_alloc() /= 0 )   &
-        &       CALL ctl_stop( 'STOP', 'zdf_phy_init : unable to allocate adaptive-implicit z-advection arrays' )
-         wi(:,:,:) = 0._wp
+            &       CALL ctl_stop( 'STOP', 'zdf_phy_init : unable to allocate adaptive-implicit z-advection arrays' )
+         Cu_adv(:,:,:) = 0._wp
+         wi    (:,:,:) = 0._wp
       ENDIF
       !                          !==  Background eddy viscosity and diffusivity  ==!