! source file: /gxfs_work1/geomar/smomw113/UVic_ESCM/2.9_dk_0814/updates/11_valley/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_rnpp, ta_rgraz, ta_rmorp, ta_rmorpt, ta_rmorz, ta_rexcr real ta_rremi, ta_rexpo, ta_rnpp_D, ta_rgraz_D, ta_rmorp_D real ta_rnfix, ta_rdeni, 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 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_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_rnfix(imt,kpzd,jmt) common /ta_npzd_r/ ta_rdeni(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) # if defined O_oceanmask_out real ta_oceanmask common /ta_npzd_r/ ta_oceanmask(imt,kpzd,jmt) # endif real ta_kpipe,ta_kpipek common /ta_npzd_r/ ta_kpipe(imt,jmt) common /ta_npzd_r/ ta_kpipek(imt,jmt) real ta_pipeactive common /ta_npzd_r/ ta_pipeactive(imt,jmt) real ta_rfeorgads, ta_rfecol real ta_rdeffe, ta_rremife, ta_rexpofe, ta_rfeprime real ta_rfesed, ta_rbfe common /ta_npzd_r/ ta_rfeorgads(imt,kpzd,jmt) common /ta_npzd_r/ ta_rfecol(imt,kpzd,jmt) common /ta_npzd_r/ ta_rdeffe(imt,kpzd,jmt) common /ta_npzd_r/ ta_rremife(imt,kpzd,jmt) common /ta_npzd_r/ ta_rexpofe(imt,kpzd,jmt) common /ta_npzd_r/ ta_rfeprime(imt,kpzd,jmt) common /ta_npzd_r/ ta_rfesed(imt,kpzd,jmt) common /ta_npzd_r/ ta_rbfe(imt,kpzd,jmt) real ta_rfehydro common /ta_npzd_r/ ta_rfehydro(imt,kpzd,jmt) real ta_rchl, ta_rchl_D common /ta_npzd_r/ ta_rchl(imt,kpzd,jmt) common /ta_npzd_r/ ta_rchl_D(imt,kpzd,jmt) real ta_wd common /ta_npzd_r/ ta_wd(km) cwk if defined 1 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 cwk / cwk if defined 1 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) cwk / ! endif