! source file: /raid23/csomes/UVic/2.9/c_n_isotopes/last_glacial_experiments/dlgp15/updates/timeavgs.h ! source file: /Users/dkeller/Desktop/UVic_ESCM/2.9/source/mom/timeavgs.h !====================== include file "timeavgs.h" ====================== ! imtav = # of longitudes used for the time averages grid ! jmtav = # of latitudes used for the time averages grid ! kmav = # of levels used for the time averages grid integer imtav, jmtav, kmav parameter (imtav=imt, jmtav=jmt-2, kmav=km) real ta_vetiso, ta_vntiso, ta_vbtiso common /ta_gm_r/ ta_vetiso(imt,km,jmt), ta_vntiso(imt,km,jmt) common /ta_gm_r/ ta_vbtiso(imt,km,jmt) real ta_dc14 common /ta_dc14/ ta_dc14(imt,km,jmt) real ta_diff_cbt common /ta_kv/ ta_diff_cbt(imt,km,jmt) real ta_rnpp, ta_rgraz, ta_rmorp, ta_rmorpt, ta_rmorz, ta_rexcr real ta_rremi, ta_rexpo, ta_rnpp_D, ta_rgraz_D, ta_rmorpt_D real ta_rnfix, ta_rwcdeni, ta_rexpocal, ta_rprocal, ta_rgraz_Z real ta_rgraz_Det, ta_ravej, ta_ravej_D, ta_rgmax, ta_rno3P real ta_rpo4P, ta_rpo4_D, ta_kpipe, ta_rsedrr, ta_rbdeni real ta_rmorp_D common /ta_npzd_r/ ta_rnpp(imt,kpzd,jmt) common /ta_npzd_r/ ta_rgraz(imt,kpzd,jmt) common /ta_npzd_r/ ta_rmorp(imt,kpzd,jmt) common /ta_npzd_r/ ta_rmorpt(imt,kpzd,jmt) common /ta_npzd_r/ ta_rmorz(imt,kpzd,jmt) common /ta_npzd_r/ ta_rexcr(imt,kpzd,jmt) common /ta_npzd_r/ ta_rremi(imt,km,jmt) common /ta_npzd_r/ ta_rexpo(imt,km,jmt) common /ta_npzd_r/ ta_rexpocal(imt,km,jmt) common /ta_npzd_r/ ta_rprocal(imt,jmt) common /ta_npzd_r/ ta_rsedrr(imt,jmt) common /ta_npzd_r/ ta_rnpp_D(imt,kpzd,jmt) common /ta_npzd_r/ ta_rgraz_D(imt,kpzd,jmt) common /ta_npzd_r/ ta_rmorp_D(imt,kpzd,jmt) common /ta_npzd_r/ ta_rmorpt_D(imt,kpzd,jmt) common /ta_npzd_r/ ta_rnfix(imt,kpzd,jmt) common /ta_npzd_r/ ta_rwcdeni(imt,km,jmt) common /ta_npzd_r/ ta_rbdeni(imt,km,jmt) common /ta_npzd_r/ ta_rgraz_Det(imt,kpzd,jmt) common /ta_npzd_r/ ta_rgraz_Z(imt,kpzd,jmt) common /ta_npzd_r/ ta_ravej(imt,kpzd,jmt) common /ta_npzd_r/ ta_ravej_D(imt,kpzd,jmt) common /ta_npzd_r/ ta_rgmax(imt,kpzd,jmt) common /ta_npzd_r/ ta_rno3P(imt,kpzd,jmt) common /ta_npzd_r/ ta_rpo4P(imt,kpzd,jmt) common /ta_npzd_r/ ta_rpo4_D(imt,kpzd,jmt) common /ta_npzd_r/ ta_kpipe(imt,jmt) integer nta_conv common /ta_conv_i/ nta_conv real ta_totalk, ta_vdepth, ta_pe common /ta_conv_r/ ta_totalk(imt,jmt), ta_vdepth(imt,jmt) common /ta_conv_r/ ta_pe(imt,jmt) integer nta_sscar common /ta_car_i/ nta_sscar real ta_sspH, ta_ssCO3, ta_ssOc, ta_ssOa, ta_sspCO2 common /ta_car_r/ ta_sspH(imt,jmt), ta_ssCO3(imt,jmt) common /ta_car_r/ ta_ssOc(imt,jmt), ta_ssOa(imt,jmt) common /ta_car_r/ ta_sspCO2(imt,jmt)