get_3d_field_ncdf -

INTERFACE:

    subroutine get_3d_field_ncdf(fname,var,nf,break_on_missing,f)

DESCRIPTION:

From a NetCDF files - fname - read the variable - var - into the field - f. USES:

     use netcdf
    use domain, only: imin,jmin,imax,jmax,kmax,iextr,jextr,ioff,joff
    use domain, only: il_domain=>il,ih_domain=>ih,jl_domain=>jl,jh_domain=>jh
    use domain, only: H,az
 #ifndef NO_3D
    use variables_3d, only: hn
 #endif
    IMPLICIT NONE

INPUT PARAMETERS:

    character(len=*), intent(in)        :: fname,var
    integer, intent(in)                 :: nf
    logical, intent(in)                 :: break_on_missing

INPUT/OUTPUT PARAMETERS:

OUTPUT PARAMETERS:

    REALTYPE, intent(inout)             :: f(I3DFIELD)

REVISION HISTORY:

    Original author(s): Karsten Bolding

LOCAL VARIABLES:

    integer                   :: il,jl,iloc,jloc,indx
    integer                   :: ih,jh,kh,nh
    integer                   :: rc,err,ncid,var_id,i,j,k,n
    integer                   :: start(4),edges(4)
    integer                   :: ndims
    integer                   :: xax_id=-1,yax_id=-1,zax_id=-1,time_id=-1
    character(len=256)        :: dimname
    REAL_4B, allocatable      :: zax(:), tax(:), wrk(:)
    REALTYPE, allocatable     :: zax_2d(:), wrk_2d(:,:,:)