| 1 | ! |
|---|
| 2 | ! $Id: diagnostics.h,v 1.2 2005/10/10 13:40:17 pmarches Exp $ |
|---|
| 3 | ! |
|---|
| 4 | ! This is include file "diagnostics.h": tracer equation terms |
|---|
| 5 | ! for output purposes: |
|---|
| 6 | ! |
|---|
| 7 | ! |
|---|
| 8 | #ifdef DIAGNOSTICS_TS |
|---|
| 9 | real TXadv(GLOBAL_2D_ARRAY,N,NT) |
|---|
| 10 | real TYadv(GLOBAL_2D_ARRAY,N,NT) |
|---|
| 11 | real TVadv(GLOBAL_2D_ARRAY,N,NT) |
|---|
| 12 | real THmix(GLOBAL_2D_ARRAY,N,NT) |
|---|
| 13 | real TVmix(GLOBAL_2D_ARRAY,N,NT) |
|---|
| 14 | real Tbody(GLOBAL_2D_ARRAY,N,NT) |
|---|
| 15 | real Trate(GLOBAL_2D_ARRAY,N,NT) |
|---|
| 16 | # ifdef AVERAGES |
|---|
| 17 | real timedia_avg |
|---|
| 18 | real TXadv_avg(GLOBAL_2D_ARRAY,N,NT) |
|---|
| 19 | real TYadv_avg(GLOBAL_2D_ARRAY,N,NT) |
|---|
| 20 | real TVadv_avg(GLOBAL_2D_ARRAY,N,NT) |
|---|
| 21 | real THmix_avg(GLOBAL_2D_ARRAY,N,NT) |
|---|
| 22 | real TVmix_avg(GLOBAL_2D_ARRAY,N,NT) |
|---|
| 23 | real Tbody_avg(GLOBAL_2D_ARRAY,N,NT) |
|---|
| 24 | real Trate_avg(GLOBAL_2D_ARRAY,N,NT) |
|---|
| 25 | # endif |
|---|
| 26 | common /diag_TXadv/TXadv |
|---|
| 27 | & /diag_TYadv/TYadv |
|---|
| 28 | & /diag_TVadv/TVadv |
|---|
| 29 | & /diag_THmix/THmix |
|---|
| 30 | & /diag_TVmix/TVmix |
|---|
| 31 | & /diag_Tbody/Tbody |
|---|
| 32 | & /diag_Trate/Trate |
|---|
| 33 | # ifdef AVERAGES |
|---|
| 34 | common /diag_timedia_avg/timedia_avg |
|---|
| 35 | common /diag_TXadv_avg/TXadv_avg |
|---|
| 36 | & /diag_TYadv_avg/TYadv_avg |
|---|
| 37 | & /diag_TVadv_avg/TVadv_avg |
|---|
| 38 | & /diag_THmix_avg/THmix_avg |
|---|
| 39 | & /diag_TVmix_avg/TVmix_avg |
|---|
| 40 | & /diag_Tbody_avg/Tbody_avg |
|---|
| 41 | & /diag_Trate_avg/Trate_avg |
|---|
| 42 | # endif |
|---|
| 43 | #endif /* DIAGNOSTICS_TS */ |
|---|
| 44 | ! |
|---|
| 45 | #ifdef DIAGNOSTICS_UV |
|---|
| 46 | real MXadv(GLOBAL_2D_ARRAY,N,2) |
|---|
| 47 | real MYadv(GLOBAL_2D_ARRAY,N,2) |
|---|
| 48 | real MVadv(GLOBAL_2D_ARRAY,N,2) |
|---|
| 49 | real MCor(GLOBAL_2D_ARRAY,N,2) |
|---|
| 50 | real MPrsgrd(GLOBAL_2D_ARRAY,N,2) |
|---|
| 51 | real MHmix(GLOBAL_2D_ARRAY,N,2) |
|---|
| 52 | real MVmix(GLOBAL_2D_ARRAY,N,2) |
|---|
| 53 | real Mrate(GLOBAL_2D_ARRAY,N,2) |
|---|
| 54 | # ifdef AVERAGES |
|---|
| 55 | real timediaM_avg |
|---|
| 56 | real MXadv_avg(GLOBAL_2D_ARRAY,N,2) |
|---|
| 57 | real MYadv_avg(GLOBAL_2D_ARRAY,N,2) |
|---|
| 58 | real MVadv_avg(GLOBAL_2D_ARRAY,N,2) |
|---|
| 59 | real MCor_avg(GLOBAL_2D_ARRAY,N,2) |
|---|
| 60 | real MPrsgrd_avg(GLOBAL_2D_ARRAY,N,2) |
|---|
| 61 | real MHmix_avg(GLOBAL_2D_ARRAY,N,2) |
|---|
| 62 | real MVmix_avg(GLOBAL_2D_ARRAY,N,2) |
|---|
| 63 | real Mrate_avg(GLOBAL_2D_ARRAY,N,2) |
|---|
| 64 | # endif |
|---|
| 65 | common /diag_MXadv/MXadv |
|---|
| 66 | & /diag_MYadv/MYadv |
|---|
| 67 | & /diag_MVadv/MVadv |
|---|
| 68 | & /diag_MCor/MCor |
|---|
| 69 | & /diag_MPrsgrd/MPrsgrd |
|---|
| 70 | & /diag_MHmix/MHmix |
|---|
| 71 | & /diag_MVmix/MVmix |
|---|
| 72 | & /diag_Mrate/Mrate |
|---|
| 73 | # ifdef AVERAGES |
|---|
| 74 | common /diag_timediaM_avg/timediaM_avg |
|---|
| 75 | common /diag_MXadv_avg/MXadv_avg |
|---|
| 76 | & /diag_MYadv_avg/MYadv_avg |
|---|
| 77 | & /diag_MVadv_avg/MVadv_avg |
|---|
| 78 | & /diag_MCor_avg/MCor_avg |
|---|
| 79 | & /diag_MPrsgrd_avg/MPrsgrd_avg |
|---|
| 80 | & /diag_MHmix_avg/MHmix_avg |
|---|
| 81 | & /diag_MVmix_avg/MVmix_avg |
|---|
| 82 | & /diag_Mrate_avg/Mrate_avg |
|---|
| 83 | # endif |
|---|
| 84 | #endif /* DIAGNOSTICS_UV */ |
|---|
| 85 | #ifdef DIAGNOSTICS_BIO |
|---|
| 86 | # ifdef PISCES |
|---|
| 87 | # ifdef key_trc_dia3d |
|---|
| 88 | real bioFlux(GLOBAL_2D_ARRAY,N,NumFluxTerms) |
|---|
| 89 | # endif |
|---|
| 90 | # ifdef key_trc_diaadd |
|---|
| 91 | real bioVSink(GLOBAL_2D_ARRAY,NumVSinkTerms) |
|---|
| 92 | # endif |
|---|
| 93 | # else |
|---|
| 94 | real bioFlux(GLOBAL_2D_ARRAY,N,NumFluxTerms) |
|---|
| 95 | real bioVSink(GLOBAL_2D_ARRAY,0:N,NumVSinkTerms) |
|---|
| 96 | # ifdef OXYGEN |
|---|
| 97 | real GasExcFlux(GLOBAL_2D_ARRAY,NumGasExcTerms) |
|---|
| 98 | # endif |
|---|
| 99 | # endif |
|---|
| 100 | # ifdef AVERAGES |
|---|
| 101 | # ifdef PISCES |
|---|
| 102 | # ifdef key_trc_dia3d |
|---|
| 103 | real bioFlux_avg(GLOBAL_2D_ARRAY,N,NumFluxTerms) |
|---|
| 104 | # endif |
|---|
| 105 | # ifdef key_trc_diaadd |
|---|
| 106 | real bioVSink_avg(GLOBAL_2D_ARRAY,NumVSinkTerms) |
|---|
| 107 | # endif |
|---|
| 108 | # else |
|---|
| 109 | real bioFlux_avg(GLOBAL_2D_ARRAY,N,NumFluxTerms) |
|---|
| 110 | real bioVSink_avg(GLOBAL_2D_ARRAY,0:N,NumVSinkTerms) |
|---|
| 111 | # ifdef OXYGEN |
|---|
| 112 | real GasExcFlux_avg(GLOBAL_2D_ARRAY,NumGasExcTerms) |
|---|
| 113 | # endif |
|---|
| 114 | # endif |
|---|
| 115 | real timediabio_avg |
|---|
| 116 | # endif |
|---|
| 117 | # ifdef PISCES |
|---|
| 118 | # ifdef key_trc_dia3d |
|---|
| 119 | common /diag_bioFlux/bioFlux |
|---|
| 120 | # endif |
|---|
| 121 | # ifdef key_trc_diaadd |
|---|
| 122 | & /diag_bioVSink/bioVSink |
|---|
| 123 | # endif |
|---|
| 124 | # else |
|---|
| 125 | common /diag_bioFlux/bioFlux |
|---|
| 126 | & /diag_bioVSink/bioVSink |
|---|
| 127 | # ifdef OXYGEN |
|---|
| 128 | & /diag_GasFlux/GasExcFlux |
|---|
| 129 | # endif |
|---|
| 130 | # endif |
|---|
| 131 | # ifdef AVERAGES |
|---|
| 132 | # ifdef PISCES |
|---|
| 133 | # ifdef key_trc_dia3d |
|---|
| 134 | & /diag_bioFlux_avg/bioFlux_avg |
|---|
| 135 | # endif |
|---|
| 136 | # ifdef key_trc_diaadd |
|---|
| 137 | & /diag_bioVSink_avg/bioVSink_avg |
|---|
| 138 | # endif |
|---|
| 139 | # else |
|---|
| 140 | & /diag_bioFlux_avg/bioFlux_avg |
|---|
| 141 | & /diag_bioVSink_avg/bioVSink_avg |
|---|
| 142 | # ifdef OXYGEN |
|---|
| 143 | & /diag_GasFlux_avg/GasExcFlux_avg |
|---|
| 144 | # endif |
|---|
| 145 | # endif |
|---|
| 146 | & /diag_timediabio_avg/timediabio_avg |
|---|
| 147 | # endif |
|---|
| 148 | #endif /* DIAGNOSTICS_BIO */ |
|---|
| 149 | |
|---|
