tools_netcdf.F90

Go to the documentation of this file.

# 1 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
# 1 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/../generics.fypp" 1
!----------------------------------------------------------------------
! Header: generics
!> Generic ranks, dimensions and types
! Author: Benjamin Menetrier
! Licensing: this code is distributed under the CeCILL-C license
! Copyright 2015-... UCAR, CERFACS, METEO-FRANCE and IRIT
!----------------------------------------------------------------------
 
# 57 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/../generics.fypp"
# 2 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp" 2
# 1 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/../instrumentation.fypp" 1
# 1 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/../subr_list.fypp" 1
!----------------------------------------------------------------------
! Header: subr_list
!> Subroutines/functions list
! Author: Benjamin Menetrier
! Licensing: this code is distributed under the CeCILL-C license
! Copyright 2015-... UCAR, CERFACS, METEO-FRANCE and IRIT
!----------------------------------------------------------------------
 
# 926 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/../subr_list.fypp"
# 2 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/../instrumentation.fypp" 2
!----------------------------------------------------------------------
! Header: instrumentation
!> Instrumentation functions
! Author: Benjamin Menetrier
! Licensing: this code is distributed under the CeCILL-C license
! Copyright 2015-... UCAR, CERFACS, METEO-FRANCE and IRIT
!----------------------------------------------------------------------
 
# 112 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/../instrumentation.fypp"
# 3 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp" 2
!----------------------------------------------------------------------
! Module: tools_netcdf
!> NetCDF wrappers
! Author: Benjamin Menetrier
! Licensing: this code is distributed under the CeCILL-C license
! Copyright 2015-... UCAR, CERFACS, METEO-FRANCE and IRIT
!----------------------------------------------------------------------
module tools_netcdf
 
use iso_fortran_env, only: output_unit
use netcdf, only: nf90_clobber,nf90_create,nf90_close,nf90_def_dim,nf90_def_grp,nf90_def_var,nf90_ebaddim,nf90_get_att, &
 & nf90_get_var,nf90_global,nf90_inq_dimid,nf90_inq_grp_ncid,nf90_inquire_dimension,nf90_inquire_variable,nf90_inq_varid, &
 & nf90_mpiio,nf90_netcdf4,nf90_noerr,nf90_nowrite,nf90_open,nf90_put_att,nf90_put_var,nf90_strerror,nf90_write
use tools_func, only: convert_i2l,convert_l2i
use tools_kinds, only: kind_signed_char,kind_int,kind_float,kind_double,kind_real,nc_kind_int,nc_kind_real
use type_mpl, only: mpl_type
 
 
implicit none
 
integer,parameter :: nidmax = 1000   !< Maximum number of simultaneous file and group ids
integer,parameter :: ncharmax = 1024 !< Maximum number of characters to store file and group names
 
type registry_type
   ! Current activity
   integer :: id(nidmax,2) = -1            !< Parent/child registry
   character(len=ncharmax) :: name(nidmax) !< Child names
 
   ! Archive
   integer :: nopened = 0                  !< Number of opened files
   integer :: nclosed = 0                  !< Number of closed files
contains
   procedure :: report => registry_report
   procedure :: save => registry_save
   procedure :: get_root_id => registry_get_root_id
   procedure :: free => registry_free
   procedure :: recursive_cleaning => registry_recursive_cleaning
end type registry_type
 
type(registry_type) :: registry
 
interface create_file
   module procedure netcdf_create_file
end interface
interface open_file
   module procedure netcdf_open_file
end interface
interface define_grp
   module procedure netcdf_define_grp
end interface
interface inquire_grp
   module procedure netcdf_inquire_grp
end interface
interface put_att
# 58 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      module procedure netcdf_put_att_int
# 58 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      module procedure netcdf_put_att_real
# 58 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      module procedure netcdf_put_att_logical
# 58 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      module procedure netcdf_put_att_string
# 60 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end interface
interface get_att
# 63 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      module procedure netcdf_get_att_int
# 63 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      module procedure netcdf_get_att_real
# 63 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      module procedure netcdf_get_att_logical
# 63 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      module procedure netcdf_get_att_string
# 65 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end interface
interface define_dim
   module procedure netcdf_define_dim
end interface
interface inquire_dim
   module procedure netcdf_inquire_dim
end interface
interface inquire_dim_size
   module procedure netcdf_inquire_dim_size
end interface
interface check_dim
   module procedure netcdf_check_dim_size
end interface
interface define_var
   module procedure netcdf_define_var
end interface
interface inquire_var
   module procedure netcdf_inquire_var
end interface
interface inquire_var_presence
   module procedure netcdf_inquire_var_presence
end interface
interface inquire_var_rank
   module procedure netcdf_inquire_var_rank
end interface
interface inquire_var_dim_size
   module procedure netcdf_inquire_var_dim_size
end interface
interface put_var
# 95 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      module procedure netcdf_put_var_int_r0
# 95 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      module procedure netcdf_put_var_real_r0
# 95 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      module procedure netcdf_put_var_logical_r0
# 97 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
# 98 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
# 99 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
         module procedure netcdf_put_var_int_r1
# 99 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
         module procedure netcdf_put_var_real_r1
# 99 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
         module procedure netcdf_put_var_logical_r1
# 101 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
# 98 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
# 99 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
         module procedure netcdf_put_var_int_r2
# 99 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
         module procedure netcdf_put_var_real_r2
# 99 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
         module procedure netcdf_put_var_logical_r2
# 101 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
# 98 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
# 99 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
         module procedure netcdf_put_var_int_r3
# 99 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
         module procedure netcdf_put_var_real_r3
# 99 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
         module procedure netcdf_put_var_logical_r3
# 101 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
# 98 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
# 99 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
         module procedure netcdf_put_var_int_r4
# 99 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
         module procedure netcdf_put_var_real_r4
# 99 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
         module procedure netcdf_put_var_logical_r4
# 101 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
# 102 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end interface
interface get_var
# 105 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      module procedure netcdf_get_var_byte_r0
# 105 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      module procedure netcdf_get_var_int_r0
# 105 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      module procedure netcdf_get_var_float_r0
# 105 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      module procedure netcdf_get_var_real_r0
# 105 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      module procedure netcdf_get_var_logical_r0
# 107 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
# 108 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
# 109 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
         module procedure netcdf_get_var_byte_r1
# 109 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
         module procedure netcdf_get_var_int_r1
# 109 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
         module procedure netcdf_get_var_float_r1
# 109 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
         module procedure netcdf_get_var_real_r1
# 109 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
         module procedure netcdf_get_var_logical_r1
# 111 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
# 108 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
# 109 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
         module procedure netcdf_get_var_byte_r2
# 109 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
         module procedure netcdf_get_var_int_r2
# 109 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
         module procedure netcdf_get_var_float_r2
# 109 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
         module procedure netcdf_get_var_real_r2
# 109 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
         module procedure netcdf_get_var_logical_r2
# 111 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
# 108 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
# 109 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
         module procedure netcdf_get_var_byte_r3
# 109 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
         module procedure netcdf_get_var_int_r3
# 109 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
         module procedure netcdf_get_var_float_r3
# 109 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
         module procedure netcdf_get_var_real_r3
# 109 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
         module procedure netcdf_get_var_logical_r3
# 111 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
# 108 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
# 109 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
         module procedure netcdf_get_var_byte_r4
# 109 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
         module procedure netcdf_get_var_int_r4
# 109 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
         module procedure netcdf_get_var_float_r4
# 109 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
         module procedure netcdf_get_var_real_r4
# 109 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
         module procedure netcdf_get_var_logical_r4
# 111 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
# 112 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end interface
interface close_file
   module procedure netcdf_close_file
end interface
interface strerror
   module procedure netcdf_strerror
end interface
 
private
public :: registry
public :: create_file,open_file,define_grp,inquire_grp,put_att,get_att,define_dim,inquire_dim,inquire_dim_size,check_dim, &
 & define_var,inquire_var,inquire_var_presence,inquire_var_rank,inquire_var_dim_size,put_var,get_var,close_file,strerror
 
contains
 
!----------------------------------------------------------------------
! Subroutine: registry_report
!> Print registry report
!----------------------------------------------------------------------
subroutine registry_report(registry,mpl)
 
implicit none
 
! Passed variable
class(registry_type),intent(inout) :: registry !< Registry
type(mpl_type),intent(inout) :: mpl            !< MPI data
 
! Set name
 
 
! Probe in
 
 
write(mpl%info,'(a7,a,i3)') '','Number of opened files: ',registry%nopened
call mpl%flush
write(mpl%info,'(a7,a,i3)') '','Number of closed files: ',registry%nclosed
call mpl%flush
write(mpl%info,'(a7,a,i3)') '','Registry status: ',count(registry%id(:,1)/=-1)
call mpl%flush
 
! Probe out
 
 
end subroutine registry_report
 
!----------------------------------------------------------------------
! Subroutine: registry_save
!> Save ID in registry
!----------------------------------------------------------------------
subroutine registry_save(registry,mpl,parent_id,child_id,child_name)
 
implicit none
 
! Passed variable
class(registry_type),intent(inout) :: registry !< Registry
type(mpl_type),intent(inout) :: mpl            !< MPI data
integer,intent(in) :: parent_id                !< Parent ID
integer,intent(in) :: child_id                 !< Child ID
character(len=*),intent(in) :: child_name      !< Child name
 
! Local variables
integer :: i,rid
 
! Set name
 
 
! Probe in
 
 
! Initialization
rid = mpl%msv%vali
 
! Get a free slot
do i=1,nidmax
   if (registry%id(i,1)==-1) then
      rid = i
      exit
   end if
end do
 
! Check slot index
if (mpl%msv%is(rid)) call mpl%abort('registry_save','no more free slots in the files registry')
 
! Save parent ID
registry%id(rid,1) = parent_id
 
! Save child ID
registry%id(rid,2) = child_id
 
! Save child name
registry%name(rid) = child_name(1:min(len(child_name),ncharmax))
 
! Update archive
if (parent_id==0) registry%nopened = registry%nopened+1
 
! Probe out
 
 
end subroutine registry_save
 
!----------------------------------------------------------------------
! Function: registry_get_root_id
!> Get root ID in registry from a given ID
!----------------------------------------------------------------------
function registry_get_root_id(registry,mpl,ncid) result(rid)
 
