Isotopes in the Ocean and Atmosphere

The application of these equations to the marine carbon system is illustrated by program ISOT01, which adds isotopes to the three-reservoir system of atmosphere, shallow ocean, and deep ocean presented in program DGC10 in Chapter 5. In subroutine EQUATIONS, equations 6 to 8 are for the stable isotope 13C, and equations 9 to 11 describe radiocarbon. The rest of the physical system is identical to that of program DGC10. 

DIM sleq(nrow, ncol), unk(nrow), y(nrow), dely(nrow), yp(nrow) 

DIN Inclnd(nrott) Controls test on Increment in CHECKSTEP 

GOSUB SPECS GOSUB FFUEL GOSUB FILER 

PRINTER Subroutine writes a file for subsequent plotting GOSUB DEFINITIONS 

---