Changeset 8023 for branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_diag.F90
- Timestamp:
- 2017-05-12T10:21:30+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_diag.F90
r8012 r8023 30 30 !! This called from TRC_BIO_MEDUSA and calculates diagnostics 31 31 !!------------------------------------------------------------------- 32 USE bio_medusa_mod, ONLY: dcalc3, dms_andr, dms_aran, & 33 dms_hall, dms_simo, dms_surf, & 34 f_benout_c, f_benout_ca, f_benout_fe, & 35 f_benout_lyso_ca, f_benout_n, & 36 f_benout_si, & 37 f_co2flux, f_co3, & 38 f_fbenin_c, f_fbenin_ca, f_fbenin_fe, & 39 f_fbenin_n, f_fbenin_si, & 40 f_h2co3, f_hco3, & 41 f_kw660, & 42 f_o2flux, f_o2sat, f_omarg, f_omcal, & 43 f_pco2atm, f_pco2w, f_ph, f_pp0, & 44 f_riv_loc_alk, f_riv_loc_c, & 45 f_riv_loc_n, f_riv_loc_si, & 46 f_runoff, & 47 f_sbenin_c, f_sbenin_fe, & 48 f_sbenin_n, & 49 f_TALK, f_TDIC, & 50 fccd, fcomm_resp, & 51 fd_cal3, fd_car3, fd_nit3, fd_sil3, & 52 fdep1, & 53 fdd, fdd2d, fddc, & 54 fdpd, fdpd2, fdpd22d, fdpd2d, & 55 fdpn, fdpn2, fdpn22d, fdpn2d, & 56 fdzme, fdzme2, fdzme22d, fdzme2d, & 57 fdzmi, fdzmi2, fdzmi22d, fdzmi2d, & 58 fediss3, fescav3, & 59 ffastc, ffastca, ffastca2d, & 60 ffastn, ffastsi, & 61 ffebot, ffebot2d, ffescav, ffescav2d, & 62 ffetop, ffetop2d, & 63 ffld, ffld2d, ffln2, ffln2d, & 64 fgmed, fgmed2d, fgmedc, & 65 fgmepd, fgmepd2d, fgmepn, fgmepn2d, & 66 fgmezmi, fgmezmi2d, & 67 fgmid, fgmid2d, fgmidc, & 68 fgmipn, fgmipn2d, & 69 ficme, ficmi, finme, finmi, & 70 fjlim_pd, fjlim_pn, fjld2d, fjln2d, & 71 fmeexcr, fmegrow, fmeresp, & 72 fmiexcr, fmigrow, fmiresp, & 73 fnld, fnld2d, fnln, fnln2d, & 74 fprd, fprd_ml, fprd2d, & 75 fprds, fprds2d, & 76 fprn, fprn_ml, fprn2d, & 77 fregen, fregen2d, & 78 fregenfast, fregenfastsi, & 79 fregensi, fregensi2d, & 80 freminc, freminc2d, & 81 freminca, freminca2d, & 82 freminfe, freminfe2d, & 83 freminn, freminn2d, & 84 freminsi, freminsi2d, & 85 fsdiss, fsdiss2d, & 86 fsedc, fsedca, fsedfe, fsedn, fsedsi, & 87 fsld, fsld2, fsld2d, fsld2d2, & 88 fslown, fslowc, fslown2d, & 89 fslowc2d, fslowcflux, fslownflux, & 90 ftempc, ftempc2d, ftempca, ftempca2d, & 91 ftempfe, ftempfe2d, & 92 ftempn, ftempn2d, ftempsi, ftempsi2d, & 93 ftot_a, ftot_c, ftot_fe, ftot_n, & 94 ftot_o2, ftot_si, & 95 gmedc2d, gmidc2d, & 96 iben_c2d, iben_ca2d, iben_fe2d, & 97 iben_n2d, iben_si2d, & 98 intdissic, intdissin, & 99 intdissisi, inttalk, & 100 iters, lyso_ca2d, & 101 mdetc2d, megrazd3, megrazp3, & 102 megrazz3, & 103 migrazd3, migrazp3, & 104 o2min, o2sat3, & 105 oben_c2d, oben_ca2d, oben_fe2d, & 106 oben_n2d, oben_si2d, & 107 pbsi3, pcal3, & 108 pdlimfe3, pdlimj3, pdlimn3, & 109 pnlimfe3, pnlimj3, pnlimn3, pdlimsi3, & 110 remin3dn, remoc3, & 111 rivalk2d, rivc2d, rivn2d, rivsi2d, & 112 sfr_oarg2d, sfr_ocal2d, & 113 tpp3d, tppd3, xFree, & 114 zeexcr2d, zegrow2d, zemesc2d, & 115 zemesd2d, zemesdc2d, zemesn2d, & 116 zeresp2d, & 117 ziexcr2d, zigrow2d, zimesc2d, & 118 zimesd2d, zimesdc2d, zimesn2d, & 119 ziresp2d, & 120 zo2min, & 121 zalk, zdet, zdic, zdin, zdtc, & 122 zfer, zoxy, zpds, zphd, zphn, & 123 zsal, zsil, ztmp, zzme, zzmi 32 USE bio_medusa_mod 124 33 USE dom_oce, ONLY: e3t_0, e3t_n, gdepw_0, gdepw_n, & 125 34 mbathy, tmask 126 35 USE in_out_manager, ONLY: lwp, numout 36 # if defined key_iomput 127 37 USE iom, ONLY: lk_iomput 38 # endif 128 39 USE par_kind, ONLY: wp 129 40 USE par_oce, ONLY: jpim1, jpjm1 … … 137 48 xthetapd, xthetapn, xthetazme, xthetazmi, xze 138 49 USE trc, ONLY: ln_diatrc, med_diag, trc2d, trc3d 50 # if defined key_roam 139 51 USE trcoxy_medusa, ONLY: oxy_sato 52 # endif 140 53 141 54 !!* Substitution
Note: See TracChangeset
for help on using the changeset viewer.