implicit none
 
! Passed variable
class(registry_type),intent(inout) :: registry !< Registry
type(mpl_type),intent(inout) :: mpl            !< MPI data
integer,intent(in) :: ncid                     !< Child ID
 
! Returned variable
integer :: rid
 
! Local variable
integer :: child_id,parent_id,i
logical :: found
 
! Set name
 
 
! Probe in
 
 
if (mpl%msv%isnot(ncid)) then
   ! Initialization
   found = .false.
   child_id = ncid
 
   ! Look for successive parents
   do while (.not.found)
      ! Initialization
      rid = mpl%msv%vali
 
      ! Get corresponding slot
      do i=1,nidmax
         if (registry%id(i,2)==child_id) then
            rid = i
            exit
         end if
      end do
 
      ! Check slot index
      if (mpl%msv%is(rid)) call mpl%abort('registry_get_root_id','cannot find this child ID in registry')
 
      ! Get parent_id
      parent_id = registry%id(i,1)
 
      if (parent_id==0) then
         ! Found root ID
         found = .true.
      else
         ! Update child ID
         child_id = parent_id
      end if
   end do
else
   ! Missing value
   rid = mpl%msv%vali
end if
 
! Probe out
 
 
end function registry_get_root_id
 
!----------------------------------------------------------------------
! Subroutine: registry_free
!> Free registry slot
!----------------------------------------------------------------------
subroutine registry_free(registry,mpl,ncid)
 
implicit none
 
! Passed variable
class(registry_type),intent(inout) :: registry !< Registry
type(mpl_type),intent(inout) :: mpl            !< MPI data
integer,intent(in) :: ncid                     !< Child ID
 
! Set name
 
 
! Probe in
 
 
! Run recursive cleaning
call registry%recursive_cleaning(mpl,ncid)
 
! Update archive
registry%nclosed = registry%nclosed+1
 
! Probe out
 
 
end subroutine registry_free
 
!----------------------------------------------------------------------
! Subroutine: registry_recursive_cleaning
!> Recursive registry cleaning
!----------------------------------------------------------------------
recursive subroutine registry_recursive_cleaning(registry,mpl,parent_id)
 
implicit none
 
! Passed variable
class(registry_type),intent(inout) :: registry !< Registry
type(mpl_type),intent(inout) :: mpl            !< MPI data
integer,intent(in) :: parent_id                !< Parent ID
 
! Local variables
integer :: i,child_id
 
! Set name
 
 
! Probe in
 
 
! Call recursive cleaning for all the children
do i=1,nidmax
   if (registry%id(i,1)==parent_id) then
      child_id = registry%id(i,2)
      call registry%recursive_cleaning(mpl,child_id)
   end if
end do
 
! Clean parent slot
do i=1,nidmax
   if (registry%id(i,2)==parent_id) then
      registry%id(i,:) = -1
      exit
   end if
end do
 
! Probe out
 
 
end subroutine registry_recursive_cleaning
 
!----------------------------------------------------------------------
! Function: netcdf_create_file
!> Create file
!----------------------------------------------------------------------
function netcdf_create_file(mpl,filename,iproc) result(ncid)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl     !< MPI data
character(len=*),intent(in) :: filename !< File name
integer,intent(in),optional :: iproc    !< Processor index
 
! Returned variable
integer :: ncid
 
! Local variables
character(len=1024) :: fullname
 
! Set name
 
 
! Probe in
 
 
! Initialization
ncid = mpl%msv%vali
 
