Changeset 14045 for NEMO/trunk/src/OCE/TRA/traatf.F90

Timestamp:

2020-12-03T13:04:25+01:00 (3 years ago)

Author:

acc

Message:

Reintegrate dev_r13787_OSMOSIS_IMMERSE branch onto the trunk

File:

• NEMO/trunk/src/OCE/TRA/traatf.F90 (modified) (1 diff)

NEMO/trunk/src/OCE/TRA/traatf.F90

@@ -117 +117 @@
       IF( l_trdtra )   THEN                    
          ALLOCATE( ztrdt(jpi,jpj,jpk) , ztrds(jpi,jpj,jpk) )
-         ztrdt(:,:,jpk) = 0._wp
-         ztrds(:,:,jpk) = 0._wp
+         ztrdt(:,:,:) = 0._wp
+         ztrds(:,:,:) = 0._wp
          IF( ln_traldf_iso ) THEN              ! diagnose the "pure" Kz diffusive trend 
             CALL trd_tra( kt, Kmm, Kaa, 'TRA', jp_tem, jptra_zdfp, ztrdt )