!-----------------------------------------------------------------------
      real(4),pointer::pd(:,:),t(:,:,:),u(:,:,:),v(:,:,:),q(:,:,:)
      real(4),pointer::fis(:,:),res(:,:)
      COMMON/VRBLS/PD,T,U,V,Q,FIS,RES
!-----------------------------------------------------------------------