integer nWh, iWh, jWh
PARAMETER (nWh=30*Nr)
& ( (sNx+2*Olx)*(sNy+2*Oly)*nSx*nSy*nWh )
& ( (sNx+2*Olx)*(sNy+2*Oly)*nSx*nSy*nPx*nPy*nWh )
IF (jWh.EQ.nWh) jWh=0
iWh=(irec2d-1)/nWh+1
IF (jWh.EQ.nWh) THEN
tapeMaxCounter=nWh
iWh=tapeMaxCounter*MAX(nchklev_2,nchklev_3)/nWh+1
length_of_rec=length_of_rec*nWh