Changeset 13097 for branches/UKMO/dev_r5518_GO6_package_FOAMv14_phytobal3d/NEMOGCM/NEMO/TOP_SRC/MEDUSA/plankton.F90
- Timestamp:
- 2020-06-11T19:32:37+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_FOAMv14_phytobal3d/NEMOGCM/NEMO/TOP_SRC/MEDUSA/plankton.F90
r10302 r13097 46 46 ln_foam_medusa, & 47 47 pgrow_avg, ploss_avg, phyt_avg, & 48 pgrow_avg_3d, ploss_avg_3d, phyt_avg_3d, & 48 49 xkphd, xkphn, xkzme, xkzmi, & 49 50 xmetapd, xmetapn, xmetazme, xmetazmi, & … … 229 230 ((zphn(ji,jj) + zphd(ji,jj)) * & 230 231 fse3t(ji,jj,jk) * fq0) 232 !! 233 pgrow_avg_3d(ji,jj,jk) = (fprn(ji,jj) * zphn(ji,jj)) + & 234 (fprd(ji,jj) * zphd(ji,jj)) 235 ploss_avg_3d(ji,jj,jk) = fgmepd(ji,jj) + fdpd(ji,jj) + & 236 fdpd2(ji,jj) + & 237 fgmepn(ji,jj) + fdpn(ji,jj) + & 238 fdpn2(ji,jj) + fgmipn(ji,jj) 239 phyt_avg_3d(ji,jj,jk) = zphn(ji,jj) + zphd(ji,jj) 231 240 ENDIF 232 241 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.