Initialise mean netCDf variables

INTERFACE:

    subroutine init_mean_ncdf(fn,title,starttime)

DESCRIPTION:

USES:

    use netcdf
    use exceptions
    use ncdf_common
    use ncdf_mean
    use domain, only: ioff,joff
    use domain, only: imin,imax,jmin,jmax,kmax
    use domain, only: vert_cord
    use m3d, only: calc_temp,calc_salt
 #ifdef GETM_BIO
    use bio_var, only: numc,var_names,var_units,var_long
 #endif
 #ifdef _FABM_
    use getm_fabm, only: model,fabm_pel,output_none
 #endif
    use getm_version
    IMPLICIT NONE

INPUT PARAMETERS:

    character(len=*), intent(in)        :: fn,title,starttime

DEFINED PARAMETERS:

    logical,    parameter               :: init3d=.true.

REVISION HISTORY:

    Original author(s): Adolf Stips & Karsten Bolding
    Revision 1.1  2004/03/29 15:38:10  kbk
    possible to store calculated mean fields

LOCAL VARIABLES:

    integer                   :: n
    integer                   :: err
    integer                   :: scalar(1),f3_dims(3),f4_dims(4)
    REALTYPE                  :: fv,mv,vr(2)
    character(len=80)         :: history,tts