File indexing completed on 2025-12-02 20:42:53 UTC
view on githubraw file Latest commit a092808e on 2025-12-02 20:09:45 UTC
8fbfd1f382 Oliv*0001 #ifdef ALLOW_DARWIN
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011 integer iPP
0012 integer iNfix
0013 integer iDenit
0014 integer iDenitN
b61dca872c Oliv*0015 integer iConsDIN
0016 integer iConsNO3
0017 integer iConsNO2
0018 integer iConsNH4
5e411acc9e Oliv*0019 integer iConsPO4
0020 integer iConsFe
0021 integer iConsSi
b61dca872c Oliv*0022 integer iConsDIC
0023 integer iConsDIC_PIC
0024 integer iRespirDIC
0025 integer iReminDIC_DOC
0026 integer iReminDIC_POC
0027 integer iDisscDIC_PIC
0028 integer iConsALK
5e411acc9e Oliv*0029 integer iSrcAlk
b61dca872c Oliv*0030 integer iConsO2
5e411acc9e Oliv*0031 integer iProdO2
b61dca872c Oliv*0032 integer iPPplank
c7b6c66d45 Oliv*0033 integer iPCplank
b61dca872c Oliv*0034 integer iGRplank
0035 integer iGrGn
a93256cee4 Oliv*0036 integer iGrGC
0037 integer iHPplank
0038 integer iHCplank
b6fafcd98a Oliv*0039 integer ifIphavg
0040 integer ifTphavg
0041 integer ifnutavg
fd20fa810c Oliv*0042 #ifdef DARWIN_DIAG_PERTYPE
0043 integer iMort
0044 integer iResp
0045 integer ilimN
0046 integer ilimP
0047 integer ilimF
0048 integer ilimS
0049 integer ifnut
0050 integer ifIph
0051 integer ifTph
a092808e6b shlo*0052 # ifdef DARWIN_MACROMOLECULAR_GROWTH
0053 integer iPChl, iVN, iVP
0054 integer iCChl, iNChl, iNPho, iNSyn, iNPrn, iNRNA
0055 integer iNDNA, iNSTO, iNEXC
0056 integer iPRNA, iPDNA, iPTHY, iPCON, iPSTO, iPEXC
0057 integer iFPHO, iFSTO, iFEXC, iY_RQ
0058 integer iMODE, iFe_C, iexQc
0059 integer ilimC, ilimL
0060 # endif
fd20fa810c Oliv*0061 #endif
c7b6c66d45 Oliv*0062 #ifdef DARWIN_ALLOW_CSTORE
0063 integer iEX
0064 integer iGW
0065 integer iDN
0066 integer iDP
0067 integer iDFe
0068 integer iDSi
0069 integer iDmin
0070 # ifdef DARWIN_ALLOW_CSTORE_DIAGS
0071 integer iEXplank
0072 integer iGWplank
0073 integer iDNplank
0074 integer iDPplank
0075 integer iDFplank
0076 integer iDSplank
0077 integer iDminplank
0078 # endif
0079 #endif
8fbfd1f382 Oliv*0080 integer darwin_nDiag
b61dca872c Oliv*0081
5e411acc9e Oliv*0082 PARAMETER(iPP= 1)
0083 PARAMETER(iNfix= 2)
0084 PARAMETER(iDenit= 3)
0085 PARAMETER(iDenitN= 4)
0086 PARAMETER(iConsDIN= 5)
0087 PARAMETER(iConsNO3= 6)
0088 PARAMETER(iConsNO2= 7)
0089 PARAMETER(iConsNH4= 8)
0090 PARAMETER(iConsPO4= 9)
0091 PARAMETER(iConsFe= 10)
0092 PARAMETER(iConsSi= 11)
b61dca872c Oliv*0093 PARAMETER(iConsDIC=12)
0094 PARAMETER(iConsDIC_PIC=13)
0095 PARAMETER(iRespirDIC=14)
0096 PARAMETER(iReminDIC_DOC=15)
0097 PARAMETER(iReminDIC_POC=16)
0098 PARAMETER(iDisscDIC_PIC=17)
0099 PARAMETER(iConsALK=18)
5e411acc9e Oliv*0100 PARAMETER(iSrcAlk= 19)
0101 PARAMETER(iConsO2= 20)
0102 PARAMETER(iProdO2= 21)
b6fafcd98a Oliv*0103 PARAMETER(ifIphavg= 22)
0104 PARAMETER(ifTphavg= 23)
0105 PARAMETER(ifnutavg= 24)
c7b6c66d45 Oliv*0106 #ifdef DARWIN_ALLOW_CSTORE
b6fafcd98a Oliv*0107 PARAMETER(iEX= 25)
c7b6c66d45 Oliv*0108 PARAMETER(iGW= iEX+1)
0109 PARAMETER(iDN= iGW+1)
0110 PARAMETER(iDP= iDN+1)
0111 PARAMETER(iDFe= iDP+1)
0112 PARAMETER(iDSi= iDFe+1)
0113 PARAMETER(iDmin=iDSi+1)
0114 # ifdef DARWIN_ALLOW_CSTORE_DIAGS
0115 PARAMETER(iEXplank=iDmin+1)
0116 PARAMETER(iGWplank=iEXplank+nPhoto)
0117 PARAMETER(iDNplank=iGWplank+nPhoto)
0118 PARAMETER(iDPplank=iDNplank+nPhoto)
0119 PARAMETER(iDFplank=iDPplank+nPhoto)
0120 PARAMETER(iDSplank=iDFplank+nPhoto)
0121 PARAMETER(iDminplank=iDSplank+nPhoto)
0122 PARAMETER(iPPplank=iDminplank+nPhoto)
0123 # else
0124 PARAMETER(iPPplank=iDmin+1)
0125 # endif
0126 #else
b6fafcd98a Oliv*0127 PARAMETER(iPPplank=25)
c7b6c66d45 Oliv*0128 #endif
ee4178dfbe Oliv*0129 #ifdef DARWIN_DIAG_PERTYPE
d5f8f1c735 Oliv*0130 PARAMETER(iPCplank=iPPplank+nplank)
0131 PARAMETER(iGRplank=iPCplank+nplank)
ee4178dfbe Oliv*0132 PARAMETER(iGrGn=iGRplank+nplank)
a93256cee4 Oliv*0133 PARAMETER(iGrGC=iGrGn+nplank)
0134 PARAMETER(iHPplank=iGrGC+nplank)
0135 PARAMETER(iHCplank=iHPplank+nplank)
fd20fa810c Oliv*0136 PARAMETER(iMort=iHCplank+nplank)
0137 PARAMETER(iResp=iMort+nplank)
0138 PARAMETER(ilimN=iResp+nplank)
0139 PARAMETER(ilimP=ilimN+nplank)
0140 PARAMETER(ilimF=ilimP+nplank)
0141 PARAMETER(ilimS=ilimF+nplank)
0142 PARAMETER(ifnut=ilimS+nplank)
0143 PARAMETER(ifIph=ifnut+nplank)
0144 PARAMETER(ifTph=ifIph+nplank)
a092808e6b shlo*0145 # ifdef DARWIN_MACROMOLECULAR_GROWTH
0146 PARAMETER(iPChl=ifTph+nplank)
0147 PARAMETER(iVN= iPChl+nPhoto)
0148 PARAMETER(iVP= iVN +nPhoto)
0149 PARAMETER(iMODE=iVP +nPhoto)
0150 PARAMETER(iFe_C=iMODE+nPhoto)
0151 PARAMETER(iexQc=iFe_C+nPhoto)
0152 PARAMETER(iCChl=iexQc+nPhoto)
0153 PARAMETER(iNChl=iCChl+nPhoto)
0154 PARAMETER(iNPho=iNChl+nPhoto)
0155 PARAMETER(iNSyn=iNPho+nPhoto)
0156 PARAMETER(iNPrn=iNSyn+nPhoto)
0157 PARAMETER(iNRNA=iNPrn+nPhoto)
0158 PARAMETER(iNDNA=iNRNA+nPhoto)
0159 PARAMETER(iNSTO=iNDNA+nPhoto)
0160 PARAMETER(iNEXC=iNSTO+nPhoto)
0161 PARAMETER(iPRNA=iNEXC+nPhoto)
0162 PARAMETER(iPDNA=iPRNA+nPhoto)
0163 PARAMETER(iPTHY=iPDNA+nPhoto)
0164 PARAMETER(iPCON=iPTHY+nPhoto)
0165 PARAMETER(iPSTO=iPCON+nPhoto)
0166 PARAMETER(iPEXC=iPSTO+nPhoto)
0167 PARAMETER(iFPHO=iPEXC+nPhoto)
0168 PARAMETER(iFSTO=iFPHO+nPhoto)
0169 PARAMETER(iFEXC=iFSTO+nPhoto)
0170 PARAMETER(iY_RQ=iFEXC+nPhoto)
0171 PARAMETER(ilimC=iY_RQ+nPhoto)
0172 PARAMETER(ilimL=ilimC+nPhoto)
0173 PARAMETER(darwin_nDiag=ilimL+nPhoto-1)
0174 # else
fd20fa810c Oliv*0175 PARAMETER(darwin_nDiag=ifTph+nplank-1)
a092808e6b shlo*0176 # endif
ee4178dfbe Oliv*0177 #else
d5f8f1c735 Oliv*0178 PARAMETER(iPCplank=iPPplank)
a93256cee4 Oliv*0179 PARAMETER(iGRplank=iPPplank)
0180 PARAMETER(iGrGn=iPPplank)
0181 PARAMETER(iGrGC=iPPplank)
0182 PARAMETER(iHPplank=iPPplank)
0183 PARAMETER(iHCplank=iPPplank)
0184 PARAMETER(darwin_nDiag=iPPplank-1)
ee4178dfbe Oliv*0185 #endif
8fbfd1f382 Oliv*0186
0187
0188 #endif /* ALLOW_DARWIN */
