Changeset 8521 for branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/phytoplankton.F90
- Timestamp:
- 2017-09-14T17:42:14+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/phytoplankton.F90
r8441 r8521 6 6 !! History : 7 7 !! - ! 2017-04 (M. Stringer) Code taken from trcbio_medusa.F90 8 !! - ! 2017-08 (A. Yool) Mean mixed layer chlorophyll 8 9 !!---------------------------------------------------------------------- 9 10 #if defined key_medusa … … 42 43 zchd, zchn, zdet, zdin, zdtc, & 43 44 zfer, zpds, zphd, zphn, zsil, & 44 zzme, zzmi 45 zzme, zzmi, fchl_ml 45 46 USE dom_oce, ONLY: e3t_0, e3t_n, gdepw_0, gdepw_n, tmask 46 47 USE in_out_manager, ONLY: lwp, numout … … 373 374 fprd_ml(ji,jj) = fprd_ml(ji,jj) + (fprd(ji,jj) * zphd(ji,jj) * & 374 375 fse3t(ji,jj,jk) * fq0) 376 !! AXY (16/08/17) 377 fchl_ml(ji,jj) = fchl_ml(ji,jj) + ((zchn(ji,jj) + zchd(ji,jj)) * & 378 (fse3t(ji,jj,jk) * fq0) / hmld(ji,jj)) 375 379 ENDIF 376 380 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.