integer dumpAdRecDy
& dumpAdRecMn, dumpAdRecDy, dumpAdRecSi
& adrhoinsitu, dumpAdRecDy, myIter, myThid )
& var3Du, dumpAdRecDy, myIter, myThid )
dumpAdRecDy=dumpAdRecDy+1
dumpAdRecDy=0