Store values in a NetCDF file

INTERFACE:

    integer function store_data(ncid,id,var_shape,nlev, &
                                iscalar,iarray,scalar,array)

DESCRIPTION:

This routine is used to store a variable in the NetCDF file. The subroutine uses optional parameters to find out which data type to save.

USES:

    IMPLICIT NONE

INPUT PARAMETERS:

    integer, intent(in)                 :: ncid,id,var_shape,nlev
    integer, optional                   :: iscalar
    integer, optional                   :: iarray(0:nlev)
    REALTYPE, optional                  :: scalar
    REALTYPE, optional                  :: array(0:nlev)

REVISION HISTORY:

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