Changeset 14175 for NEMO/releases/r4.0/r4.0-HEAD/src/OCE/TRD/trdtra.F90

Timestamp:

2020-12-15T19:25:24+01:00 (2 years ago)

Author:

hadcv

Message:

#2533: Fix uninitialised values in ttrd_evd diagnostic when ln_zdfevd = .false.

File:

• NEMO/releases/r4.0/r4.0-HEAD/src/OCE/TRD/trdtra.F90 (modified) (1 diff)

NEMO/releases/r4.0/r4.0-HEAD/src/OCE/TRD/trdtra.F90

@@ -89 +89 @@
       IF( .NOT. ALLOCATED( trdtx ) ) THEN      ! allocate trdtra arrays
          IF( trd_tra_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'trd_tra : unable to allocate arrays' )
+         avt_evd(:,:,:) = 0._wp
       ENDIF
       !