Initialise 3D netCDF variables

INTERFACE:

    subroutine init_3d_ncdf(fn,title,starttime)
DESCRIPTION:

USES:

    use netcdf
    use exceptions
    use ncdf_common
    use ncdf_2d,      only: ws2d => ws
    use ncdf_3d
    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 SPM
    use suspended_matter, only: spm_save
 #endif
 #ifdef GETM_BIO
    use bio_var, only: numc,var_names,var_units,var_long
 #endif
 #ifdef _FABM_
    use getm_fabm, only: model,fabm_calc,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:
LOCAL VARIABLES:
    integer                   :: err
    integer                   :: n,rc
    integer                   :: scalar(1),f3_dims(3),f4_dims(4)
    REALTYPE                  :: fv,mv,vr(2)
    character(len=80)         :: history,ts



kklingbe 2017-10-02