Changeset 3685 for trunk/NEMOGCM/NEMO/TOP_SRC
- Timestamp:
- 2012-11-27T16:39:02+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zsink.F90
r3637 r3685 697 697 DO ji = 1, jpi 698 698 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. * zflx699 ztrb(ji,jj,jk) = ztrb(ji,jj,jk) + 2. * zflx 700 700 END DO 701 701 END DO 702 702 END DO 703 703 704 trn (:,:,:,jp_tra) = ztrb(:,:,: ,jp_tra)704 trn (:,:,:,jp_tra) = ztrb(:,:,:) 705 705 psinkflx(:,:,:) = 2. * psinkflx(:,:,:) 706 706 !
Note: See TracChangeset
for help on using the changeset viewer.