Changeset 4513


Ignore:
Timestamp:
2014-02-24T12:46:28+01:00 (7 years ago)
Author:
cetlod
Message:

v3.6alpha: bugfix in trcbbl.F90, see ticket #1248

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/TOP_SRC/TRP/trcbbl.F90

    r3294 r4513  
    9393        DO jn = 1, jptra 
    9494           ztrtrd(:,:,:,jn) = tra(:,:,:,jn) - ztrtrd(:,:,:,jn) 
    95            CALL trd_tra( kt, 'TRC', jn, jptra_trd_ldf, ztrtrd(:,:,:,jn) ) 
     95           CALL trd_tra( kt, 'TRC', jn, jptra_trd_bbl, ztrtrd(:,:,:,jn) ) 
    9696        END DO 
    9797        CALL wrk_dealloc( jpi, jpj, jpk, jptra, ztrtrd ) ! temporary save of trends 
Note: See TracChangeset for help on using the changeset viewer.