Changeset 10047 for branches/NERC/dev_r5518_GO6_under_ice_relax/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_update.F90
- Timestamp:
- 2018-08-08T17:12:35+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_GO6_under_ice_relax/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_update.F90
r10045 r10047 75 75 # endif 76 76 zpds, zphd, zphn 77 USE dom_oce, ONLY: e3t_0, e3t_n, gphit, mbathy, tmask 77 USE dom_oce, ONLY: e3t_0, gphit, mbathy, tmask 78 # if defined key_vvl 79 USE dom_oce, ONLY: e3t_n 80 # endif 78 81 USE in_out_manager, ONLY: lwp, numout 79 82 USE lib_mpp, ONLY: ctl_stop … … 86 89 jpdic_lc, jpdin_lc, jpdtc_lc, jpfer_lc, & 87 90 jpoxy_lc, jppds_lc, jpphd_lc, jpphn_lc, & 88 jpsil_lc, jpzme_lc, jpzmi_lc 91 # if defined key_omip_dic 92 jpomd, jpomd_lc, & 93 # endif 94 jpsil_lc, jpzme_lc, jpzmi_lc 89 95 USE par_oce, ONLY: jpi, jpim1, jpj, jpjm1, jpk 90 96 USE par_trc, ONLY: jptra … … 271 277 ! mort. loss 272 278 ((1.0 - xfdfrac1) * fdpds(ji,jj)) + & 273 &! egestion of grazed Si279 ! egestion of grazed Si 274 280 ((1.0 - xfdfrac3) * fgmepds(ji,jj)) + & 275 281 ! fast diss. and metab. losses
Note: See TracChangeset
for help on using the changeset viewer.