C-----------------------------------------------------------------------
                             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)
                             save /BOCO /
C-----------------------------------------------------------------------