C----------------------------------------
C subroutine DIC_READ_CO2_PICKUP
C----------------------------------------
CADJ SUBROUTINE DIC_READ_CO2_PICKUP  INPUT  = 1,2
CADJ SUBROUTINE DIC_READ_CO2_PICKUP  OUTPUT =

