Ignore:
Timestamp:
2017-01-18T16:28:55+01:00 (5 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.