Changeset 5845 for branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zbio.F90
- Timestamp:
- 2015-10-31T08:40:45+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zbio.F90
r5836 r5845 60 60 61 61 !! * Substitutions 62 # include "domzgr_substitute.h90"63 62 # include "vectopt_loop_substitute.h90" 64 63 !!---------------------------------------------------------------------- … … 67 66 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 68 67 !!---------------------------------------------------------------------- 69 70 68 CONTAINS 71 69 … … 187 185 ! closure : flux grazing is redistributed below level jpkbio 188 186 zzoobod = tmminz * zzoo * zzoo 189 xksi(ji,jj) = xksi(ji,jj) + (1-fdbod) * zzoobod * fse3t(ji,jj,jk)187 xksi(ji,jj) = xksi(ji,jj) + (1-fdbod) * zzoobod * e3t_n(ji,jj,jk) 190 188 zboddet = fdbod * zzoobod 191 189 … … 242 240 IF( ln_diatrc .OR. lk_iomput ) THEN 243 241 ! convert fluxes in per day 244 ze3t = fse3t(ji,jj,jk) * 86400.242 ze3t = e3t_n(ji,jj,jk) * 86400. 245 243 zw2d(ji,jj,1) = zw2d(ji,jj,1) + zno3phy * ze3t 246 244 zw2d(ji,jj,2) = zw2d(ji,jj,2) + znh4phy * ze3t … … 363 361 IF( ln_diatrc .OR. lk_iomput ) THEN 364 362 ! convert fluxes in per day 365 ze3t = fse3t(ji,jj,jk) * 86400.363 ze3t = e3t_n(ji,jj,jk) * 86400. 366 364 zw2d(ji,jj,1) = zw2d(ji,jj,1) + zno3phy * ze3t 367 365 zw2d(ji,jj,2) = zw2d(ji,jj,2) + znh4phy * ze3t
Note: See TracChangeset
for help on using the changeset viewer.