- Timestamp:
- 2020-07-02T20:34:16+02:00 (8 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11708_aumont_PISCES_QUOTA/src/TOP/PISCES/P4Z/p4zrem.F90
r12682 r13233 92 92 ! Computation of the mean bacterial concentration 93 93 ! this parameterization has been deduced from a model version 94 ! that was modeling explicitely bacteria 95 ! ------------------------------------------------------- 94 ! that was modeling explicitely bacteria. This is a very old param 95 ! that will be very soon updated based on results from a much more 96 ! recent version of PISCES with bacteria. 97 ! ---------------------------------------------------------------- 96 98 DO jk = 1, jpkm1 97 99 DO jj = 1, jpj … … 111 113 END DO 112 114 113 IF( ln_p4z ) THEN 115 IF( ln_p4z ) THEN ! Standard PISCES code 114 116 DO jk = 1, jpkm1 115 117 DO jj = 1, jpj … … 152 154 END DO 153 155 END DO 154 ELSE 156 ELSE ! PISCES-QUOTA 155 157 DO jk = 1, jpkm1 156 158 DO jj = 1, jpj … … 231 233 232 234 ! Bacterial uptake of iron. No iron is available in DOC. So 233 ! Bacteri esare obliged to take up iron from the water. Some235 ! Bacteria are obliged to take up iron from the water. Some 234 236 ! studies (especially at Papa) have shown this uptake to be significant 235 237 ! --------------------------------------------------------------------- … … 262 264 DO jj = 1, jpj 263 265 DO ji = 1, jpi 264 ! Remineralization rate of BSi depedant on T and saturation 266 267 ! Remineralization rate of BSi dependent on T and saturation 265 268 ! The parameterization is taken from Ridgwell et al. (2002) 266 269 ! --------------------------------------------------------- … … 269 272 zsatur2 = ( 1. + tsn(ji,jj,jk,jp_tem) / 400.)**37 270 273 znusil = 0.225 * ( 1. + tsn(ji,jj,jk,jp_tem) / 15.) * zsatur + 0.775 * zsatur2 * zsatur**9.25 274 275 ! Two fractions of bSi are considered : a labile one and a more 276 ! refractory one based on the commonly observed two step 277 ! dissolution of bSi (initial rapid dissolution followed by 278 ! more slowly dissolution). 271 279 ! Computation of the vertical evolution of the labile fraction 272 280 ! of bSi. This is computed assuming steady state. 281 ! -------------------------------------------------------------- 273 282 IF ( gdept_n(ji,jj,jk) > zdep ) THEN 274 283 zfacsib(ji,jj,jk) = zfacsib(ji,jj,jk-1) * EXP( -0.5 * ( xsiremlab - xsirem ) & … … 280 289 zsiremin = ( xsiremlab * zfacsi(ji,jj,jk) + xsirem * ( 1. - zfacsi(ji,jj,jk) ) ) * xstep * znusil 281 290 zosil = zsiremin * trb(ji,jj,jk,jpgsi) 291 282 292 ! Update of the TRA arrays 283 293 tra(ji,jj,jk,jpgsi) = tra(ji,jj,jk,jpgsi) - zosil
Note: See TracChangeset
for help on using the changeset viewer.