COMMON /MDS_WH_BUFFERS_3D_L/ writeWh
logical writeWh
writeWh=.FALSE.
writeWh=.TRUE.
& tapeBufferIO.AND.writeWh) THEN