Your first little subroutine, ZtoP or ZtoP.f if you write in modular form as you should, is needed because Atmospheric chemists tend to work in z, though the atmoshpere makes much more sense in p. Essentially, you have to integrate A(z) = const/T(z) from z=0 to z=Z. Write a subroutine to calculate p(Z) for the 11 values of Z using T(Z). For z > 50km, assume that T(z) = T(50km).
nlev - Z - T(Z) - p(Z) - COLMDEN(Z)