lengthBuff=sNxWh*gloNyWh
length_of_rec = MDS_RECLEN( filePrec,sNxWh*gloNyWh,myThid)
INTEGER gloNyWh
PARAMETER ( gloNyWh = procNyWh*nPy*nPx )