!----------------------------------------------------------------------- real(4),pointer::pdsl(:,:),psdt(:,:),rtop(:,:,:) real(4),pointer::omgalf(:,:,:),div(:,:,:),etadt(:,:,:) COMMON/CONTIN/PDSL,PSDT,RTOP,OMGALF,DIV,ETADT !-----------------------------------------------------------------------