if (present(iproc)) then
   ! Local I/O
 
   ! Full file name
   if (iproc==0) then
      fullname = trim(mpl%datadir)//'/'//trim(filename)//'.nc'
   else
      write(fullname,'(a,i6.6,a,i6.6,a)') trim(mpl%datadir)//'/'//trim(filename)//'_local_',mpl%nproc,'-',iproc,'.nc'
   end if
 
   ! Create file
   call strerror(mpl,'netcdf_create_file',ncid,nf90_create(fullname,ior(nf90_clobber,nf90_netcdf4),ncid),'file '//trim(fullname))
else
   ! Global I/O
   if (mpl%pioproc(mpl%myproc)) then
      ! Full file name
      fullname = trim(mpl%datadir)//'/'//trim(filename)//'.nc'
 
      ! Create file
      if (mpl%parallel_io) then
         call strerror(mpl,'netcdf_create_file',ncid,nf90_create(fullname,ior(nf90_clobber,ior(nf90_netcdf4,nf90_mpiio)),ncid, &
 & comm=mpl%f_comm_io%communicator(),info=mpl%f_comm_io%info_null()),'file '//trim(fullname))
      else
         call strerror(mpl,'netcdf_create_file',ncid,nf90_create(fullname,ior(nf90_clobber,nf90_netcdf4),ncid),'file&
# 404 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
             & '//trim(fullname))
      end if
   end if
end if
 
! Save ID in registry
if (mpl%msv%isnot(ncid)) call registry%save(mpl,0,ncid,filename)
 
! Probe out
 
 
end function netcdf_create_file
 
!----------------------------------------------------------------------
! Function: netcdf_open_file
!> Open file
!----------------------------------------------------------------------
function netcdf_open_file(mpl,filename,iproc) result(ncid)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl     !< MPI data
character(len=*),intent(in) :: filename !< File name
integer,intent(in),optional :: iproc    !< Processor index
 
! Returned variable
integer :: ncid
 
! Local variables
character(len=1024) :: fullname
 
! Set name
 
 
! Probe in
 
 
! Initialization
ncid = mpl%msv%vali
 
if (present(iproc)) then
   ! Local I/O
 
   ! Full file name
   if (iproc==0) then
      fullname = trim(mpl%datadir)//'/'//trim(filename)//'.nc'
   else
      write(fullname,'(a,i6.6,a,i6.6,a)') trim(mpl%datadir)//'/'//trim(filename)//'_local_',mpl%nproc,'-',iproc,'.nc'
   end if
 
   ! Open file
   call strerror(mpl,'netcdf_open_file',ncid,nf90_open(fullname,nf90_nowrite,ncid),'file '//trim(fullname))
else
   ! Global I/O
   if (mpl%pioproc(mpl%myproc)) then
      ! Full file name
      fullname = trim(mpl%datadir)//'/'//trim(filename)//'.nc'
 
      ! Open file
      if (mpl%parallel_io) then
         call strerror(mpl,'netcdf_open_file',ncid,nf90_open(fullname,nf90_nowrite,ncid, &
 & comm=mpl%f_comm_io%communicator(),info=mpl%f_comm_io%info_null()),'file '//trim(fullname))
      else
         call strerror(mpl,'netcdf_open_file',ncid,nf90_open(fullname,nf90_nowrite,ncid),'file '//trim(fullname))
      end if
   end if
end if
 
! Save ID in registry
if (mpl%msv%isnot(ncid)) call registry%save(mpl,0,ncid,filename)
 
! Probe out
 
 
end function netcdf_open_file
 
!----------------------------------------------------------------------
! Function: netcdf_define_grp
!> Define group
!----------------------------------------------------------------------
function netcdf_define_grp(mpl,ncid,grpname) result(grpid)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl              !< MPI data
integer,intent(in) :: ncid                       !< File ID
character(len=*),intent(in) :: grpname           !< Group name
 
! Returned variable
integer :: grpid
 
! Local variable
integer :: rid
 
! Set name
 
 
! Probe in
 
 
! Initialization
grpid = mpl%msv%vali
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Define group
   call strerror(mpl,'netcdf_define_grp',ncid,nf90_def_grp(ncid,grpname,grpid),'group '//trim(grpname))
 
   ! Save ID in registry
   if (mpl%msv%isnot(grpid)) call registry%save(mpl,ncid,grpid,grpname)
end if
 
! Probe out
 
 
end function netcdf_define_grp
 
!----------------------------------------------------------------------
! Function: netcdf_inquire_grp
!> Inquire group ID
!----------------------------------------------------------------------
function netcdf_inquire_grp(mpl,ncid,grpname) result(grpid)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl              !< MPI data
integer,intent(in) :: ncid                       !< File ID
character(len=*),intent(in) :: grpname           !< Group name
 
! Returned variable
integer :: grpid
 
! Local variable
integer :: rid
 
! Set name
 
 
! Probe in
 
 
! Initialization
grpid = mpl%msv%vali
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Define group
   call strerror(mpl,'netcdf_inquire_grp',ncid,nf90_inq_grp_ncid(ncid,grpname,grpid),'group '//trim(grpname))
 
   ! Save ID in registry
   if (mpl%msv%isnot(grpid)) call registry%save(mpl,ncid,grpid,grpname)
end if
 
! Probe out
 
 
end function netcdf_inquire_grp
 
# 570 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_put_att_int
!> Put attribute
!----------------------------------------------------------------------
subroutine netcdf_put_att_int(mpl,ncid,attname,att,varid)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl    !< MPI data
integer,intent(in) :: ncid             !< File ID
character(len=*),intent(in) :: attname !< Attribute name
integer(kind_int),intent(in) :: att     !< Attribute
integer,intent(in),optional :: varid   !< Variable ID
 
! Local variable
integer :: rid,lvarid
 
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Local variable ID
   lvarid = nf90_global
   if (present(varid)) lvarid = varid
 
   ! Put attribute
# 608 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      call strerror(mpl,'netcdf_put_att_int',ncid,nf90_put_att(ncid,lvarid,attname,att),'attribute '//trim(attname))
# 610 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_put_att_int
# 570 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_put_att_real
!> Put attribute
!----------------------------------------------------------------------
subroutine netcdf_put_att_real(mpl,ncid,attname,att,varid)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl    !< MPI data
integer,intent(in) :: ncid             !< File ID
character(len=*),intent(in) :: attname !< Attribute name
real(kind_real),intent(in) :: att     !< Attribute
integer,intent(in),optional :: varid   !< Variable ID
 
! Local variable
integer :: rid,lvarid
 
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Local variable ID
   lvarid = nf90_global
   if (present(varid)) lvarid = varid
 
   ! Put attribute
# 608 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      call strerror(mpl,'netcdf_put_att_real',ncid,nf90_put_att(ncid,lvarid,attname,att),'attribute '//trim(attname))
# 610 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_put_att_real
# 570 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_put_att_logical
!> Put attribute
!----------------------------------------------------------------------
subroutine netcdf_put_att_logical(mpl,ncid,attname,att,varid)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl    !< MPI data
integer,intent(in) :: ncid             !< File ID
character(len=*),intent(in) :: attname !< Attribute name
logical,intent(in) :: att     !< Attribute
integer,intent(in),optional :: varid   !< Variable ID
 
! Local variable
integer :: rid,lvarid
 integer :: attint 
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Local variable ID
   lvarid = nf90_global
   if (present(varid)) lvarid = varid
 
   ! Put attribute
# 605 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      call convert_l2i(att,attint)
      call strerror(mpl,'netcdf_put_att_logical',ncid,nf90_put_att(ncid,lvarid,attname,attint),'attribute '//trim(attname))
# 610 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_put_att_logical
# 570 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_put_att_string
!> Put attribute
!----------------------------------------------------------------------
subroutine netcdf_put_att_string(mpl,ncid,attname,att,varid)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl    !< MPI data
integer,intent(in) :: ncid             !< File ID
character(len=*),intent(in) :: attname !< Attribute name
character(len=*),intent(in) :: att     !< Attribute
integer,intent(in),optional :: varid   !< Variable ID
 
! Local variable
integer :: rid,lvarid
 
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Local variable ID
   lvarid = nf90_global
   if (present(varid)) lvarid = varid
 
   ! Put attribute
# 608 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      call strerror(mpl,'netcdf_put_att_string',ncid,nf90_put_att(ncid,lvarid,attname,att),'attribute '//trim(attname))
# 610 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_put_att_string
# 617 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
 
# 619 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_get_att_int
!> Get attribute
!----------------------------------------------------------------------
subroutine netcdf_get_att_int(mpl,ncid,attname,att,varid)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl    !< MPI data
integer,intent(in) :: ncid             !< File ID
character(len=*),intent(in) :: attname !< Attribute name
integer(kind_int),intent(out) :: att    !< Attribute
integer,intent(in),optional :: varid   !< Variable ID
 
! Local variable
integer :: rid,lvarid
 
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Local variable ID
   lvarid = nf90_global
   if (present(varid)) lvarid = varid
 
   ! Get attribute
# 657 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      call strerror(mpl,'netcdf_get_att_int',ncid,nf90_get_att(ncid,lvarid,attname,att),'attribute '//trim(attname))
# 659 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_get_att_int
# 619 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_get_att_real
!> Get attribute
!----------------------------------------------------------------------
subroutine netcdf_get_att_real(mpl,ncid,attname,att,varid)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl    !< MPI data
integer,intent(in) :: ncid             !< File ID
character(len=*),intent(in) :: attname !< Attribute name
real(kind_real),intent(out) :: att    !< Attribute
integer,intent(in),optional :: varid   !< Variable ID
 
! Local variable
integer :: rid,lvarid
 
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Local variable ID
   lvarid = nf90_global
   if (present(varid)) lvarid = varid
 
   ! Get attribute
# 657 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      call strerror(mpl,'netcdf_get_att_real',ncid,nf90_get_att(ncid,lvarid,attname,att),'attribute '//trim(attname))
# 659 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_get_att_real
# 619 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_get_att_logical
!> Get attribute
!----------------------------------------------------------------------
subroutine netcdf_get_att_logical(mpl,ncid,attname,att,varid)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl    !< MPI data
integer,intent(in) :: ncid             !< File ID
character(len=*),intent(in) :: attname !< Attribute name
logical,intent(out) :: att    !< Attribute
integer,intent(in),optional :: varid   !< Variable ID
 
! Local variable
integer :: rid,lvarid
 integer :: attint 
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Local variable ID
   lvarid = nf90_global
   if (present(varid)) lvarid = varid
 
   ! Get attribute
# 654 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      call strerror(mpl,'netcdf_get_att_logical',ncid,nf90_get_att(ncid,lvarid,attname,attint),'attribute '//trim(attname))
      call convert_i2l(mpl,attint,att)
# 659 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_get_att_logical
# 619 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_get_att_string
!> Get attribute
!----------------------------------------------------------------------
subroutine netcdf_get_att_string(mpl,ncid,attname,att,varid)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl    !< MPI data
integer,intent(in) :: ncid             !< File ID
character(len=*),intent(in) :: attname !< Attribute name
character(len=*),intent(out) :: att    !< Attribute
integer,intent(in),optional :: varid   !< Variable ID
 
! Local variable
integer :: rid,lvarid
 
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Local variable ID
   lvarid = nf90_global
   if (present(varid)) lvarid = varid
 
   ! Get attribute
# 657 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      call strerror(mpl,'netcdf_get_att_string',ncid,nf90_get_att(ncid,lvarid,attname,att),'attribute '//trim(attname))
# 659 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_get_att_string
# 666 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
 
!----------------------------------------------------------------------
! Function: netcdf_define_dim
!> Define dimension
!----------------------------------------------------------------------
function netcdf_define_dim(mpl,ncid,dimname,dimsize) result(dimid)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl    !< MPI data
integer,intent(in) :: ncid             !< File ID
character(len=*),intent(in) :: dimname !< Dimension name
integer,intent(in) :: dimsize          !< Dimension size
 
! Returned variable
integer :: dimid
 
! Local variable
integer :: rid
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
! Initialization
dimid = mpl%msv%vali
 
! Define dimension
if (mpl%msv%isnot(rid)) call strerror(mpl,'netcdf_define_dim',ncid,nf90_def_dim(ncid,dimname,dimsize,dimid),'dimension&
# 700 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
    & '//trim(dimname))
 
! Probe out
 
 
end function netcdf_define_dim
 
!----------------------------------------------------------------------
! Function: netcdf_inquire_dim
!> Inquire dimension ID
!----------------------------------------------------------------------
function netcdf_inquire_dim(mpl,ncid,dimname) result(dimid)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl    !< MPI data
integer,intent(in) :: ncid             !< File ID
character(len=*),intent(in) :: dimname !< Dimension name
 
! Returned variable
integer :: dimid
 
! Local variable
integer :: rid,info
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
! Initialization
dimid = mpl%msv%vali
 
if (mpl%msv%isnot(rid)) then
   ! Define dimension
   info = nf90_inq_dimid(ncid,dimname,dimid)
 
   if (info==nf90_ebaddim) then
      dimid = mpl%msv%vali
   else
      call strerror(mpl,'netcdf_inquire_dim',ncid,info,'dimension '//trim(dimname))
   end if
end if
 
! Probe out
 
 
end function netcdf_inquire_dim
 
!----------------------------------------------------------------------
! Function: netcdf_inquire_dim_size
!> Inquire dimension size
!----------------------------------------------------------------------
function netcdf_inquire_dim_size(mpl,ncid,dimname,default) result(dimsize)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl    !< MPI data
integer,intent(in) :: ncid             !< File ID
character(len=*),intent(in) :: dimname !< Dimension name
integer,intent(in),optional :: default !< Default value
 
! Returned variable
integer :: dimsize
 
! Local variables
integer :: rid,dimid
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
! Initialization
dimsize = mpl%msv%vali
if (present(default)) dimsize = default
 
if (mpl%msv%isnot(rid)) then
   ! Inquire dimension ID
   dimid = netcdf_inquire_dim(mpl,ncid,dimname)
 
   ! Inquire dimension size
   if (mpl%msv%isnot(dimid)) call strerror(mpl,'netcdf_inquire_dim_size',ncid,nf90_inquire_dimension(ncid,dimid,len=dimsize), &
 & 'dimension '//trim(dimname))
end if
 
! Probe out
 
 
end function netcdf_inquire_dim_size
 
!----------------------------------------------------------------------
! Function: netcdf_check_dim_size
!> Check dimension size
!----------------------------------------------------------------------
function netcdf_check_dim_size(mpl,ncid,dimname,dimsize) result(value)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl    !< MPI data
integer,intent(in) :: ncid             !< File ID
character(len=*),intent(in) :: dimname !< Dimension name
integer,intent(in) :: dimsize          !< Expected dimension size
 
! Returned value
logical :: value
 
! Local variables
integer :: rid,dimsize_test
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
! Initialization
value = .true.
 
if (mpl%msv%isnot(rid)) then
   ! Inquire dimension size
   dimsize_test = netcdf_inquire_dim_size(mpl,ncid,dimname)
 
   ! Check dimension size
   value = (dimsize_test==dimsize)
end if
 
! Probe out
 
 
end function netcdf_check_dim_size
 
!----------------------------------------------------------------------
! Function: netcdf_define_var
!> Define variable
!----------------------------------------------------------------------
function netcdf_define_var(mpl,ncid,varname,varkind,varshape,unitname) result(varid)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl              !< MPI data
integer,intent(in) :: ncid                       !< File ID
character(len=*),intent(in) :: varname           !< Variable name
character(len=*),intent(in) :: varkind           !< Variable kind
integer,intent(in) :: varshape(:)                !< Variable shape
character(len=*),intent(in),optional :: unitname !< Unit name
 
! Returned variable
integer :: varid
 
! Local variable
integer  :: rid
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
! Initialization
varid = mpl%msv%vali
 
if (mpl%msv%isnot(rid)) then
   if ((trim(varkind)=='int').or.(trim(varkind)=='logical')) then
      ! Define variable
      call strerror(mpl,'netcdf_define_var',ncid,nf90_def_var(ncid,varname,nc_kind_int,varshape,varid),'variable '//trim(varname))
 
      ! Set missing value attribute
      call put_att(mpl,ncid,'_FillValue',mpl%msv%vali,varid)
   elseif (trim(varkind)=='real') then
      ! Define variable
      call strerror(mpl,'netcdf_define_var',ncid,nf90_def_var(ncid,varname,nc_kind_real,varshape,varid),'variable '//trim(varname))
 
      ! Set missing value attribute
      call put_att(mpl,ncid,'_FillValue',mpl%msv%valr,varid)
   else
      call mpl%abort('netcdf_define_var','wrong variable kind')
   end if
 
   ! Set unit
   if (present(unitname)) call put_att(mpl,ncid,'unit',unitname,varid)
end if
 
! Probe out
 
 
end function netcdf_define_var
 
!----------------------------------------------------------------------
! Function: netcdf_inquire_var
!> Inquire variable ID
!----------------------------------------------------------------------
function netcdf_inquire_var(mpl,ncid,varname) result(varid)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl    !< MPI data
integer,intent(in) :: ncid             !< File ID
character(len=*),intent(in) :: varname !< Variable name
 
! Returned variable
integer :: varid
 
! Local variable
integer  :: rid
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
! Initialization
varid = mpl%msv%vali
 
! Inquire variable ID
if (mpl%msv%isnot(rid)) call strerror(mpl,'netcdf_inquire_var',ncid,nf90_inq_varid(ncid,varname,varid),'variable '//trim(varname))
 
! Probe out
 
 
end function netcdf_inquire_var
 
!----------------------------------------------------------------------
! Function: netcdf_inquire_var_presence
!> Inquire variable presence
!----------------------------------------------------------------------
function netcdf_inquire_var_presence(mpl,ncid,varname) result(ispresent)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl    !< MPI data
integer,intent(in) :: ncid             !< File ID
character(len=*),intent(in) :: varname !< Variable name
 
! Returned variable
logical :: ispresent
 
! Local variable
integer  :: rid,varid,info
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
! Initialization
ispresent = .false.
 
if (mpl%msv%isnot(rid)) then
   ! Inquire variable ID
   info = nf90_inq_varid(ncid,varname,varid)
 
   ! Set presence flag
   ispresent = (info==nf90_noerr)
end if
 
! Probe out
 
 
end function netcdf_inquire_var_presence
 
!----------------------------------------------------------------------
! Function: netcdf_inquire_var_rank
!> Inquire variable rank
!----------------------------------------------------------------------
function netcdf_inquire_var_rank(mpl,ncid,varname) result(rank)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl    !< MPI data
integer,intent(in) :: ncid             !< File ID
character(len=*),intent(in) :: varname !< Variable name
 
! Returned variable
integer :: rank
 
! Local variables
integer :: rid,varid
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
! Initialization
rank = mpl%msv%vali
 
if (mpl%msv%isnot(rid)) then
   ! Inquire variable ID
   varid = inquire_var(mpl,ncid,varname)
 
   ! Inquire variable rank
   if (mpl%msv%isnot(varid)) call strerror(mpl,'netcdf_inquire_var_rank',ncid,nf90_inquire_variable(ncid,varid,ndims=rank), &
 & 'variable '//trim(varname))
end if
 
! Probe out
 
 
end function netcdf_inquire_var_rank
 
!----------------------------------------------------------------------
! Function: netcdf_inquire_var_dim_size
!> Inquire variable dimension size
!----------------------------------------------------------------------
function netcdf_inquire_var_dim_size(mpl,ncid,varname,dimindex) result(dimsize)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl    !< MPI data
integer,intent(in) :: ncid             !< File ID
character(len=*),intent(in) :: varname !< Variable name
integer,intent(in) :: dimindex         !< Dimension index
 
! Returned variable
integer :: dimsize
 
! Local variables
integer :: rid,rank,varid
integer,allocatable :: dimids(:)
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
! Initialization
dimsize = mpl%msv%vali
 
if (mpl%msv%isnot(rid)) then
   ! Inquire variable rank
   rank = inquire_var_rank(mpl,ncid,varname)
 
   if (mpl%msv%isnot(rank)) then
      ! Check required dimension index
      if ((dimindex<1).or.(dimindex>rank)) call mpl%abort('netcdf_inquire_var_dim_size','wrong dimension index')
 
      ! Allocation
      allocate(dimids(rank))
 
      ! Inquire variable ID
      varid = inquire_var(mpl,ncid,varname)
 
      ! Inquire variable dimensions IDs
      call strerror(mpl,'netcdf_inquire_var_dim_size',ncid,nf90_inquire_variable(ncid,varid,dimids=dimids),'variable&
# 1082 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
          & '//trim(varname))
 
      ! Inquire required dimension size
      call strerror(mpl,'netcdf_inquire_var_dim_size',ncid,nf90_inquire_dimension(ncid,dimids(dimindex),len=dimsize),'variable&
# 1085 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
          & '//trim(varname))
   end if
end if
 
! Probe out
 
 
end function netcdf_inquire_var_dim_size
 
# 1095 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_put_var_int_r0
!> Put variable
!----------------------------------------------------------------------
subroutine netcdf_put_var_int_r0(mpl,ncid,varid,var,varstart)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl        !< MPI data
integer,intent(in) :: ncid                 !< File ID
integer,intent(in) :: varid                !< Variable ID
integer(kind_int),intent(in) :: var         !< Variable
integer,intent(in),optional :: varstart(:) !< Start
 
! Local variable
integer :: rid
 
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Put variable
# 1133 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      if (present(varstart)) then
         call strerror(mpl,'netcdf_put_var_int_r0',ncid,nf90_put_var(ncid,varid,var,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_put_var_int_r0',ncid,nf90_put_var(ncid,varid,var),'variable',varid)
      end if
# 1139 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_put_var_int_r0
# 1095 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_put_var_real_r0
!> Put variable
!----------------------------------------------------------------------
subroutine netcdf_put_var_real_r0(mpl,ncid,varid,var,varstart)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl        !< MPI data
integer,intent(in) :: ncid                 !< File ID
integer,intent(in) :: varid                !< Variable ID
real(kind_real),intent(in) :: var         !< Variable
integer,intent(in),optional :: varstart(:) !< Start
 
! Local variable
integer :: rid
 
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Put variable
# 1133 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      if (present(varstart)) then
         call strerror(mpl,'netcdf_put_var_real_r0',ncid,nf90_put_var(ncid,varid,var,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_put_var_real_r0',ncid,nf90_put_var(ncid,varid,var),'variable',varid)
      end if
# 1139 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_put_var_real_r0
# 1095 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_put_var_logical_r0
!> Put variable
!----------------------------------------------------------------------
subroutine netcdf_put_var_logical_r0(mpl,ncid,varid,var,varstart)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl        !< MPI data
integer,intent(in) :: ncid                 !< File ID
integer,intent(in) :: varid                !< Variable ID
logical,intent(in) :: var         !< Variable
integer,intent(in),optional :: varstart(:) !< Start
 
! Local variable
integer :: rid
 integer :: varint 
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Put variable
# 1126 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      call convert_l2i(var,varint)
      if (present(varstart)) then
         call strerror(mpl,'netcdf_put_var_logical_r0',ncid,nf90_put_var(ncid,varid,varint,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_put_var_logical_r0',ncid,nf90_put_var(ncid,varid,varint),'variable',varid)
      end if
# 1139 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_put_var_logical_r0
# 1146 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
 
# 1148 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
# 1149 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_put_var_int_r1
!> Put variable
!----------------------------------------------------------------------
subroutine netcdf_put_var_int_r1(mpl,ncid,varid,var,varstart,varcount)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl               !< MPI data
integer,intent(in) :: ncid                        !< File ID
integer,intent(in) :: varid                       !< Variable ID
integer(kind_int),intent(in) :: var(:) !< Variable
integer,intent(in),optional :: varstart(:)        !< Start
integer,intent(in),optional :: varcount(:)        !< Count
 
! Local variable
integer :: rid
# 1171 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Put variable
# 1199 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      if (present(varstart).and.present(varcount)) then
         call strerror(mpl,'netcdf_put_var_int_r1',ncid,nf90_put_var(ncid,varid,var,varstart,varcount),'variable',varid)
      elseif (present(varstart)) then
         call strerror(mpl,'netcdf_put_var_int_r1',ncid,nf90_put_var(ncid,varid,var,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_put_var_int_r1',ncid,nf90_put_var(ncid,varid,var),'variable',varid)
      end if
# 1207 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_put_var_int_r1
# 1149 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_put_var_real_r1
!> Put variable
!----------------------------------------------------------------------
subroutine netcdf_put_var_real_r1(mpl,ncid,varid,var,varstart,varcount)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl               !< MPI data
integer,intent(in) :: ncid                        !< File ID
integer,intent(in) :: varid                       !< Variable ID
real(kind_real),intent(in) :: var(:) !< Variable
integer,intent(in),optional :: varstart(:)        !< Start
integer,intent(in),optional :: varcount(:)        !< Count
 
! Local variable
integer :: rid
# 1171 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Put variable
# 1199 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      if (present(varstart).and.present(varcount)) then
         call strerror(mpl,'netcdf_put_var_real_r1',ncid,nf90_put_var(ncid,varid,var,varstart,varcount),'variable',varid)
      elseif (present(varstart)) then
         call strerror(mpl,'netcdf_put_var_real_r1',ncid,nf90_put_var(ncid,varid,var,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_put_var_real_r1',ncid,nf90_put_var(ncid,varid,var),'variable',varid)
      end if
# 1207 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_put_var_real_r1
# 1149 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_put_var_logical_r1
!> Put variable
!----------------------------------------------------------------------
subroutine netcdf_put_var_logical_r1(mpl,ncid,varid,var,varstart,varcount)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl               !< MPI data
integer,intent(in) :: ncid                        !< File ID
integer,intent(in) :: varid                       !< Variable ID
logical,intent(in) :: var(:) !< Variable
integer,intent(in),optional :: varstart(:)        !< Start
integer,intent(in),optional :: varcount(:)        !< Count
 
! Local variable
integer :: rid
# 1168 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
  integer :: shp(1)
  integer,allocatable :: varint(:)
# 1171 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Put variable
# 1184 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      shp = shape(var)
       allocate(varint(shp(1))) 
      
      
      
      call convert_l2i(var,varint)
      if (present(varstart).and.present(varcount)) then
         call strerror(mpl,'netcdf_put_var_logical_r1',ncid,nf90_put_var(ncid,varid,varint,varstart,varcount),'variable',varid)
      elseif (present(varstart)) then
         call strerror(mpl,'netcdf_put_var_logical_r1',ncid,nf90_put_var(ncid,varid,varint,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_put_var_logical_r1',ncid,nf90_put_var(ncid,varid,varint),'variable',varid)
      end if
      deallocate(varint)
# 1207 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_put_var_logical_r1
# 1214 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
# 1148 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
# 1149 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_put_var_int_r2
!> Put variable
!----------------------------------------------------------------------
subroutine netcdf_put_var_int_r2(mpl,ncid,varid,var,varstart,varcount)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl               !< MPI data
integer,intent(in) :: ncid                        !< File ID
integer,intent(in) :: varid                       !< Variable ID
integer(kind_int),intent(in) :: var(:,:) !< Variable
integer,intent(in),optional :: varstart(:)        !< Start
integer,intent(in),optional :: varcount(:)        !< Count
 
! Local variable
integer :: rid
# 1171 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Put variable
# 1199 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      if (present(varstart).and.present(varcount)) then
         call strerror(mpl,'netcdf_put_var_int_r2',ncid,nf90_put_var(ncid,varid,var,varstart,varcount),'variable',varid)
      elseif (present(varstart)) then
         call strerror(mpl,'netcdf_put_var_int_r2',ncid,nf90_put_var(ncid,varid,var,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_put_var_int_r2',ncid,nf90_put_var(ncid,varid,var),'variable',varid)
      end if
# 1207 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_put_var_int_r2
# 1149 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_put_var_real_r2
!> Put variable
!----------------------------------------------------------------------
subroutine netcdf_put_var_real_r2(mpl,ncid,varid,var,varstart,varcount)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl               !< MPI data
integer,intent(in) :: ncid                        !< File ID
integer,intent(in) :: varid                       !< Variable ID
real(kind_real),intent(in) :: var(:,:) !< Variable
integer,intent(in),optional :: varstart(:)        !< Start
integer,intent(in),optional :: varcount(:)        !< Count
 
! Local variable
integer :: rid
# 1171 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Put variable
# 1199 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      if (present(varstart).and.present(varcount)) then
         call strerror(mpl,'netcdf_put_var_real_r2',ncid,nf90_put_var(ncid,varid,var,varstart,varcount),'variable',varid)
      elseif (present(varstart)) then
         call strerror(mpl,'netcdf_put_var_real_r2',ncid,nf90_put_var(ncid,varid,var,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_put_var_real_r2',ncid,nf90_put_var(ncid,varid,var),'variable',varid)
      end if
# 1207 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_put_var_real_r2
# 1149 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_put_var_logical_r2
!> Put variable
!----------------------------------------------------------------------
subroutine netcdf_put_var_logical_r2(mpl,ncid,varid,var,varstart,varcount)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl               !< MPI data
integer,intent(in) :: ncid                        !< File ID
integer,intent(in) :: varid                       !< Variable ID
logical,intent(in) :: var(:,:) !< Variable
integer,intent(in),optional :: varstart(:)        !< Start
integer,intent(in),optional :: varcount(:)        !< Count
 
! Local variable
integer :: rid
# 1168 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
  integer :: shp(2)
  integer,allocatable :: varint(:,:)
# 1171 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Put variable
# 1184 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      shp = shape(var)
      
       allocate(varint(shp(1),shp(2))) 
      
      
      call convert_l2i(var,varint)
      if (present(varstart).and.present(varcount)) then
         call strerror(mpl,'netcdf_put_var_logical_r2',ncid,nf90_put_var(ncid,varid,varint,varstart,varcount),'variable',varid)
      elseif (present(varstart)) then
         call strerror(mpl,'netcdf_put_var_logical_r2',ncid,nf90_put_var(ncid,varid,varint,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_put_var_logical_r2',ncid,nf90_put_var(ncid,varid,varint),'variable',varid)
      end if
      deallocate(varint)
# 1207 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_put_var_logical_r2
# 1214 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
# 1148 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
# 1149 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_put_var_int_r3
!> Put variable
!----------------------------------------------------------------------
subroutine netcdf_put_var_int_r3(mpl,ncid,varid,var,varstart,varcount)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl               !< MPI data
integer,intent(in) :: ncid                        !< File ID
integer,intent(in) :: varid                       !< Variable ID
integer(kind_int),intent(in) :: var(:,:,:) !< Variable
integer,intent(in),optional :: varstart(:)        !< Start
integer,intent(in),optional :: varcount(:)        !< Count
 
! Local variable
integer :: rid
# 1171 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Put variable
# 1199 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      if (present(varstart).and.present(varcount)) then
         call strerror(mpl,'netcdf_put_var_int_r3',ncid,nf90_put_var(ncid,varid,var,varstart,varcount),'variable',varid)
      elseif (present(varstart)) then
         call strerror(mpl,'netcdf_put_var_int_r3',ncid,nf90_put_var(ncid,varid,var,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_put_var_int_r3',ncid,nf90_put_var(ncid,varid,var),'variable',varid)
      end if
# 1207 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_put_var_int_r3
# 1149 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_put_var_real_r3
!> Put variable
!----------------------------------------------------------------------
subroutine netcdf_put_var_real_r3(mpl,ncid,varid,var,varstart,varcount)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl               !< MPI data
integer,intent(in) :: ncid                        !< File ID
integer,intent(in) :: varid                       !< Variable ID
real(kind_real),intent(in) :: var(:,:,:) !< Variable
integer,intent(in),optional :: varstart(:)        !< Start
integer,intent(in),optional :: varcount(:)        !< Count
 
! Local variable
integer :: rid
# 1171 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Put variable
# 1199 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      if (present(varstart).and.present(varcount)) then
         call strerror(mpl,'netcdf_put_var_real_r3',ncid,nf90_put_var(ncid,varid,var,varstart,varcount),'variable',varid)
      elseif (present(varstart)) then
         call strerror(mpl,'netcdf_put_var_real_r3',ncid,nf90_put_var(ncid,varid,var,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_put_var_real_r3',ncid,nf90_put_var(ncid,varid,var),'variable',varid)
      end if
# 1207 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_put_var_real_r3
# 1149 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_put_var_logical_r3
!> Put variable
!----------------------------------------------------------------------
subroutine netcdf_put_var_logical_r3(mpl,ncid,varid,var,varstart,varcount)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl               !< MPI data
integer,intent(in) :: ncid                        !< File ID
integer,intent(in) :: varid                       !< Variable ID
logical,intent(in) :: var(:,:,:) !< Variable
integer,intent(in),optional :: varstart(:)        !< Start
integer,intent(in),optional :: varcount(:)        !< Count
 
! Local variable
integer :: rid
# 1168 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
  integer :: shp(3)
  integer,allocatable :: varint(:,:,:)
# 1171 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Put variable
# 1184 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      shp = shape(var)
      
      
       allocate(varint(shp(1),shp(2),shp(3))) 
      
      call convert_l2i(var,varint)
      if (present(varstart).and.present(varcount)) then
         call strerror(mpl,'netcdf_put_var_logical_r3',ncid,nf90_put_var(ncid,varid,varint,varstart,varcount),'variable',varid)
      elseif (present(varstart)) then
         call strerror(mpl,'netcdf_put_var_logical_r3',ncid,nf90_put_var(ncid,varid,varint,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_put_var_logical_r3',ncid,nf90_put_var(ncid,varid,varint),'variable',varid)
      end if
      deallocate(varint)
# 1207 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_put_var_logical_r3
# 1214 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
# 1148 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
# 1149 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_put_var_int_r4
!> Put variable
!----------------------------------------------------------------------
subroutine netcdf_put_var_int_r4(mpl,ncid,varid,var,varstart,varcount)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl               !< MPI data
integer,intent(in) :: ncid                        !< File ID
integer,intent(in) :: varid                       !< Variable ID
integer(kind_int),intent(in) :: var(:,:,:,:) !< Variable
integer,intent(in),optional :: varstart(:)        !< Start
integer,intent(in),optional :: varcount(:)        !< Count
 
! Local variable
integer :: rid
# 1171 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Put variable
# 1199 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      if (present(varstart).and.present(varcount)) then
         call strerror(mpl,'netcdf_put_var_int_r4',ncid,nf90_put_var(ncid,varid,var,varstart,varcount),'variable',varid)
      elseif (present(varstart)) then
         call strerror(mpl,'netcdf_put_var_int_r4',ncid,nf90_put_var(ncid,varid,var,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_put_var_int_r4',ncid,nf90_put_var(ncid,varid,var),'variable',varid)
      end if
# 1207 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_put_var_int_r4
# 1149 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_put_var_real_r4
!> Put variable
!----------------------------------------------------------------------
subroutine netcdf_put_var_real_r4(mpl,ncid,varid,var,varstart,varcount)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl               !< MPI data
integer,intent(in) :: ncid                        !< File ID
integer,intent(in) :: varid                       !< Variable ID
real(kind_real),intent(in) :: var(:,:,:,:) !< Variable
integer,intent(in),optional :: varstart(:)        !< Start
integer,intent(in),optional :: varcount(:)        !< Count
 
! Local variable
integer :: rid
# 1171 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Put variable
# 1199 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      if (present(varstart).and.present(varcount)) then
         call strerror(mpl,'netcdf_put_var_real_r4',ncid,nf90_put_var(ncid,varid,var,varstart,varcount),'variable',varid)
      elseif (present(varstart)) then
         call strerror(mpl,'netcdf_put_var_real_r4',ncid,nf90_put_var(ncid,varid,var,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_put_var_real_r4',ncid,nf90_put_var(ncid,varid,var),'variable',varid)
      end if
# 1207 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_put_var_real_r4
# 1149 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_put_var_logical_r4
!> Put variable
!----------------------------------------------------------------------
subroutine netcdf_put_var_logical_r4(mpl,ncid,varid,var,varstart,varcount)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl               !< MPI data
integer,intent(in) :: ncid                        !< File ID
integer,intent(in) :: varid                       !< Variable ID
logical,intent(in) :: var(:,:,:,:) !< Variable
integer,intent(in),optional :: varstart(:)        !< Start
integer,intent(in),optional :: varcount(:)        !< Count
 
! Local variable
integer :: rid
# 1168 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
  integer :: shp(4)
  integer,allocatable :: varint(:,:,:,:)
# 1171 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Put variable
# 1184 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      shp = shape(var)
      
      
      
       allocate(varint(shp(1),shp(2),shp(3),shp(4))) 
      call convert_l2i(var,varint)
      if (present(varstart).and.present(varcount)) then
         call strerror(mpl,'netcdf_put_var_logical_r4',ncid,nf90_put_var(ncid,varid,varint,varstart,varcount),'variable',varid)
      elseif (present(varstart)) then
         call strerror(mpl,'netcdf_put_var_logical_r4',ncid,nf90_put_var(ncid,varid,varint,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_put_var_logical_r4',ncid,nf90_put_var(ncid,varid,varint),'variable',varid)
      end if
      deallocate(varint)
# 1207 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_put_var_logical_r4
# 1214 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
# 1215 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
 
# 1217 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_get_var_byte_r0
!> Get variable
!----------------------------------------------------------------------
subroutine netcdf_get_var_byte_r0(mpl,ncid,varid,var,varstart)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl        !< MPI data
integer,intent(in) :: ncid                 !< File ID
integer,intent(in) :: varid                !< Variable ID
integer(kind_signed_char),intent(out) :: var        !< Variable
integer,intent(in),optional :: varstart(:) !< Start
 
! Local variable
integer :: rid
 
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Get variable
# 1255 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      if (present(varstart)) then
         call strerror(mpl,'netcdf_get_var_byte_r0',ncid,nf90_get_var(ncid,varid,var,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_get_var_byte_r0',ncid,nf90_get_var(ncid,varid,var),'variable',varid)
      end if
# 1261 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_get_var_byte_r0
# 1217 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_get_var_int_r0
!> Get variable
!----------------------------------------------------------------------
subroutine netcdf_get_var_int_r0(mpl,ncid,varid,var,varstart)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl        !< MPI data
integer,intent(in) :: ncid                 !< File ID
integer,intent(in) :: varid                !< Variable ID
integer(kind_int),intent(out) :: var        !< Variable
integer,intent(in),optional :: varstart(:) !< Start
 
! Local variable
integer :: rid
 
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Get variable
# 1255 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      if (present(varstart)) then
         call strerror(mpl,'netcdf_get_var_int_r0',ncid,nf90_get_var(ncid,varid,var,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_get_var_int_r0',ncid,nf90_get_var(ncid,varid,var),'variable',varid)
      end if
# 1261 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_get_var_int_r0
# 1217 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_get_var_float_r0
!> Get variable
!----------------------------------------------------------------------
subroutine netcdf_get_var_float_r0(mpl,ncid,varid,var,varstart)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl        !< MPI data
integer,intent(in) :: ncid                 !< File ID
integer,intent(in) :: varid                !< Variable ID
real(kind_float),intent(out) :: var        !< Variable
integer,intent(in),optional :: varstart(:) !< Start
 
! Local variable
integer :: rid
 
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Get variable
# 1255 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      if (present(varstart)) then
         call strerror(mpl,'netcdf_get_var_float_r0',ncid,nf90_get_var(ncid,varid,var,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_get_var_float_r0',ncid,nf90_get_var(ncid,varid,var),'variable',varid)
      end if
# 1261 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_get_var_float_r0
# 1217 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_get_var_real_r0
!> Get variable
!----------------------------------------------------------------------
subroutine netcdf_get_var_real_r0(mpl,ncid,varid,var,varstart)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl        !< MPI data
integer,intent(in) :: ncid                 !< File ID
integer,intent(in) :: varid                !< Variable ID
real(kind_real),intent(out) :: var        !< Variable
integer,intent(in),optional :: varstart(:) !< Start
 
! Local variable
integer :: rid
 
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Get variable
# 1255 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      if (present(varstart)) then
         call strerror(mpl,'netcdf_get_var_real_r0',ncid,nf90_get_var(ncid,varid,var,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_get_var_real_r0',ncid,nf90_get_var(ncid,varid,var),'variable',varid)
      end if
# 1261 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_get_var_real_r0
# 1217 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_get_var_logical_r0
!> Get variable
!----------------------------------------------------------------------
subroutine netcdf_get_var_logical_r0(mpl,ncid,varid,var,varstart)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl        !< MPI data
integer,intent(in) :: ncid                 !< File ID
integer,intent(in) :: varid                !< Variable ID
logical,intent(out) :: var        !< Variable
integer,intent(in),optional :: varstart(:) !< Start
 
! Local variable
integer :: rid
 integer :: varint 
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Get variable
# 1248 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      if (present(varstart)) then
         call strerror(mpl,'netcdf_get_var_logical_r0',ncid,nf90_get_var(ncid,varid,varint,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_get_var_logical_r0',ncid,nf90_get_var(ncid,varid,varint),'variable',varid)
      end if
      call convert_i2l(mpl,varint,var)
# 1261 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_get_var_logical_r0
# 1268 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
 
# 1270 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
# 1271 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_get_var_byte_r1
!> Get variable
!----------------------------------------------------------------------
subroutine netcdf_get_var_byte_r1(mpl,ncid,varid,var,varstart,varcount)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl                !< MPI data
integer,intent(in) :: ncid                         !< File ID
integer,intent(in) :: varid                        !< Variable ID
integer(kind_signed_char),intent(out) :: var(:) !< Variable
integer,intent(in),optional :: varstart(:)         !< Start
integer,intent(in),optional :: varcount(:)         !< Count
 
! Local variable
integer :: rid
# 1293 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Get variable
# 1321 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      if (present(varstart).and.present(varcount)) then
         call strerror(mpl,'netcdf_get_var_byte_r1',ncid,nf90_get_var(ncid,varid,var,varstart,varcount),'variable',varid)
      elseif (present(varstart)) then
         call strerror(mpl,'netcdf_get_var_byte_r1',ncid,nf90_get_var(ncid,varid,var,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_get_var_byte_r1',ncid,nf90_get_var(ncid,varid,var),'variable',varid)
      end if
# 1329 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_get_var_byte_r1
# 1271 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_get_var_int_r1
!> Get variable
!----------------------------------------------------------------------
subroutine netcdf_get_var_int_r1(mpl,ncid,varid,var,varstart,varcount)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl                !< MPI data
integer,intent(in) :: ncid                         !< File ID
integer,intent(in) :: varid                        !< Variable ID
integer(kind_int),intent(out) :: var(:) !< Variable
integer,intent(in),optional :: varstart(:)         !< Start
integer,intent(in),optional :: varcount(:)         !< Count
 
! Local variable
integer :: rid
# 1293 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Get variable
# 1321 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      if (present(varstart).and.present(varcount)) then
         call strerror(mpl,'netcdf_get_var_int_r1',ncid,nf90_get_var(ncid,varid,var,varstart,varcount),'variable',varid)
      elseif (present(varstart)) then
         call strerror(mpl,'netcdf_get_var_int_r1',ncid,nf90_get_var(ncid,varid,var,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_get_var_int_r1',ncid,nf90_get_var(ncid,varid,var),'variable',varid)
      end if
# 1329 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_get_var_int_r1
# 1271 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_get_var_float_r1
!> Get variable
!----------------------------------------------------------------------
subroutine netcdf_get_var_float_r1(mpl,ncid,varid,var,varstart,varcount)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl                !< MPI data
integer,intent(in) :: ncid                         !< File ID
integer,intent(in) :: varid                        !< Variable ID
real(kind_float),intent(out) :: var(:) !< Variable
integer,intent(in),optional :: varstart(:)         !< Start
integer,intent(in),optional :: varcount(:)         !< Count
 
! Local variable
integer :: rid
# 1293 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Get variable
# 1321 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      if (present(varstart).and.present(varcount)) then
         call strerror(mpl,'netcdf_get_var_float_r1',ncid,nf90_get_var(ncid,varid,var,varstart,varcount),'variable',varid)
      elseif (present(varstart)) then
         call strerror(mpl,'netcdf_get_var_float_r1',ncid,nf90_get_var(ncid,varid,var,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_get_var_float_r1',ncid,nf90_get_var(ncid,varid,var),'variable',varid)
      end if
# 1329 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_get_var_float_r1
# 1271 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_get_var_real_r1
!> Get variable
!----------------------------------------------------------------------
subroutine netcdf_get_var_real_r1(mpl,ncid,varid,var,varstart,varcount)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl                !< MPI data
integer,intent(in) :: ncid                         !< File ID
integer,intent(in) :: varid                        !< Variable ID
real(kind_real),intent(out) :: var(:) !< Variable
integer,intent(in),optional :: varstart(:)         !< Start
integer,intent(in),optional :: varcount(:)         !< Count
 
! Local variable
integer :: rid
# 1293 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Get variable
# 1321 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      if (present(varstart).and.present(varcount)) then
         call strerror(mpl,'netcdf_get_var_real_r1',ncid,nf90_get_var(ncid,varid,var,varstart,varcount),'variable',varid)
      elseif (present(varstart)) then
         call strerror(mpl,'netcdf_get_var_real_r1',ncid,nf90_get_var(ncid,varid,var,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_get_var_real_r1',ncid,nf90_get_var(ncid,varid,var),'variable',varid)
      end if
# 1329 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_get_var_real_r1
# 1271 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_get_var_logical_r1
!> Get variable
!----------------------------------------------------------------------
subroutine netcdf_get_var_logical_r1(mpl,ncid,varid,var,varstart,varcount)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl                !< MPI data
integer,intent(in) :: ncid                         !< File ID
integer,intent(in) :: varid                        !< Variable ID
logical,intent(out) :: var(:) !< Variable
integer,intent(in),optional :: varstart(:)         !< Start
integer,intent(in),optional :: varcount(:)         !< Count
 
! Local variable
integer :: rid
# 1290 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
  integer :: shp(1)
  integer,allocatable :: varint(:)
# 1293 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Get variable
# 1306 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      shp = shape(var)
       allocate(varint(shp(1))) 
      
      
      
      if (present(varstart).and.present(varcount)) then
         call strerror(mpl,'netcdf_get_var_logical_r1',ncid,nf90_get_var(ncid,varid,varint,varstart,varcount),'variable',varid)
      elseif (present(varstart)) then
         call strerror(mpl,'netcdf_get_var_logical_r1',ncid,nf90_get_var(ncid,varid,varint,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_get_var_logical_r1',ncid,nf90_get_var(ncid,varid,varint),'variable',varid)
      end if
      call convert_i2l(mpl,varint,var)
      deallocate(varint)
# 1329 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_get_var_logical_r1
# 1336 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
# 1270 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
# 1271 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_get_var_byte_r2
!> Get variable
!----------------------------------------------------------------------
subroutine netcdf_get_var_byte_r2(mpl,ncid,varid,var,varstart,varcount)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl                !< MPI data
integer,intent(in) :: ncid                         !< File ID
integer,intent(in) :: varid                        !< Variable ID
integer(kind_signed_char),intent(out) :: var(:,:) !< Variable
integer,intent(in),optional :: varstart(:)         !< Start
integer,intent(in),optional :: varcount(:)         !< Count
 
! Local variable
integer :: rid
# 1293 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Get variable
# 1321 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      if (present(varstart).and.present(varcount)) then
         call strerror(mpl,'netcdf_get_var_byte_r2',ncid,nf90_get_var(ncid,varid,var,varstart,varcount),'variable',varid)
      elseif (present(varstart)) then
         call strerror(mpl,'netcdf_get_var_byte_r2',ncid,nf90_get_var(ncid,varid,var,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_get_var_byte_r2',ncid,nf90_get_var(ncid,varid,var),'variable',varid)
      end if
# 1329 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_get_var_byte_r2
# 1271 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_get_var_int_r2
!> Get variable
!----------------------------------------------------------------------
subroutine netcdf_get_var_int_r2(mpl,ncid,varid,var,varstart,varcount)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl                !< MPI data
integer,intent(in) :: ncid                         !< File ID
integer,intent(in) :: varid                        !< Variable ID
integer(kind_int),intent(out) :: var(:,:) !< Variable
integer,intent(in),optional :: varstart(:)         !< Start
integer,intent(in),optional :: varcount(:)         !< Count
 
! Local variable
integer :: rid
# 1293 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Get variable
# 1321 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      if (present(varstart).and.present(varcount)) then
         call strerror(mpl,'netcdf_get_var_int_r2',ncid,nf90_get_var(ncid,varid,var,varstart,varcount),'variable',varid)
      elseif (present(varstart)) then
         call strerror(mpl,'netcdf_get_var_int_r2',ncid,nf90_get_var(ncid,varid,var,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_get_var_int_r2',ncid,nf90_get_var(ncid,varid,var),'variable',varid)
      end if
# 1329 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_get_var_int_r2
# 1271 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_get_var_float_r2
!> Get variable
!----------------------------------------------------------------------
subroutine netcdf_get_var_float_r2(mpl,ncid,varid,var,varstart,varcount)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl                !< MPI data
integer,intent(in) :: ncid                         !< File ID
integer,intent(in) :: varid                        !< Variable ID
real(kind_float),intent(out) :: var(:,:) !< Variable
integer,intent(in),optional :: varstart(:)         !< Start
integer,intent(in),optional :: varcount(:)         !< Count
 
! Local variable
integer :: rid
# 1293 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Get variable
# 1321 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      if (present(varstart).and.present(varcount)) then
         call strerror(mpl,'netcdf_get_var_float_r2',ncid,nf90_get_var(ncid,varid,var,varstart,varcount),'variable',varid)
      elseif (present(varstart)) then
         call strerror(mpl,'netcdf_get_var_float_r2',ncid,nf90_get_var(ncid,varid,var,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_get_var_float_r2',ncid,nf90_get_var(ncid,varid,var),'variable',varid)
      end if
# 1329 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_get_var_float_r2
# 1271 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_get_var_real_r2
!> Get variable
!----------------------------------------------------------------------
subroutine netcdf_get_var_real_r2(mpl,ncid,varid,var,varstart,varcount)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl                !< MPI data
integer,intent(in) :: ncid                         !< File ID
integer,intent(in) :: varid                        !< Variable ID
real(kind_real),intent(out) :: var(:,:) !< Variable
integer,intent(in),optional :: varstart(:)         !< Start
integer,intent(in),optional :: varcount(:)         !< Count
 
! Local variable
integer :: rid
# 1293 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Get variable
# 1321 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      if (present(varstart).and.present(varcount)) then
         call strerror(mpl,'netcdf_get_var_real_r2',ncid,nf90_get_var(ncid,varid,var,varstart,varcount),'variable',varid)
      elseif (present(varstart)) then
         call strerror(mpl,'netcdf_get_var_real_r2',ncid,nf90_get_var(ncid,varid,var,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_get_var_real_r2',ncid,nf90_get_var(ncid,varid,var),'variable',varid)
      end if
# 1329 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_get_var_real_r2
# 1271 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_get_var_logical_r2
!> Get variable
!----------------------------------------------------------------------
subroutine netcdf_get_var_logical_r2(mpl,ncid,varid,var,varstart,varcount)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl                !< MPI data
integer,intent(in) :: ncid                         !< File ID
integer,intent(in) :: varid                        !< Variable ID
logical,intent(out) :: var(:,:) !< Variable
integer,intent(in),optional :: varstart(:)         !< Start
integer,intent(in),optional :: varcount(:)         !< Count
 
! Local variable
integer :: rid
# 1290 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
  integer :: shp(2)
  integer,allocatable :: varint(:,:)
# 1293 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Get variable
# 1306 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      shp = shape(var)
      
       allocate(varint(shp(1),shp(2))) 
      
      
      if (present(varstart).and.present(varcount)) then
         call strerror(mpl,'netcdf_get_var_logical_r2',ncid,nf90_get_var(ncid,varid,varint,varstart,varcount),'variable',varid)
      elseif (present(varstart)) then
         call strerror(mpl,'netcdf_get_var_logical_r2',ncid,nf90_get_var(ncid,varid,varint,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_get_var_logical_r2',ncid,nf90_get_var(ncid,varid,varint),'variable',varid)
      end if
      call convert_i2l(mpl,varint,var)
      deallocate(varint)
# 1329 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_get_var_logical_r2
# 1336 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
# 1270 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
# 1271 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_get_var_byte_r3
!> Get variable
!----------------------------------------------------------------------
subroutine netcdf_get_var_byte_r3(mpl,ncid,varid,var,varstart,varcount)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl                !< MPI data
integer,intent(in) :: ncid                         !< File ID
integer,intent(in) :: varid                        !< Variable ID
integer(kind_signed_char),intent(out) :: var(:,:,:) !< Variable
integer,intent(in),optional :: varstart(:)         !< Start
integer,intent(in),optional :: varcount(:)         !< Count
 
! Local variable
integer :: rid
# 1293 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Get variable
# 1321 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      if (present(varstart).and.present(varcount)) then
         call strerror(mpl,'netcdf_get_var_byte_r3',ncid,nf90_get_var(ncid,varid,var,varstart,varcount),'variable',varid)
      elseif (present(varstart)) then
         call strerror(mpl,'netcdf_get_var_byte_r3',ncid,nf90_get_var(ncid,varid,var,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_get_var_byte_r3',ncid,nf90_get_var(ncid,varid,var),'variable',varid)
      end if
# 1329 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_get_var_byte_r3
# 1271 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_get_var_int_r3
!> Get variable
!----------------------------------------------------------------------
subroutine netcdf_get_var_int_r3(mpl,ncid,varid,var,varstart,varcount)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl                !< MPI data
integer,intent(in) :: ncid                         !< File ID
integer,intent(in) :: varid                        !< Variable ID
integer(kind_int),intent(out) :: var(:,:,:) !< Variable
integer,intent(in),optional :: varstart(:)         !< Start
integer,intent(in),optional :: varcount(:)         !< Count
 
! Local variable
integer :: rid
# 1293 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Get variable
# 1321 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      if (present(varstart).and.present(varcount)) then
         call strerror(mpl,'netcdf_get_var_int_r3',ncid,nf90_get_var(ncid,varid,var,varstart,varcount),'variable',varid)
      elseif (present(varstart)) then
         call strerror(mpl,'netcdf_get_var_int_r3',ncid,nf90_get_var(ncid,varid,var,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_get_var_int_r3',ncid,nf90_get_var(ncid,varid,var),'variable',varid)
      end if
# 1329 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_get_var_int_r3
# 1271 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_get_var_float_r3
!> Get variable
!----------------------------------------------------------------------
subroutine netcdf_get_var_float_r3(mpl,ncid,varid,var,varstart,varcount)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl                !< MPI data
integer,intent(in) :: ncid                         !< File ID
integer,intent(in) :: varid                        !< Variable ID
real(kind_float),intent(out) :: var(:,:,:) !< Variable
integer,intent(in),optional :: varstart(:)         !< Start
integer,intent(in),optional :: varcount(:)         !< Count
 
! Local variable
integer :: rid
# 1293 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Get variable
# 1321 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      if (present(varstart).and.present(varcount)) then
         call strerror(mpl,'netcdf_get_var_float_r3',ncid,nf90_get_var(ncid,varid,var,varstart,varcount),'variable',varid)
      elseif (present(varstart)) then
         call strerror(mpl,'netcdf_get_var_float_r3',ncid,nf90_get_var(ncid,varid,var,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_get_var_float_r3',ncid,nf90_get_var(ncid,varid,var),'variable',varid)
      end if
# 1329 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_get_var_float_r3
# 1271 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_get_var_real_r3
!> Get variable
!----------------------------------------------------------------------
subroutine netcdf_get_var_real_r3(mpl,ncid,varid,var,varstart,varcount)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl                !< MPI data
integer,intent(in) :: ncid                         !< File ID
integer,intent(in) :: varid                        !< Variable ID
real(kind_real),intent(out) :: var(:,:,:) !< Variable
integer,intent(in),optional :: varstart(:)         !< Start
integer,intent(in),optional :: varcount(:)         !< Count
 
! Local variable
integer :: rid
# 1293 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Get variable
# 1321 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      if (present(varstart).and.present(varcount)) then
         call strerror(mpl,'netcdf_get_var_real_r3',ncid,nf90_get_var(ncid,varid,var,varstart,varcount),'variable',varid)
      elseif (present(varstart)) then
         call strerror(mpl,'netcdf_get_var_real_r3',ncid,nf90_get_var(ncid,varid,var,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_get_var_real_r3',ncid,nf90_get_var(ncid,varid,var),'variable',varid)
      end if
# 1329 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_get_var_real_r3
# 1271 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_get_var_logical_r3
!> Get variable
!----------------------------------------------------------------------
subroutine netcdf_get_var_logical_r3(mpl,ncid,varid,var,varstart,varcount)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl                !< MPI data
integer,intent(in) :: ncid                         !< File ID
integer,intent(in) :: varid                        !< Variable ID
logical,intent(out) :: var(:,:,:) !< Variable
integer,intent(in),optional :: varstart(:)         !< Start
integer,intent(in),optional :: varcount(:)         !< Count
 
! Local variable
integer :: rid
# 1290 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
  integer :: shp(3)
  integer,allocatable :: varint(:,:,:)
# 1293 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Get variable
# 1306 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      shp = shape(var)
      
      
       allocate(varint(shp(1),shp(2),shp(3))) 
      
      if (present(varstart).and.present(varcount)) then
         call strerror(mpl,'netcdf_get_var_logical_r3',ncid,nf90_get_var(ncid,varid,varint,varstart,varcount),'variable',varid)
      elseif (present(varstart)) then
         call strerror(mpl,'netcdf_get_var_logical_r3',ncid,nf90_get_var(ncid,varid,varint,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_get_var_logical_r3',ncid,nf90_get_var(ncid,varid,varint),'variable',varid)
      end if
      call convert_i2l(mpl,varint,var)
      deallocate(varint)
# 1329 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_get_var_logical_r3
# 1336 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
# 1270 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
# 1271 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_get_var_byte_r4
!> Get variable
!----------------------------------------------------------------------
subroutine netcdf_get_var_byte_r4(mpl,ncid,varid,var,varstart,varcount)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl                !< MPI data
integer,intent(in) :: ncid                         !< File ID
integer,intent(in) :: varid                        !< Variable ID
integer(kind_signed_char),intent(out) :: var(:,:,:,:) !< Variable
integer,intent(in),optional :: varstart(:)         !< Start
integer,intent(in),optional :: varcount(:)         !< Count
 
! Local variable
integer :: rid
# 1293 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Get variable
# 1321 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      if (present(varstart).and.present(varcount)) then
         call strerror(mpl,'netcdf_get_var_byte_r4',ncid,nf90_get_var(ncid,varid,var,varstart,varcount),'variable',varid)
      elseif (present(varstart)) then
         call strerror(mpl,'netcdf_get_var_byte_r4',ncid,nf90_get_var(ncid,varid,var,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_get_var_byte_r4',ncid,nf90_get_var(ncid,varid,var),'variable',varid)
      end if
# 1329 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_get_var_byte_r4
# 1271 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_get_var_int_r4
!> Get variable
!----------------------------------------------------------------------
subroutine netcdf_get_var_int_r4(mpl,ncid,varid,var,varstart,varcount)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl                !< MPI data
integer,intent(in) :: ncid                         !< File ID
integer,intent(in) :: varid                        !< Variable ID
integer(kind_int),intent(out) :: var(:,:,:,:) !< Variable
integer,intent(in),optional :: varstart(:)         !< Start
integer,intent(in),optional :: varcount(:)         !< Count
 
! Local variable
integer :: rid
# 1293 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Get variable
# 1321 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      if (present(varstart).and.present(varcount)) then
         call strerror(mpl,'netcdf_get_var_int_r4',ncid,nf90_get_var(ncid,varid,var,varstart,varcount),'variable',varid)
      elseif (present(varstart)) then
         call strerror(mpl,'netcdf_get_var_int_r4',ncid,nf90_get_var(ncid,varid,var,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_get_var_int_r4',ncid,nf90_get_var(ncid,varid,var),'variable',varid)
      end if
# 1329 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_get_var_int_r4
# 1271 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_get_var_float_r4
!> Get variable
!----------------------------------------------------------------------
subroutine netcdf_get_var_float_r4(mpl,ncid,varid,var,varstart,varcount)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl                !< MPI data
integer,intent(in) :: ncid                         !< File ID
integer,intent(in) :: varid                        !< Variable ID
real(kind_float),intent(out) :: var(:,:,:,:) !< Variable
integer,intent(in),optional :: varstart(:)         !< Start
integer,intent(in),optional :: varcount(:)         !< Count
 
! Local variable
integer :: rid
# 1293 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Get variable
# 1321 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      if (present(varstart).and.present(varcount)) then
         call strerror(mpl,'netcdf_get_var_float_r4',ncid,nf90_get_var(ncid,varid,var,varstart,varcount),'variable',varid)
      elseif (present(varstart)) then
         call strerror(mpl,'netcdf_get_var_float_r4',ncid,nf90_get_var(ncid,varid,var,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_get_var_float_r4',ncid,nf90_get_var(ncid,varid,var),'variable',varid)
      end if
# 1329 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_get_var_float_r4
# 1271 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_get_var_real_r4
!> Get variable
!----------------------------------------------------------------------
subroutine netcdf_get_var_real_r4(mpl,ncid,varid,var,varstart,varcount)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl                !< MPI data
integer,intent(in) :: ncid                         !< File ID
integer,intent(in) :: varid                        !< Variable ID
real(kind_real),intent(out) :: var(:,:,:,:) !< Variable
integer,intent(in),optional :: varstart(:)         !< Start
integer,intent(in),optional :: varcount(:)         !< Count
 
! Local variable
integer :: rid
# 1293 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Get variable
# 1321 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      if (present(varstart).and.present(varcount)) then
         call strerror(mpl,'netcdf_get_var_real_r4',ncid,nf90_get_var(ncid,varid,var,varstart,varcount),'variable',varid)
      elseif (present(varstart)) then
         call strerror(mpl,'netcdf_get_var_real_r4',ncid,nf90_get_var(ncid,varid,var,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_get_var_real_r4',ncid,nf90_get_var(ncid,varid,var),'variable',varid)
      end if
# 1329 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_get_var_real_r4
# 1271 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
!----------------------------------------------------------------------
! Subroutine: netcdf_get_var_logical_r4
!> Get variable
!----------------------------------------------------------------------
subroutine netcdf_get_var_logical_r4(mpl,ncid,varid,var,varstart,varcount)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl                !< MPI data
integer,intent(in) :: ncid                         !< File ID
integer,intent(in) :: varid                        !< Variable ID
logical,intent(out) :: var(:,:,:,:) !< Variable
integer,intent(in),optional :: varstart(:)         !< Start
integer,intent(in),optional :: varcount(:)         !< Count
 
! Local variable
integer :: rid
# 1290 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
  integer :: shp(4)
  integer,allocatable :: varint(:,:,:,:)
# 1293 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Get variable
# 1306 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
      shp = shape(var)
      
      
      
       allocate(varint(shp(1),shp(2),shp(3),shp(4))) 
      if (present(varstart).and.present(varcount)) then
         call strerror(mpl,'netcdf_get_var_logical_r4',ncid,nf90_get_var(ncid,varid,varint,varstart,varcount),'variable',varid)
      elseif (present(varstart)) then
         call strerror(mpl,'netcdf_get_var_logical_r4',ncid,nf90_get_var(ncid,varid,varint,varstart),'variable',varid)
      else
         call strerror(mpl,'netcdf_get_var_logical_r4',ncid,nf90_get_var(ncid,varid,varint),'variable',varid)
      end if
      call convert_i2l(mpl,varint,var)
      deallocate(varint)
# 1329 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
end if
 
! Probe out
 
 
end subroutine netcdf_get_var_logical_r4
# 1336 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
# 1337 "/Users/miesch/JEDI/code/working_copy/internal/mpas-bundle/saber/src/saber/util/tools_netcdf.fypp"
 
!----------------------------------------------------------------------
! Subroutine: netcdf_close_file
!> Close file
!----------------------------------------------------------------------
subroutine netcdf_close_file(mpl,ncid)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl !< MPI data
integer,intent(in) :: ncid          !< File ID
 
! Local variables
integer :: rid
 
! Set name
 
 
! Probe in
 
 
! Get root ID in registry
rid = registry%get_root_id(mpl,ncid)
 
if (mpl%msv%isnot(rid)) then
   ! Close file
   call strerror(mpl,'netcdf_close_file',ncid,nf90_close(ncid),'file',ncid)
 
   ! Free registry slot
   call registry%free(mpl,ncid)
end if
 
! Probe out
 
 
end subroutine netcdf_close_file
 
!----------------------------------------------------------------------
! Subroutine: netcdf_strerror
!> Handle error
!----------------------------------------------------------------------
subroutine netcdf_strerror(mpl,subr,ncid,info,hint,hint_id)
 
implicit none
 
! Passed variables
type(mpl_type),intent(inout) :: mpl          !< MPI data
character(len=*),intent(in) :: subr          !< Calling subroutine
integer,intent(in) :: ncid                   !< File ID
integer,intent(in) :: info                   !< Info index
character(len=*),intent(in),optional :: hint !< Hint
integer,intent(in),optional :: hint_id       !< Hint ID
 
! Local variables
integer :: child_id,rid,i,parent_id,indent
logical :: found
character(len=3) :: cindent
character(len=1024) :: message
 
! Set name
 
 
! Probe in
 
 
! Check status
if (info/=nf90_noerr) then
   write(output_unit,'(a,i6.6,a)') '!!! NetCDF error in '//trim(subr)//' on task #',mpl%myproc,': '//trim(nf90_strerror(info))
   call flush(output_unit)
   if (present(hint)) then
      if (present(hint_id)) then
         write(message,'(a,i6)') trim(hint)//' ID ',hint_id
      else
         message = trim(hint)
      end if
      write(output_unit,'(a)') '!!! Hint: '//trim(message)
      call flush(output_unit)
   end if
 
   ! Initialization
   found = .false.
   child_id = ncid
   indent = 4
 
   ! Look for successive parents
   do while (.not.found)
      ! Initialization
      rid = mpl%msv%vali
 
      ! Get corresponding slot
      do i=1,nidmax
         if (registry%id(i,2)==child_id) then
            rid = i
            exit
         end if
      end do
 
      ! Check slot index
      if (mpl%msv%is(rid)) call mpl%abort('netcdf_strerror','cannot find this child ID in registry')
 
      ! Define indentation
      indent = indent+3
      if (indent<10) then
         write(cindent,'(a,i1)') 'a',indent
      elseif (indent<100) then
         write(cindent,'(a,i2)') 'a',indent
      end if
 
      ! Print traceback
      write(output_unit,'('//trim(cindent)//',a,a)') '','|-> ',trim(registry%name(rid))
      call flush(output_unit)
 
      ! Get parent_id
      parent_id = registry%id(i,1)
 
      if (parent_id==0) then
         ! Found root ID
         found = .true.
      else
         ! Update child ID
         child_id = parent_id
      end if
   end do
 
   ! Abort with proper MPI communicator
   call mpl%f_comm%abort(1)
end if
 
! Probe out
 
 
end subroutine netcdf_strerror
 
end module tools_netcdf