Begin or end define mode

INTERFACE:

    integer function define_mode(ncid,action)

DESCRIPTION:

Depending on the value of the argument action, this routine put NetCDF in the `define' mode or not.

USES:

    IMPLICIT NONE

INPUT PARAMETERS:

    integer, intent(in)       :: ncid
    logical, intent(in)       :: action

REVISION HISTORY:

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