!-----------------------------------------------------------------------
    COMMON/BOCO / &
    PDB(LB,2),TB(LB,LM,2),QB(LB,LM,2),UB(LB,LM,2),VB(LB,LM,2) &
   ,Q2B(LB,LM,2),CWMB(LB,LM,2)
!-----------------------------------------------------------------------
