include file: combalop.cdk 3 #if defined (DOC) C C COMDECK: COMBALOP C ----------------- C C Author: Y.J Rochon, ARQX/EC June 2006 C C Content: Fields for species-related balance operators C (variable transformations) C C ----------------------------------------------------- C C BALOP(NFLEV,NFLEV,NJ*(NBALOP+1)): Balance operators C NBALI(NBALOP+1) C #endif REAL*8 BALOP(100,100,4000) INTEGER NBALI(10),NBALSRC(10),NBALDEST(10) INTEGER NBALNUM1,NBALNUM2,NBALNUM3 PARAMETER (NBALNUM1=10, NBALNUM2=4000, NBALNUM3=100) C COMMON /COMBALOPC/BALOP COMMON /COMBALOPI/NBALI,NBALSRC,NBALDEST C