Close files used for saving model results

INTERFACE:

    subroutine close_ascii(unit)
    IMPLICIT NONE

DESCRIPTION:

Close the open ASCII file.

INPUT PARAMETERS:

    integer, intent(in)                 :: unit

REVISION HISTORY:

    Original author(s): Karsten Bolding & Hans Burchard
    See asciiout module