pkg/darwin/DARWIN_INDICES.h

8fbfd1f382 Oliv*0001 #ifdef ALLOW_DARWIN
                0002
                0003 CBOP
                0004 C    !ROUTINE: DARWIN_INDICES.h
                0005 C    !INTERFACE:
                0006 C #include DARWIN_INDICES.h
                0007
                0008 C    !DESCRIPTION:
                0009 C Contains indices into ptracer array
                0010
                0011 C these cannot be modified for now
                0012
                0013       INTEGER iDIC
                0014       INTEGER iNO3
                0015       INTEGER iNO2
                0016       INTEGER iNH4
                0017       INTEGER iPO4
                0018       INTEGER iFeT
                0019       INTEGER iSiO2
                0020       INTEGER iDOC
                0021       INTEGER iDON
                0022       INTEGER iDOP
                0023       INTEGER iDOFe
                0024       INTEGER iPOC
                0025       INTEGER iPON
                0026       INTEGER iPOP
                0027       INTEGER iPOFe
                0028       INTEGER iPOSi
                0029       INTEGER iPIC
                0030       INTEGER ic
                0031       INTEGER eCARBON
                0032       INTEGER eCDOM
                0033       INTEGER ec
                0034       INTEGER en
                0035       INTEGER ep
                0036       INTEGER efe
                0037       INTEGER esi
                0038       INTEGER eChl
c7b6c66d45 Oliv*0039       INTEGER ech
8fbfd1f382 Oliv*0040       INTEGER nDarwin
                0041       PARAMETER (iDIC   =1)
d6b63ae43d Oliv*0042       PARAMETER (iNO3   =iDIC +1)
8fbfd1f382 Oliv*0043       PARAMETER (iNO2   =iNO3 +1)
                0044       PARAMETER (iNH4   =iNO2 +1)
                0045       PARAMETER (iPO4   =iNH4 +1)
                0046       PARAMETER (iFeT   =iPO4 +1)
                0047       PARAMETER (iSiO2  =iFeT +1)
                0048       PARAMETER (iDOC   =iSiO2+1)
                0049       PARAMETER (iDON   =iDOC +1)
                0050       PARAMETER (iDOP   =iDON +1)
                0051       PARAMETER (iDOFe  =iDOP +1)
                0052       PARAMETER (iPOC   =iDOFe+1)
                0053       PARAMETER (iPON   =iPOC +1)
                0054       PARAMETER (iPOP   =iPON +1)
                0055       PARAMETER (iPOFe  =iPOP +1)
                0056       PARAMETER (iPOSi  =iPOFe+1)
                0057       PARAMETER (iPIC   =iPOSi+1)
                0058 #ifdef DARWIN_ALLOW_CARBON
                0059       INTEGER iALK
                0060       INTEGER iO2
                0061       PARAMETER (iALK   =iPIC +1)
                0062       PARAMETER (iO2    =iALK +1)
                0063       PARAMETER (eCARBON=iO2)
                0064 #else
                0065       PARAMETER (eCARBON=iPIC)
                0066 #endif
                0067 #ifdef DARWIN_ALLOW_CDOM
                0068       INTEGER iCDOM
                0069       PARAMETER (iCDOM  =eCARBON+1)
                0070       PARAMETER (eCDOM  =iCDOM)
                0071 #else
                0072       PARAMETER (eCDOM  =eCARBON)
                0073 #endif
                0074       PARAMETER (ic     =eCDOM+1)
                0075       PARAMETER (ec     =ic   +nplank-1)
                0076 #ifdef DARWIN_ALLOW_NQUOTA
                0077       INTEGER in
                0078       PARAMETER (in     =ec  +1)
                0079       PARAMETER (en     =in  +nplank-1)
                0080 #else
                0081       PARAMETER (en     =ec)
                0082 #endif
                0083 #ifdef DARWIN_ALLOW_PQUOTA
                0084       INTEGER ip
                0085       PARAMETER (ip     =en  +1)
                0086       PARAMETER (ep     =ip  +nplank-1)
                0087 #else
                0088       PARAMETER (ep     =en)
                0089 #endif
                0090 #ifdef DARWIN_ALLOW_FEQUOTA
                0091       INTEGER ife
                0092       PARAMETER (ife    =ep  +1)
                0093       PARAMETER (efe    =ife +nplank-1)
                0094 #else
                0095       PARAMETER (efe    =ep)
                0096 #endif
                0097 #ifdef DARWIN_ALLOW_SIQUOTA
                0098       INTEGER isi
                0099       PARAMETER (isi    =efe +1)
                0100       PARAMETER (esi    =isi +nplank-1)
                0101 #else
                0102       PARAMETER (esi    =efe)
                0103 #endif
                0104 #ifdef DARWIN_ALLOW_CHLQUOTA
                0105       INTEGER iChl
                0106       PARAMETER (iChl   =esi +1)
                0107       PARAMETER (eChl   =iChl+nPhoto-1)
                0108 #else
d6b63ae43d Oliv*0109       PARAMETER (eChl   =esi)
8fbfd1f382 Oliv*0110 #endif
c7b6c66d45 Oliv*0111 #ifdef DARWIN_ALLOW_CSTORE
                0112       INTEGER ich
                0113       PARAMETER (ich   =eChl +1)
                0114       PARAMETER (ech   =ich+nPhoto-1)
                0115 #else
                0116       PARAMETER (ech   =eChl)
                0117 #endif
                0118       PARAMETER (nDarwin=ech)
8fbfd1f382 Oliv*0119
                0120 CEOP
                0121 #endif /* ALLOW_DARWIN */