New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 7573 for branches/UKMO/dev_r5518_GO6_package – NEMO

Ignore:
Timestamp:
2017-01-18T16:28:55+01:00 (7 years ago)
Author:
timgraham
Message:

Fix for out of bounds array introduced at r7554 (cause of seg faults).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/TRA/tranxt.F90

    r7554 r7573  
    129129      IF( l_trdtra )   THEN                     
    130130         CALL wrk_alloc( jpi, jpj, jpk, ztrdt, ztrds ) 
    131          ztrdt(:,:,jk) = 0._wp 
    132          ztrds(:,:,jk) = 0._wp 
     131         ztrdt(:,:,jpk) = 0._wp 
     132         ztrds(:,:,jpk) = 0._wp 
    133133         IF( ln_traldf_iso ) THEN              ! diagnose the "pure" Kz diffusive trend  
    134134            CALL trd_tra( kt, 'TRA', jp_tem, jptra_zdfp, ztrdt ) 
Note: See TracChangeset for help on using the changeset viewer.