Re: [FLASH-BUGS] Bug in MarkRefLib.F90

From: Katherine M Riley (kmriley@zingiber.uchicago.edu)
Date: Fri Sep 13 2002 - 13:29:36 CDT

Next message: flash-bugs: "[FLASH-BUGS] Dear flash-bugs , Get on the bandwagon!"

Previous message: Andrew Siegel: "Re: [FLASH-BUGS] hangups on IBM regatta"
Next in thread: Andrew Siegel: "Re: [FLASH-BUGS] hangups on IBM regatta"
Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]

You are completely correct - the curses of copying and pasting. Thank you.

-katherine

Sebastian Heinz writes:
>Dear FLASH team,
>
>There is a small bug in MarkRefLib.F90:
>
>lines 185 through 194 should read
>
>!=====================================================================
>
> if (ndim .eq. 3) then
> if ( (coords(3)-zc) > 0 ) then
> call dBaseGetCoords(znl, zCoord, block_no, face_zcoords)
> zcell = nguard+1
> else if ( (coords(3)-zc) < 0 ) then
> call dBaseGetCoords(znr, zCoord, block_no, face_zcoords)
> zcell = nguard+nzb
> else
> call dBaseGetCoords(znr, zCoord, block_no, face_zcoords)
> zcell = nguard+(nzb/2)
> endif
> endif
>
>!=====================================================================
>
>
>
>Best regards,
>
>Sebastian

Next message: flash-bugs: "[FLASH-BUGS] Dear flash-bugs , Get on the bandwagon!"
Previous message: Andrew Siegel: "Re: [FLASH-BUGS] hangups on IBM regatta"
Next in thread: Andrew Siegel: "Re: [FLASH-BUGS] hangups on IBM regatta"
Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]

This archive was generated by hypermail 2b30 : Fri Sep 13 2002 - 13:26:31 CDT