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