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(:,:,:)



kklingbe 2017-10-02