Changeset 3685


Ignore:
Timestamp:
2012-11-27T16:39:02+01:00 (9 years ago)
Author:
cetlod
Message:

trunk: minor bug correction in p4zsink

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zsink.F90

    r3637 r3685  
    697697            DO ji = 1, jpi 
    698698               zflx = ( psinkflx(ji,jj,jk) - psinkflx(ji,jj,jk+1) ) / fse3t(ji,jj,jk) 
    699                ztrb(ji,jj,jk,jp_tra) = ztrb(ji,jj,jk,jp_tra) + 2. * zflx 
     699               ztrb(ji,jj,jk) = ztrb(ji,jj,jk) + 2. * zflx 
    700700            END DO 
    701701         END DO 
    702702      END DO 
    703703 
    704       trn     (:,:,:,jp_tra) = ztrb(:,:,:,jp_tra) 
     704      trn     (:,:,:,jp_tra) = ztrb(:,:,:) 
    705705      psinkflx(:,:,:)        = 2. * psinkflx(:,:,:) 
    706706      ! 
Note: See TracChangeset for help on using the changeset viewer.