& fld2d_procbuff_r8, fld2d_procbuff_r4
Real*4 fld2d_procbuff_r4( (sNx+2*Olx)*(sNy+2*Oly)*nSx*nSy )
fld2d_procbuff_r4(i)=fld3d_procbuff_r4(j)
READ(dUnit,rec=irec2d) fld2d_procbuff_r4
& fld2d_procbuff_r4,myThid)
CALL MDS_PASS_R4TORL( fld2d_procbuff_r4, fldRL,
fld3d_procbuff_r4(j)=fld2d_procbuff_r4(i)
WRITE(dUnit,rec=irec2d) fld2d_procbuff_r4