Index error for fixed mixing ratio upper boundary condition

[Nicholaswogan]

I think this is an indexing error for fixed mixing ratio upper boundary conditions

atmos/PhotoMain.f

Line 2020 in cdfe1b0

MM = KD + K - M

I think the K should be replaced with an I. The code should be

        do M=1,NQ
          MM = KD + I - M
          DJAC(MM,M) = 0.
        enddo