!-----------------------------------------------------------------------
       real(4),pointer::pdb(:,:),tb(:,:,:),qb(:,:,:),ub(:,:,:)
       real(4),pointer::vb(:,:,:),q2b(:,:,:),cwmb(:,:,:)
       COMMON/BOCO/PDB,TB,QB,UB,VB,Q2B,CWMB
!-----------------------------------------------------------------------