! ! $Id: diagnostics.h,v 1.2 2005/10/10 13:40:17 pmarches Exp $ ! ! This is include file "diagnostics.h": tracer equation terms ! for output purposes: ! ! #ifdef DIAGNOSTICS_TS real TXadv(GLOBAL_2D_ARRAY,N,NT) real TYadv(GLOBAL_2D_ARRAY,N,NT) real TVadv(GLOBAL_2D_ARRAY,N,NT) real THmix(GLOBAL_2D_ARRAY,N,NT) real TVmix(GLOBAL_2D_ARRAY,N,NT) real Tbody(GLOBAL_2D_ARRAY,N,NT) real Trate(GLOBAL_2D_ARRAY,N,NT) # ifdef AVERAGES real timedia_avg real TXadv_avg(GLOBAL_2D_ARRAY,N,NT) real TYadv_avg(GLOBAL_2D_ARRAY,N,NT) real TVadv_avg(GLOBAL_2D_ARRAY,N,NT) real THmix_avg(GLOBAL_2D_ARRAY,N,NT) real TVmix_avg(GLOBAL_2D_ARRAY,N,NT) real Tbody_avg(GLOBAL_2D_ARRAY,N,NT) real Trate_avg(GLOBAL_2D_ARRAY,N,NT) # endif common /diag_TXadv/TXadv & /diag_TYadv/TYadv & /diag_TVadv/TVadv & /diag_THmix/THmix & /diag_TVmix/TVmix & /diag_Tbody/Tbody & /diag_Trate/Trate # ifdef AVERAGES common /diag_timedia_avg/timedia_avg common /diag_TXadv_avg/TXadv_avg & /diag_TYadv_avg/TYadv_avg & /diag_TVadv_avg/TVadv_avg & /diag_THmix_avg/THmix_avg & /diag_TVmix_avg/TVmix_avg & /diag_Tbody_avg/Tbody_avg & /diag_Trate_avg/Trate_avg # endif #endif /* DIAGNOSTICS_TS */ ! #ifdef DIAGNOSTICS_UV real MXadv(GLOBAL_2D_ARRAY,N,2) real MYadv(GLOBAL_2D_ARRAY,N,2) real MVadv(GLOBAL_2D_ARRAY,N,2) real MCor(GLOBAL_2D_ARRAY,N,2) real MPrsgrd(GLOBAL_2D_ARRAY,N,2) real MHmix(GLOBAL_2D_ARRAY,N,2) real MVmix(GLOBAL_2D_ARRAY,N,2) real Mrate(GLOBAL_2D_ARRAY,N,2) # ifdef AVERAGES real timediaM_avg real MXadv_avg(GLOBAL_2D_ARRAY,N,2) real MYadv_avg(GLOBAL_2D_ARRAY,N,2) real MVadv_avg(GLOBAL_2D_ARRAY,N,2) real MCor_avg(GLOBAL_2D_ARRAY,N,2) real MPrsgrd_avg(GLOBAL_2D_ARRAY,N,2) real MHmix_avg(GLOBAL_2D_ARRAY,N,2) real MVmix_avg(GLOBAL_2D_ARRAY,N,2) real Mrate_avg(GLOBAL_2D_ARRAY,N,2) # endif common /diag_MXadv/MXadv & /diag_MYadv/MYadv & /diag_MVadv/MVadv & /diag_MCor/MCor & /diag_MPrsgrd/MPrsgrd & /diag_MHmix/MHmix & /diag_MVmix/MVmix & /diag_Mrate/Mrate # ifdef AVERAGES common /diag_timediaM_avg/timediaM_avg common /diag_MXadv_avg/MXadv_avg & /diag_MYadv_avg/MYadv_avg & /diag_MVadv_avg/MVadv_avg & /diag_MCor_avg/MCor_avg & /diag_MPrsgrd_avg/MPrsgrd_avg & /diag_MHmix_avg/MHmix_avg & /diag_MVmix_avg/MVmix_avg & /diag_Mrate_avg/Mrate_avg # endif #endif /* DIAGNOSTICS_UV */ #ifdef DIAGNOSTICS_BIO # ifdef PISCES # ifdef key_trc_dia3d real bioFlux(GLOBAL_2D_ARRAY,N,NumFluxTerms) # endif # ifdef key_trc_diaadd real bioVSink(GLOBAL_2D_ARRAY,NumVSinkTerms) # endif # else real bioFlux(GLOBAL_2D_ARRAY,N,NumFluxTerms) real bioVSink(GLOBAL_2D_ARRAY,0:N,NumVSinkTerms) # ifdef OXYGEN real GasExcFlux(GLOBAL_2D_ARRAY,NumGasExcTerms) # endif # endif # ifdef AVERAGES # ifdef PISCES # ifdef key_trc_dia3d real bioFlux_avg(GLOBAL_2D_ARRAY,N,NumFluxTerms) # endif # ifdef key_trc_diaadd real bioVSink_avg(GLOBAL_2D_ARRAY,NumVSinkTerms) # endif # else real bioFlux_avg(GLOBAL_2D_ARRAY,N,NumFluxTerms) real bioVSink_avg(GLOBAL_2D_ARRAY,0:N,NumVSinkTerms) # ifdef OXYGEN real GasExcFlux_avg(GLOBAL_2D_ARRAY,NumGasExcTerms) # endif # endif real timediabio_avg # endif # ifdef PISCES # ifdef key_trc_dia3d common /diag_bioFlux/bioFlux # endif # ifdef key_trc_diaadd & /diag_bioVSink/bioVSink # endif # else common /diag_bioFlux/bioFlux & /diag_bioVSink/bioVSink # ifdef OXYGEN & /diag_GasFlux/GasExcFlux # endif # endif # ifdef AVERAGES # ifdef PISCES # ifdef key_trc_dia3d & /diag_bioFlux_avg/bioFlux_avg # endif # ifdef key_trc_diaadd & /diag_bioVSink_avg/bioVSink_avg # endif # else & /diag_bioFlux_avg/bioFlux_avg & /diag_bioVSink_avg/bioVSink_avg # ifdef OXYGEN & /diag_GasFlux_avg/GasExcFlux_avg # endif # endif & /diag_timediabio_avg/timediabio_avg # endif #endif /* DIAGNOSTICS_BIO */