Changeset 14276 for NEMO/branches/2019/dev_r11708_aumont_PISCES_QUOTA/src/TOP/PISCES/P4Z/p4zmicro.F90
- Timestamp:
- 2021-01-07T23:09:56+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11708_aumont_PISCES_QUOTA/src/TOP/PISCES/P4Z/p4zmicro.F90
r13234 r14276 187 187 zgrasratf = ( zgraztotf + rtrn ) / ( zgraztotc + rtrn ) 188 188 zgrasratn = ( zgraztotn + rtrn ) / ( zgraztotc + rtrn ) 189 zepshert = MIN( 1., zgrasratn, zgrasratf / ferat 3)189 zepshert = MIN( 1., zgrasratn, zgrasratf / feratz) 190 190 zbeta = MAX(0., (epsher - epshermin) ) 191 191 ! Food quantity deprivation of the GGE … … 196 196 zepsherv = zepsherf * zepshert * zepsherq 197 197 ! Excretion of Fe 198 zgrafer = zgraztotc * MAX( 0. , ( 1. - unass ) * zgrasratf - ferat 3* zepsherv )198 zgrafer = zgraztotc * MAX( 0. , ( 1. - unass ) * zgrasratf - feratz * zepsherv ) 199 199 ! Excretion of C, N, P 200 200 zgrarem = zgraztotc * ( 1. - zepsherv - unass ) … … 236 236 prodpoc(ji,jj,jk) = prodpoc(ji,jj,jk) + zmortz 237 237 conspoc(ji,jj,jk) = conspoc(ji,jj,jk) - zgrazpoc 238 tra(ji,jj,jk,jpsfe) = tra(ji,jj,jk,jpsfe) + ferat 3* zmortz - zgrazpof238 tra(ji,jj,jk,jpsfe) = tra(ji,jj,jk,jpsfe) + feratz * zmortz - zgrazpof 239 239 ! 240 240 ! Calcite remineralization due to zooplankton activity
Note: See TracChangeset
for help on using the changeset viewer.