c
c Explicit and implicit cooling terms for o3p, no, and co2 are
c   saved from NEWTO3P and RADCOOL (previously NEWTON) in common
c   /cool/. These terms are then used at end of DT to save o3p, no,
c   and co2 cooling for concurrent model processors:
c
      real :: co2imp,co2exp,rnoimp,rnoexp,o3pimp,o3pexp
      common /cool/ co2imp(zimxp,zkmxp),co2exp(zimxp,zkmxp),
     +              rnoimp(zimxp,zkmxp),rnoexp(zimxp,zkmxp),
     +              o3pimp(zimxp,zkmxp),o3pexp(zimxp,zkmxp)
!$OMP THREADPRIVATE (/cool/)
!DIR$ TASKCOMMON COOL
c