Changeset 12276 for NEMO/trunk/src/TOP/PISCES/P4Z/p4zsed.F90
- Timestamp:
- 2019-12-20T12:14:26+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/TOP/PISCES/P4Z/p4zsed.F90
r10788 r12276 109 109 tra(:,:,1,jpfer) = tra(:,:,1,jpfer) + zironice(:,:) 110 110 ! 111 IF( lk_iomput .AND. knt == nrdttrc .AND. iom_use( "Ironice" )) &111 IF( lk_iomput .AND. knt == nrdttrc ) & 112 112 & CALL iom_put( "Ironice", zironice(:,:) * 1.e+3 * rfact2r * e3t_n(:,:,1) * tmask(:,:,1) ) ! iron flux from ice 113 113 ! … … 143 143 ENDDO 144 144 ! 145 IF( lk_iomput ) THEN 146 IF( knt == nrdttrc ) THEN 147 IF( iom_use( "Irondep" ) ) & 148 & CALL iom_put( "Irondep", zirondep(:,:,1) * 1.e+3 * rfact2r * e3t_n(:,:,1) * tmask(:,:,1) ) ! surface downward dust depo of iron 149 IF( iom_use( "pdust" ) ) & 150 & CALL iom_put( "pdust" , dust(:,:) / ( wdust * rday ) * tmask(:,:,1) ) ! dust concentration at surface 151 ENDIF 145 IF( lk_iomput .AND. knt == nrdttrc ) THEN 146 CALL iom_put( "Irondep", zirondep(:,:,1) * 1.e+3 * rfact2r * e3t_n(:,:,1) * tmask(:,:,1) ) ! surface downward dust depo of iron 147 CALL iom_put( "pdust" , dust(:,:) / ( wdust * rday ) * tmask(:,:,1) ) ! dust concentration at surface 152 148 ENDIF 153 149 DEALLOCATE( zsidep, zpdep, zirondep ) … … 207 203 ENDIF 208 204 ! 209 IF( lk_iomput .AND. knt == nrdttrc .AND. iom_use( "HYDR" )) &205 IF( lk_iomput .AND. knt == nrdttrc ) & 210 206 & CALL iom_put( "HYDR", hydrofe(:,:,:) * 1.e+3 * tmask(:,:,:) ) ! hydrothermal iron input 211 207 ENDIF … … 229 225 tra(:,:,:,jpfer) = tra(:,:,:,jpfer) + ironsed(:,:,:) * rfact2 230 226 ! 231 IF( lk_iomput .AND. knt == nrdttrc .AND. iom_use( "Ironsed" )) &227 IF( lk_iomput .AND. knt == nrdttrc ) & 232 228 & CALL iom_put( "Ironsed", ironsed(:,:,:) * 1.e+3 * tmask(:,:,:) ) ! iron inputs from sediments 233 229 ENDIF … … 467 463 IF( knt == nrdttrc ) THEN 468 464 zfact = 1.e+3 * rfact2r ! conversion from molC/l/kt to molN/m3/s 469 IF( iom_use("Nfix" ) ) CALL iom_put( "Nfix", nitrpot(:,:,:) * nitrfix * rno3 * zfact * tmask(:,:,:) ) ! nitrogen fixation 470 IF( iom_use("INTNFIX") ) THEN ! nitrogen fixation rate in ocean ( vertically integrated ) 471 zwork(:,:) = 0. 472 DO jk = 1, jpkm1 473 zwork(:,:) = zwork(:,:) + nitrpot(:,:,jk) * nitrfix * rno3 * zfact * e3t_n(:,:,jk) * tmask(:,:,jk) 474 ENDDO 475 CALL iom_put( "INTNFIX" , zwork ) 476 ENDIF 477 IF( iom_use("SedCal" ) ) CALL iom_put( "SedCal", zsedcal(:,:) * zfact ) 478 IF( iom_use("SedSi" ) ) CALL iom_put( "SedSi", zsedsi (:,:) * zfact ) 479 IF( iom_use("SedC" ) ) CALL iom_put( "SedC", zsedc (:,:) * zfact ) 480 IF( iom_use("Sdenit" ) ) CALL iom_put( "Sdenit", sdenit (:,:) * zfact * rno3 ) 465 CALL iom_put( "Nfix", nitrpot(:,:,:) * nitrfix * rno3 * zfact * tmask(:,:,:) ) ! nitrogen fixation 466 CALL iom_put( "SedCal", zsedcal(:,:) * zfact ) 467 CALL iom_put( "SedSi", zsedsi (:,:) * zfact ) 468 CALL iom_put( "SedC", zsedc (:,:) * zfact ) 469 CALL iom_put( "Sdenit", sdenit (:,:) * zfact * rno3 ) 481 470 ENDIF 482 471 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.