- Timestamp:
- 2018-10-29T15:20:26+01:00 (6 years ago)
- Location:
- branches/UKMO/dev_r5518_AMM15_package/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z
- Files:
-
- 15 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_AMM15_package/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zbio.F90
r10248 r10251 109 109 110 110 !!====================================================================== 111 END MODULE p4zbio 111 END MODULE p4zbio 112 -
branches/UKMO/dev_r5518_AMM15_package/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zche.F90
r10248 r10251 396 396 397 397 !!====================================================================== 398 END MODULE p4zche398 END MODULE p4zche -
branches/UKMO/dev_r5518_AMM15_package/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zflx.F90
r10248 r10251 400 400 401 401 !!====================================================================== 402 END MODULE p4zflx402 END MODULE p4zflx -
branches/UKMO/dev_r5518_AMM15_package/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zint.F90
r10248 r10251 81 81 82 82 !!====================================================================== 83 END MODULE p4zint83 END MODULE p4zint -
branches/UKMO/dev_r5518_AMM15_package/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zlim.F90
r10248 r10251 265 265 266 266 !!====================================================================== 267 END MODULE p4zlim267 END MODULE p4zlim -
branches/UKMO/dev_r5518_AMM15_package/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zlys.F90
r10248 r10251 152 152 IF( iom_use( "DCAL" ) ) CALL iom_put( "DCAL" , zcaldiss(:,:,:) * 1.e+3 * rfact2r * tmask(:,:,:) ) 153 153 ELSE 154 IF( ln_diatrc ) THEN 155 trc3d(:,:,:,jp_pcs0_3d ) = -1. * LOG10( hi(:,:,:) ) * tmask(:,:,:) 156 trc3d(:,:,:,jp_pcs0_3d + 1) = zco3(:,:,:) * tmask(:,:,:) 157 trc3d(:,:,:,jp_pcs0_3d + 2) = aksp(:,:,:) / calcon * tmask(:,:,:) 158 ENDIF 154 trc3d(:,:,:,jp_pcs0_3d ) = -1. * LOG10( hi(:,:,:) ) * tmask(:,:,:) 155 trc3d(:,:,:,jp_pcs0_3d + 1) = zco3(:,:,:) * tmask(:,:,:) 156 trc3d(:,:,:,jp_pcs0_3d + 2) = aksp(:,:,:) / calcon * tmask(:,:,:) 159 157 ENDIF 160 158 ! … … 225 223 #endif 226 224 !!====================================================================== 227 END MODULE p4zlys225 END MODULE p4zlys -
branches/UKMO/dev_r5518_AMM15_package/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmeso.F90
r10248 r10251 340 340 341 341 !!====================================================================== 342 END MODULE p4zmeso342 END MODULE p4zmeso -
branches/UKMO/dev_r5518_AMM15_package/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmicro.F90
r10248 r10251 273 273 274 274 !!====================================================================== 275 END MODULE p4zmicro275 END MODULE p4zmicro -
branches/UKMO/dev_r5518_AMM15_package/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmort.F90
r10248 r10251 277 277 278 278 !!====================================================================== 279 END MODULE p4zmort279 END MODULE p4zmort -
branches/UKMO/dev_r5518_AMM15_package/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zopt.F90
r10248 r10251 439 439 440 440 !!====================================================================== 441 END MODULE p4zopt441 END MODULE p4zopt -
branches/UKMO/dev_r5518_AMM15_package/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zprod.F90
r10248 r10251 629 629 630 630 !!====================================================================== 631 END MODULE p4zprod631 END MODULE p4zprod -
branches/UKMO/dev_r5518_AMM15_package/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsbc.F90
r10248 r10251 519 519 520 520 !!====================================================================== 521 END MODULE p4zsbc521 END MODULE p4zsbc -
branches/UKMO/dev_r5518_AMM15_package/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsed.F90
r10248 r10251 436 436 437 437 !!====================================================================== 438 END MODULE p4zsed438 END MODULE p4zsed -
branches/UKMO/dev_r5518_AMM15_package/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsink.F90
r10248 r10251 913 913 914 914 !!====================================================================== 915 END MODULE p4zsink915 END MODULE p4zsink -
branches/UKMO/dev_r5518_AMM15_package/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsms.F90
r10248 r10251 38 38 39 39 REAL(wp) :: alkbudget, no3budget, silbudget, ferbudget, po4budget 40 REAL(wp) :: xfact1, xfact2 , xfact340 REAL(wp) :: xfact1, xfact2 41 41 INTEGER :: numco2, numnut, numnit !: logical unit for co2 budget 42 42 … … 474 474 !!--------------------------------------------------------------------- 475 475 ! 476 INTEGER, INTENT( in ) :: kt ! ocean time-step index 477 REAL(wp) :: zrdenittot, zsdenittot, znitrpottot 476 INTEGER , INTENT( in ) :: kt ! ocean time-step index 477 REAL(wp) :: zfact 478 REAL(wp) :: zrdenittot, zsdenittot, znitrpottot 478 479 CHARACTER(LEN=100) :: cltxt 479 480 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zvol … … 491 492 xfact1 = rfact2r * 12. / 1.e15 * ryyss ! conversion molC/kt --> PgC/yr 492 493 xfact2 = 1.e+3 * rno3 * 14. / 1.e12 * ryyss ! conversion molC/l/s ----> TgN/m3/yr 493 xfact3 = 1.e+3 * rfact2r * rno3 ! conversion molC/l/kt ----> molN/m3/s494 494 cltxt='time-step Alkalinity Nitrate Phosphorus Silicate Iron' 495 495 IF( lwp ) WRITE(numnut,*) TRIM(cltxt) … … 574 574 IF( iom_use( "Sdenit" ) .OR. ( ln_check_mass .AND. kt == nitend ) ) THEN 575 575 zsdenittot = glob_sum ( sdenit(:,:) * e1e2t(:,:) ) 576 CALL iom_put( "Sdenit", sdenit(:,:) * xfact3* tmask(:,:,1) ) ! Nitrate reduction in the sediments576 CALL iom_put( "Sdenit", sdenit(:,:) * zfact * tmask(:,:,1) ) ! Nitrate reduction in the sediments 577 577 ENDIF 578 578
Note: See TracChangeset
for help on using the changeset viewer.