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