Changeset 12276 for NEMO/trunk/src/TOP/PISCES/P4Z/p4zmeso.F90
- Timestamp:
- 2019-12-20T12:14:26+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/TOP/PISCES/P4Z/p4zmeso.F90
r12232 r12276 224 224 ! 225 225 IF( lk_iomput .AND. knt == nrdttrc ) THEN 226 zgrazing2(:,:,jpk) = 0._wp 227 zfezoo2 (:,:,jpk) = 0._wp 228 CALL iom_put( "GRAZ2" , zgrazing2(:,:,:) * 1.e+3 * rfact2r * tmask(:,:,:) ) ! Total grazing of phyto by zooplankton 229 CALL iom_put( "PCAL" , prodcal (:,:,:) * 1.e+3 * rfact2r * tmask(:,:,:) ) ! Calcite production 230 CALL iom_put( "FEZOO2", zfezoo2 (:,:,:) * 1e9 * 1.e+3 * rfact2r * tmask(:,:,:) ) 231 IF( ln_ligand ) THEN 232 zz2ligprod(:,:,jpk) = 0._wp 233 CALL iom_put( "LPRODZ2", zz2ligprod(:,:,:) * 1e9 * 1.e+3 * rfact2r * tmask(:,:,:) ) 226 CALL iom_put( "PCAL" , prodcal(:,:,:) * 1.e+3 * rfact2r * tmask(:,:,:) ) ! Calcite production 227 IF( iom_use("GRAZ2") ) THEN ! Total grazing of phyto by zooplankton 228 zgrazing2(:,:,jpk) = 0._wp ; CALL iom_put( "GRAZ2" , zgrazing2(:,:,:) * 1.e+3 * rfact2r * tmask(:,:,:) ) 229 ENDIF 230 IF( iom_use("FEZOO2") ) THEN 231 zfezoo2 (:,:,jpk) = 0._wp ; CALL iom_put( "FEZOO2", zfezoo2(:,:,:) * 1e9 * 1.e+3 * rfact2r * tmask(:,:,:) ) 232 ENDIF 233 IF( ln_ligand ) THEN 234 zz2ligprod(:,:,jpk) = 0._wp ; CALL iom_put( "LPRODZ2", zz2ligprod(:,:,:) * 1e9 * 1.e+3 * rfact2r * tmask(:,:,:) ) 234 235 ENDIF 235 236 ENDIF … … 270 271 ENDIF 271 272 ! 272 REWIND( numnatp_ref ) ! Namelist nampismes in reference namelist : Pisces mesozooplankton273 REWIND( numnatp_ref ) 273 274 READ ( numnatp_ref, namp4zmes, IOSTAT = ios, ERR = 901) 274 275 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zmes in reference namelist' ) 275 REWIND( numnatp_cfg ) ! Namelist nampismes in configuration namelist : Pisces mesozooplankton 276 277 REWIND( numnatp_cfg ) 276 278 READ ( numnatp_cfg, namp4zmes, IOSTAT = ios, ERR = 902 ) 277 279 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zmes in configuration namelist' )
Note: See TracChangeset
for help on using the changeset viewer.