Changeset 2852
- Timestamp:
- 2011-09-21T15:10:04+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_r2787_PISCES_improvment/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zsed.F90
r2823 r2852 296 296 #if defined key_iomput 297 297 zwork1(:,:) = ( zirondep(:,:,1) + ironsed(:,:,1) * rfact2 ) * zfact * fse3t(:,:,1) * tmask(:,:,1) 298 zwork2(:,:) = znitrpot(:,:,1) * nitr if* zfact * fse3t(:,:,1) * tmask(:,:,1)298 zwork2(:,:) = znitrpot(:,:,1) * nitrfix * zfact * fse3t(:,:,1) * tmask(:,:,1) 299 299 IF( jnt == nrdttrc ) THEN 300 300 CALL iom_put( "Irondep", zwork1 ) ! surface downward net flux of iron … … 302 302 ENDIF 303 303 #else 304 trc2d(:,:,jp_pcs0_2d + 11) = zirondep(:,:,1) * zfact * fse3t(:,:,1) * tmask(:,:,1)305 trc2d(:,:,jp_pcs0_2d + 12) = znitrpot(:,:,1) * nitr if* zfact * fse3t(:,:,1) * tmask(:,:,1)304 trc2d(:,:,jp_pcs0_2d + 11) = zirondep(:,:,1) * zfact * fse3t(:,:,1) * tmask(:,:,1) 305 trc2d(:,:,jp_pcs0_2d + 12) = znitrpot(:,:,1) * nitrfix * zfact * fse3t(:,:,1) * tmask(:,:,1) 306 306 #endif 307 307 !
Note: See TracChangeset
for help on using the changeset viewer.