- Timestamp:
- 2019-12-16T14:38:32+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/PISCES/P4Z/p4zrem.F90
r12236 r12258 69 69 REAL(wp), DIMENSION(jpi,jpj ) :: ztempbac 70 70 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zdepbac, zolimi, zdepprod, zfacsi, zfacsib, zdepeff, zfebact 71 REAL(wp), ALLOCATABLE, DIMENSION(:,:,:) :: zw3d72 71 !!--------------------------------------------------------------------- 73 72 ! … … 276 275 277 276 IF( knt == nrdttrc ) THEN 278 zrfact2 = 1.e3 * rfact2r 279 ALLOCATE( zw3d(jpi,jpj,jpk) ) 280 zfact = 1.e+3 * rfact2r ! conversion from mol/l/kt to mol/m3/s 277 zrfact2 = 1.e+3 * rfact2r ! conversion from mol/l/kt to mol/m3/s 281 278 ! 282 IF( iom_use( "REMIN" ) ) THEN 283 zw3d(:,:,:) = zolimi(:,:,:) * tmask(:,:,:) * zfact ! Remineralisation rate 284 CALL iom_put( "REMIN" , zw3d ) 279 IF( iom_use( "REMIN" ) ) THEN ! Remineralisation rate 280 zolimi(:,:,jpk) = 0. ; CALL iom_put( "REMIN" , zolimi(:,:,:) * tmask(:,:,:) * zrfact2 ) 285 281 ENDIF 286 IF( iom_use( "DENIT" ) ) THEN287 zw3d(:,:,:) = denitr(:,:,:) * rdenit * rno3 * tmask(:,:,:) * zfact ! Denitrification288 CALL iom_put( "DENIT" , zw3d)282 CALL iom_put( "DENIT" , denitr(:,:,:) * rdenit * rno3 * tmask(:,:,:) * zrfact2 ) ! Denitrification 283 IF( iom_use( "BACT" ) ) THEN ! Bacterial biomass 284 zdepbac(:,:,jpk) = 0. ; CALL iom_put( "BACT", zdepbac(:,:,:) * 1.E6 * tmask(:,:,:) ) 289 285 ENDIF 290 IF( iom_use( "BACT" ) ) THEN 291 zw3d(:,:,:) = zdepbac(:,:,:) * 1.E6 * tmask(:,:,:) ! Bacterial biomass 292 CALL iom_put( "BACT", zw3d ) 293 ENDIF 294 IF( iom_use( "FEBACT" ) ) THEN 295 zw3d(:,:,:) = zfebact(:,:,:) * 1E9 * tmask(:,:,:) * zrfact2 ! Bacterial iron consumption 296 CALL iom_put( "FEBACT" , zw3d ) 297 ENDIF 298 ! 299 DEALLOCATE( zw3d ) 286 CALL iom_put( "FEBACT" , zfebact(:,:,:) * 1E9 * tmask(:,:,:) * zrfact2 ) 300 287 ENDIF 301 288 !
Note: See TracChangeset
for help on using the changeset viewer.