Changeset 1329 for trunk/NEMO/TOP_SRC/PISCES/p4zbio.F90
- Timestamp:
- 2009-02-20T11:32:52+01:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/PISCES/p4zbio.F90
r1289 r1329 128 128 129 129 # if defined key_trc_dia3d && defined key_kriest 130 trc3d(:,:,:,jp_pcs0_3d + 10) = tra(:,:,:,jpcal) * xnegtr(:,:,:) * 1.e3 * rfact2r 130 trc3d(:,:,:,jp_pcs0_3d + 10) = tra(:,:,:,jpcal) & 131 & * xnegtr(:,:,:) * 1.e3 * rfact2r * tmask(:,:,:) 131 132 # endif 132 133 !
Note: See TracChangeset
for help on using the changeset viewer.