cable_netcdf_nf90_mod Module

The NetCDF Fortran implementation of the netCDF file handling interface in CABLE.

For more information on NetCDF Fortran please refer to:

Note

This implementation does not support parallel I/O and can only be used when CABLE is running in serial.


Uses


Derived Types

type, private, extends(cable_netcdf_decomp_t) ::  cable_netcdf_nf90_decomp_int32_t

A decomposition for 32-bit integer variables in the NetCDF Fortran implementation.

Components

Type Visibility Attributes Name Initial
integer, public, allocatable :: dims(:)

An array of the global dimensions used to describe the shape of the data in the netCDF file
integer, public, allocatable :: compmap(:)

An array of data offsets describing where each element of the in-memory array is located in the netCDF variable data on disk.
integer(kind=CABLE_NETCDF_INT32_KIND), private, allocatable :: values_filled(:)

A buffer for reading/writing data from the in-memory array to the netCDF variable data on disk.

type, private, extends(cable_netcdf_decomp_t) ::  cable_netcdf_nf90_decomp_real32_t

A decomposition for 32-bit real variables in the NetCDF Fortran implementation.

Components

Type Visibility Attributes Name Initial
integer, public, allocatable :: dims(:)

An array of the global dimensions used to describe the shape of the data in the netCDF file
integer, public, allocatable :: compmap(:)

An array of data offsets describing where each element of the in-memory array is located in the netCDF variable data on disk.
real(kind=CABLE_NETCDF_REAL32_KIND), private, allocatable :: values_filled(:)

A buffer for reading/writing data from the in-memory array to the netCDF variable data on disk.

type, private, extends(cable_netcdf_decomp_t) ::  cable_netcdf_nf90_decomp_real64_t

A decomposition for 64-bit real variables in the NetCDF Fortran implementation.

Components

Type Visibility Attributes Name Initial
integer, public, allocatable :: dims(:)

An array of the global dimensions used to describe the shape of the data in the netCDF file
integer, public, allocatable :: compmap(:)

An array of data offsets describing where each element of the in-memory array is located in the netCDF variable data on disk.
real(kind=CABLE_NETCDF_REAL64_KIND), private, allocatable :: values_filled(:)

A buffer for reading/writing data from the in-memory array to the netCDF variable data on disk.

type, public, extends(cable_netcdf_io_t) ::  cable_netcdf_nf90_io_t

The NetCDF Fortran implementation of the netCDF I/O handler interface in CABLE.

Type-Bound Procedures

procedure, public :: init => cable_netcdf_nf90_io_init
procedure, public :: finalise => cable_netcdf_nf90_io_finalise
procedure, public :: create_file => cable_netcdf_nf90_io_create_file
procedure, public :: open_file => cable_netcdf_nf90_io_open_file
procedure, public :: create_decomp => cable_netcdf_nf90_io_create_decomp

type, private, extends(cable_netcdf_file_t) ::  cable_netcdf_nf90_file_t

The NetCDF Fortran implementation of the netCDF file handling interface in CABLE.

Components

Type Visibility Attributes Name Initial
integer, private :: ncid

Type-Bound Procedures

generic, public :: put_att => put_att_global_string, put_att_global_int32, put_att_global_real32, put_att_global_real64, put_att_var_string, put_att_var_int32, put_att_var_real32, put_att_var_real64
generic, public :: get_att => get_att_global_string, get_att_global_int32, get_att_global_real32, get_att_global_real64, get_att_var_string, get_att_var_int32, get_att_var_real32, get_att_var_real64
generic, public :: put_var => put_var_int32_0d, put_var_int32_1d, put_var_int32_2d, put_var_int32_3d, put_var_real32_0d, put_var_real32_1d, put_var_real32_2d, put_var_real32_3d, put_var_real64_0d, put_var_real64_1d, put_var_real64_2d, put_var_real64_3d
generic, public :: write_darray => write_darray_int32_1d, write_darray_int32_2d, write_darray_int32_3d, write_darray_real32_1d, write_darray_real32_2d, write_darray_real32_3d, write_darray_real64_1d, write_darray_real64_2d, write_darray_real64_3d
generic, public :: get_var => get_var_int32_0d, get_var_int32_1d, get_var_int32_2d, get_var_int32_3d, get_var_real32_0d, get_var_real32_1d, get_var_real32_2d, get_var_real32_3d, get_var_real64_0d, get_var_real64_1d, get_var_real64_2d, get_var_real64_3d
generic, public :: read_darray => read_darray_int32_1d, read_darray_int32_2d, read_darray_int32_3d, read_darray_real32_1d, read_darray_real32_2d, read_darray_real32_3d, read_darray_real64_1d, read_darray_real64_2d, read_darray_real64_3d
procedure, public :: close => cable_netcdf_nf90_file_close
procedure, public :: end_def => cable_netcdf_nf90_file_end_def
procedure, public :: redef => cable_netcdf_nf90_file_redef
procedure, public :: sync => cable_netcdf_nf90_file_sync
procedure, public :: def_dims => cable_netcdf_nf90_file_def_dims
procedure, public :: def_var => cable_netcdf_nf90_file_def_var
procedure, public :: put_att_global_string => cable_netcdf_nf90_file_put_att_global_string
procedure, public :: put_att_global_int32 => cable_netcdf_nf90_file_put_att_global_int32
procedure, public :: put_att_global_real32 => cable_netcdf_nf90_file_put_att_global_real32
procedure, public :: put_att_global_real64 => cable_netcdf_nf90_file_put_att_global_real64
procedure, public :: put_att_var_string => cable_netcdf_nf90_file_put_att_var_string
procedure, public :: put_att_var_int32 => cable_netcdf_nf90_file_put_att_var_int32
procedure, public :: put_att_var_real32 => cable_netcdf_nf90_file_put_att_var_real32
procedure, public :: put_att_var_real64 => cable_netcdf_nf90_file_put_att_var_real64
procedure, public :: get_att_global_string => cable_netcdf_nf90_file_get_att_global_string
procedure, public :: get_att_global_int32 => cable_netcdf_nf90_file_get_att_global_int32
procedure, public :: get_att_global_real32 => cable_netcdf_nf90_file_get_att_global_real32
procedure, public :: get_att_global_real64 => cable_netcdf_nf90_file_get_att_global_real64
procedure, public :: get_att_var_string => cable_netcdf_nf90_file_get_att_var_string
procedure, public :: get_att_var_int32 => cable_netcdf_nf90_file_get_att_var_int32
procedure, public :: get_att_var_real32 => cable_netcdf_nf90_file_get_att_var_real32
procedure, public :: get_att_var_real64 => cable_netcdf_nf90_file_get_att_var_real64
procedure, public :: inq_dim_len => cable_netcdf_nf90_file_inq_dim_len
procedure, public :: inq_var_ndims => cable_netcdf_nf90_file_inq_var_ndims
procedure, public :: put_var_int32_0d => cable_netcdf_nf90_file_put_var_int32_0d
procedure, public :: put_var_int32_1d => cable_netcdf_nf90_file_put_var_int32_1d
procedure, public :: put_var_int32_2d => cable_netcdf_nf90_file_put_var_int32_2d
procedure, public :: put_var_int32_3d => cable_netcdf_nf90_file_put_var_int32_3d
procedure, public :: put_var_real32_0d => cable_netcdf_nf90_file_put_var_real32_0d
procedure, public :: put_var_real32_1d => cable_netcdf_nf90_file_put_var_real32_1d
procedure, public :: put_var_real32_2d => cable_netcdf_nf90_file_put_var_real32_2d
procedure, public :: put_var_real32_3d => cable_netcdf_nf90_file_put_var_real32_3d
procedure, public :: put_var_real64_0d => cable_netcdf_nf90_file_put_var_real64_0d
procedure, public :: put_var_real64_1d => cable_netcdf_nf90_file_put_var_real64_1d
procedure, public :: put_var_real64_2d => cable_netcdf_nf90_file_put_var_real64_2d
procedure, public :: put_var_real64_3d => cable_netcdf_nf90_file_put_var_real64_3d
procedure, public :: write_darray_int32_1d => cable_netcdf_nf90_file_write_darray_int32_1d
procedure, public :: write_darray_int32_2d => cable_netcdf_nf90_file_write_darray_int32_2d
procedure, public :: write_darray_int32_3d => cable_netcdf_nf90_file_write_darray_int32_3d
procedure, public :: write_darray_real32_1d => cable_netcdf_nf90_file_write_darray_real32_1d
procedure, public :: write_darray_real32_2d => cable_netcdf_nf90_file_write_darray_real32_2d
procedure, public :: write_darray_real32_3d => cable_netcdf_nf90_file_write_darray_real32_3d
procedure, public :: write_darray_real64_1d => cable_netcdf_nf90_file_write_darray_real64_1d
procedure, public :: write_darray_real64_2d => cable_netcdf_nf90_file_write_darray_real64_2d
procedure, public :: write_darray_real64_3d => cable_netcdf_nf90_file_write_darray_real64_3d
procedure, public :: get_var_int32_0d => cable_netcdf_nf90_file_get_var_int32_0d
procedure, public :: get_var_int32_1d => cable_netcdf_nf90_file_get_var_int32_1d
procedure, public :: get_var_int32_2d => cable_netcdf_nf90_file_get_var_int32_2d
procedure, public :: get_var_int32_3d => cable_netcdf_nf90_file_get_var_int32_3d
procedure, public :: get_var_real32_0d => cable_netcdf_nf90_file_get_var_real32_0d
procedure, public :: get_var_real32_1d => cable_netcdf_nf90_file_get_var_real32_1d
procedure, public :: get_var_real32_2d => cable_netcdf_nf90_file_get_var_real32_2d
procedure, public :: get_var_real32_3d => cable_netcdf_nf90_file_get_var_real32_3d
procedure, public :: get_var_real64_0d => cable_netcdf_nf90_file_get_var_real64_0d
procedure, public :: get_var_real64_1d => cable_netcdf_nf90_file_get_var_real64_1d
procedure, public :: get_var_real64_2d => cable_netcdf_nf90_file_get_var_real64_2d
procedure, public :: get_var_real64_3d => cable_netcdf_nf90_file_get_var_real64_3d
procedure, public :: read_darray_int32_1d => cable_netcdf_nf90_file_read_darray_int32_1d
procedure, public :: read_darray_int32_2d => cable_netcdf_nf90_file_read_darray_int32_2d
procedure, public :: read_darray_int32_3d => cable_netcdf_nf90_file_read_darray_int32_3d
procedure, public :: read_darray_real32_1d => cable_netcdf_nf90_file_read_darray_real32_1d
procedure, public :: read_darray_real32_2d => cable_netcdf_nf90_file_read_darray_real32_2d
procedure, public :: read_darray_real32_3d => cable_netcdf_nf90_file_read_darray_real32_3d
procedure, public :: read_darray_real64_1d => cable_netcdf_nf90_file_read_darray_real64_1d
procedure, public :: read_darray_real64_2d => cable_netcdf_nf90_file_read_darray_real64_2d
procedure, public :: read_darray_real64_3d => cable_netcdf_nf90_file_read_darray_real64_3d

Functions

private function type_nf90(type)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: type

Return Value integer

private function cmode_nf90(iotype, mode)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: iotype
integer, intent(in), optional :: mode

Return Value integer

private function cable_netcdf_nf90_io_create_file(this, path, iotype, mode) result(file)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_io_t), intent(inout) :: this
character(len=*), intent(in) :: path
integer, intent(in) :: iotype
integer, intent(in), optional :: mode

Return Value class(cable_netcdf_file_t), allocatable

private function cable_netcdf_nf90_io_open_file(this, path, iotype, mode) result(file)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_io_t), intent(inout) :: this
character(len=*), intent(in) :: path
integer, intent(in) :: iotype
integer, intent(in), optional :: mode

Return Value class(cable_netcdf_file_t), allocatable

private function cable_netcdf_nf90_io_create_decomp(this, compmap, dims, type) result(decomp)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_io_t), intent(inout) :: this
integer, intent(in) :: compmap(:)
integer, intent(in) :: dims(:)
integer, intent(in) :: type

Return Value class(cable_netcdf_decomp_t), allocatable


Subroutines

private subroutine check_nf90(status)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: status

private subroutine cable_netcdf_nf90_io_init(this)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_io_t), intent(inout) :: this

private subroutine cable_netcdf_nf90_io_finalise(this)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_io_t), intent(inout) :: this

private subroutine cable_netcdf_nf90_file_close(this)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this

private subroutine cable_netcdf_nf90_file_end_def(this)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this

private subroutine cable_netcdf_nf90_file_redef(this)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this

private subroutine cable_netcdf_nf90_file_sync(this)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this

private subroutine cable_netcdf_nf90_file_def_dims(this, dim_names, dim_lens)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: dim_names(:)
integer, intent(in) :: dim_lens(:)

private subroutine cable_netcdf_nf90_file_def_var(this, var_name, type, dim_names)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
integer, intent(in) :: type
character(len=*), intent(in), optional :: dim_names(:)

private subroutine cable_netcdf_nf90_file_put_att_global_string(this, att_name, att_value)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: att_name
character(len=*), intent(in) :: att_value

private subroutine cable_netcdf_nf90_file_put_att_global_int32(this, att_name, att_value)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: att_name
integer(kind=CABLE_NETCDF_INT32_KIND), intent(in) :: att_value

private subroutine cable_netcdf_nf90_file_put_att_global_real32(this, att_name, att_value)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: att_name
real(kind=CABLE_NETCDF_REAL32_KIND), intent(in) :: att_value

private subroutine cable_netcdf_nf90_file_put_att_global_real64(this, att_name, att_value)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: att_name
real(kind=CABLE_NETCDF_REAL64_KIND), intent(in) :: att_value

private subroutine cable_netcdf_nf90_file_put_att_var_string(this, var_name, att_name, att_value)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
character(len=*), intent(in) :: att_name
character(len=*), intent(in) :: att_value

private subroutine cable_netcdf_nf90_file_put_att_var_int32(this, var_name, att_name, att_value)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
character(len=*), intent(in) :: att_name
integer(kind=CABLE_NETCDF_INT32_KIND), intent(in) :: att_value

private subroutine cable_netcdf_nf90_file_put_att_var_real32(this, var_name, att_name, att_value)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
character(len=*), intent(in) :: att_name
real(kind=CABLE_NETCDF_REAL32_KIND), intent(in) :: att_value

private subroutine cable_netcdf_nf90_file_put_att_var_real64(this, var_name, att_name, att_value)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
character(len=*), intent(in) :: att_name
real(kind=CABLE_NETCDF_REAL64_KIND), intent(in) :: att_value

private subroutine cable_netcdf_nf90_file_get_att_global_string(this, att_name, att_value)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: att_name
character(len=*), intent(out) :: att_value

private subroutine cable_netcdf_nf90_file_get_att_global_int32(this, att_name, att_value)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: att_name
integer(kind=CABLE_NETCDF_INT32_KIND), intent(out) :: att_value

private subroutine cable_netcdf_nf90_file_get_att_global_real32(this, att_name, att_value)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: att_name
real(kind=CABLE_NETCDF_REAL32_KIND), intent(out) :: att_value

private subroutine cable_netcdf_nf90_file_get_att_global_real64(this, att_name, att_value)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: att_name
real(kind=CABLE_NETCDF_REAL64_KIND), intent(out) :: att_value

private subroutine cable_netcdf_nf90_file_get_att_var_string(this, var_name, att_name, att_value)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
character(len=*), intent(in) :: att_name
character(len=*), intent(out) :: att_value

private subroutine cable_netcdf_nf90_file_get_att_var_int32(this, var_name, att_name, att_value)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
character(len=*), intent(in) :: att_name
integer(kind=CABLE_NETCDF_INT32_KIND), intent(out) :: att_value

private subroutine cable_netcdf_nf90_file_get_att_var_real32(this, var_name, att_name, att_value)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
character(len=*), intent(in) :: att_name
real(kind=CABLE_NETCDF_REAL32_KIND), intent(out) :: att_value

private subroutine cable_netcdf_nf90_file_get_att_var_real64(this, var_name, att_name, att_value)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
character(len=*), intent(in) :: att_name
real(kind=CABLE_NETCDF_REAL64_KIND), intent(out) :: att_value

private subroutine cable_netcdf_nf90_file_inq_dim_len(this, dim_name, dim_len)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: dim_name
integer, intent(out) :: dim_len

private subroutine cable_netcdf_nf90_file_inq_var_ndims(this, var_name, ndims)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
integer, intent(out) :: ndims

private subroutine cable_netcdf_nf90_file_put_var_int32_0d(this, var_name, values, start, count)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
integer(kind=CABLE_NETCDF_INT32_KIND), intent(in) :: values
integer, intent(in), optional :: start(:)
integer, intent(in), optional :: count(:)

private subroutine cable_netcdf_nf90_file_put_var_int32_1d(this, var_name, values, start, count)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
integer(kind=CABLE_NETCDF_INT32_KIND), intent(in) :: values(:)
integer, intent(in), optional :: start(:)
integer, intent(in), optional :: count(:)

private subroutine cable_netcdf_nf90_file_put_var_int32_2d(this, var_name, values, start, count)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
integer(kind=CABLE_NETCDF_INT32_KIND), intent(in) :: values(:,:)
integer, intent(in), optional :: start(:)
integer, intent(in), optional :: count(:)

private subroutine cable_netcdf_nf90_file_put_var_int32_3d(this, var_name, values, start, count)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
integer(kind=CABLE_NETCDF_INT32_KIND), intent(in) :: values(:,:,:)
integer, intent(in), optional :: start(:)
integer, intent(in), optional :: count(:)

private subroutine cable_netcdf_nf90_file_put_var_real32_0d(this, var_name, values, start, count)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
real(kind=CABLE_NETCDF_REAL32_KIND), intent(in) :: values
integer, intent(in), optional :: start(:)
integer, intent(in), optional :: count(:)

private subroutine cable_netcdf_nf90_file_put_var_real32_1d(this, var_name, values, start, count)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
real(kind=CABLE_NETCDF_REAL32_KIND), intent(in) :: values(:)
integer, intent(in), optional :: start(:)
integer, intent(in), optional :: count(:)

private subroutine cable_netcdf_nf90_file_put_var_real32_2d(this, var_name, values, start, count)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
real(kind=CABLE_NETCDF_REAL32_KIND), intent(in) :: values(:,:)
integer, intent(in), optional :: start(:)
integer, intent(in), optional :: count(:)

private subroutine cable_netcdf_nf90_file_put_var_real32_3d(this, var_name, values, start, count)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
real(kind=CABLE_NETCDF_REAL32_KIND), intent(in) :: values(:,:,:)
integer, intent(in), optional :: start(:)
integer, intent(in), optional :: count(:)

private subroutine cable_netcdf_nf90_file_put_var_real64_0d(this, var_name, values, start, count)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
real(kind=CABLE_NETCDF_REAL64_KIND), intent(in) :: values
integer, intent(in), optional :: start(:)
integer, intent(in), optional :: count(:)

private subroutine cable_netcdf_nf90_file_put_var_real64_1d(this, var_name, values, start, count)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
real(kind=CABLE_NETCDF_REAL64_KIND), intent(in) :: values(:)
integer, intent(in), optional :: start(:)
integer, intent(in), optional :: count(:)

private subroutine cable_netcdf_nf90_file_put_var_real64_2d(this, var_name, values, start, count)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
real(kind=CABLE_NETCDF_REAL64_KIND), intent(in) :: values(:,:)
integer, intent(in), optional :: start(:)
integer, intent(in), optional :: count(:)

private subroutine cable_netcdf_nf90_file_put_var_real64_3d(this, var_name, values, start, count)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
real(kind=CABLE_NETCDF_REAL64_KIND), intent(in) :: values(:,:,:)
integer, intent(in), optional :: start(:)
integer, intent(in), optional :: count(:)

private subroutine cable_netcdf_nf90_file_write_darray_int32_1d(this, var_name, values, decomp, fill_value, frame)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
integer(kind=CABLE_NETCDF_INT32_KIND), intent(in) :: values(:)
class(cable_netcdf_decomp_t), intent(inout) :: decomp
integer(kind=CABLE_NETCDF_INT32_KIND), intent(in), optional :: fill_value
integer, intent(in), optional :: frame

private subroutine cable_netcdf_nf90_file_write_darray_int32_2d(this, var_name, values, decomp, fill_value, frame)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
integer(kind=CABLE_NETCDF_INT32_KIND), intent(in) :: values(:,:)
class(cable_netcdf_decomp_t), intent(inout) :: decomp
integer(kind=CABLE_NETCDF_INT32_KIND), intent(in), optional :: fill_value
integer, intent(in), optional :: frame

private subroutine cable_netcdf_nf90_file_write_darray_int32_3d(this, var_name, values, decomp, fill_value, frame)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
integer(kind=CABLE_NETCDF_INT32_KIND), intent(in) :: values(:,:,:)
class(cable_netcdf_decomp_t), intent(inout) :: decomp
integer(kind=CABLE_NETCDF_INT32_KIND), intent(in), optional :: fill_value
integer, intent(in), optional :: frame

private subroutine cable_netcdf_nf90_file_write_darray_real32_1d(this, var_name, values, decomp, fill_value, frame)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
real(kind=CABLE_NETCDF_REAL32_KIND), intent(in) :: values(:)
class(cable_netcdf_decomp_t), intent(inout) :: decomp
real(kind=CABLE_NETCDF_REAL32_KIND), intent(in), optional :: fill_value
integer, intent(in), optional :: frame

private subroutine cable_netcdf_nf90_file_write_darray_real32_2d(this, var_name, values, decomp, fill_value, frame)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
real(kind=CABLE_NETCDF_REAL32_KIND), intent(in) :: values(:,:)
class(cable_netcdf_decomp_t), intent(inout) :: decomp
real(kind=CABLE_NETCDF_REAL32_KIND), intent(in), optional :: fill_value
integer, intent(in), optional :: frame

private subroutine cable_netcdf_nf90_file_write_darray_real32_3d(this, var_name, values, decomp, fill_value, frame)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
real(kind=CABLE_NETCDF_REAL32_KIND), intent(in) :: values(:,:,:)
class(cable_netcdf_decomp_t), intent(inout) :: decomp
real(kind=CABLE_NETCDF_REAL32_KIND), intent(in), optional :: fill_value
integer, intent(in), optional :: frame

private subroutine cable_netcdf_nf90_file_write_darray_real64_1d(this, var_name, values, decomp, fill_value, frame)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
real(kind=CABLE_NETCDF_REAL64_KIND), intent(in) :: values(:)
class(cable_netcdf_decomp_t), intent(inout) :: decomp
real(kind=CABLE_NETCDF_REAL64_KIND), intent(in), optional :: fill_value
integer, intent(in), optional :: frame

private subroutine cable_netcdf_nf90_file_write_darray_real64_2d(this, var_name, values, decomp, fill_value, frame)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
real(kind=CABLE_NETCDF_REAL64_KIND), intent(in) :: values(:,:)
class(cable_netcdf_decomp_t), intent(inout) :: decomp
real(kind=CABLE_NETCDF_REAL64_KIND), intent(in), optional :: fill_value
integer, intent(in), optional :: frame

private subroutine cable_netcdf_nf90_file_write_darray_real64_3d(this, var_name, values, decomp, fill_value, frame)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
real(kind=CABLE_NETCDF_REAL64_KIND), intent(in) :: values(:,:,:)
class(cable_netcdf_decomp_t), intent(inout) :: decomp
real(kind=CABLE_NETCDF_REAL64_KIND), intent(in), optional :: fill_value
integer, intent(in), optional :: frame

private subroutine cable_netcdf_nf90_file_get_var_int32_0d(this, var_name, values, start, count)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
integer(kind=CABLE_NETCDF_INT32_KIND), intent(out) :: values
integer, intent(in), optional :: start(:)
integer, intent(in), optional :: count(:)

private subroutine cable_netcdf_nf90_file_get_var_int32_1d(this, var_name, values, start, count)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
integer(kind=CABLE_NETCDF_INT32_KIND), intent(out) :: values(:)
integer, intent(in), optional :: start(:)
integer, intent(in), optional :: count(:)

private subroutine cable_netcdf_nf90_file_get_var_int32_2d(this, var_name, values, start, count)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
integer(kind=CABLE_NETCDF_INT32_KIND), intent(out) :: values(:,:)
integer, intent(in), optional :: start(:)
integer, intent(in), optional :: count(:)

private subroutine cable_netcdf_nf90_file_get_var_int32_3d(this, var_name, values, start, count)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
integer(kind=CABLE_NETCDF_INT32_KIND), intent(out) :: values(:,:,:)
integer, intent(in), optional :: start(:)
integer, intent(in), optional :: count(:)

private subroutine cable_netcdf_nf90_file_get_var_real32_0d(this, var_name, values, start, count)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
real(kind=CABLE_NETCDF_REAL32_KIND), intent(out) :: values
integer, intent(in), optional :: start(:)
integer, intent(in), optional :: count(:)

private subroutine cable_netcdf_nf90_file_get_var_real32_1d(this, var_name, values, start, count)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
real(kind=CABLE_NETCDF_REAL32_KIND), intent(out) :: values(:)
integer, intent(in), optional :: start(:)
integer, intent(in), optional :: count(:)

private subroutine cable_netcdf_nf90_file_get_var_real32_2d(this, var_name, values, start, count)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
real(kind=CABLE_NETCDF_REAL32_KIND), intent(out) :: values(:,:)
integer, intent(in), optional :: start(:)
integer, intent(in), optional :: count(:)

private subroutine cable_netcdf_nf90_file_get_var_real32_3d(this, var_name, values, start, count)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
real(kind=CABLE_NETCDF_REAL32_KIND), intent(out) :: values(:,:,:)
integer, intent(in), optional :: start(:)
integer, intent(in), optional :: count(:)

private subroutine cable_netcdf_nf90_file_get_var_real64_0d(this, var_name, values, start, count)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
real(kind=CABLE_NETCDF_REAL64_KIND), intent(out) :: values
integer, intent(in), optional :: start(:)
integer, intent(in), optional :: count(:)

private subroutine cable_netcdf_nf90_file_get_var_real64_1d(this, var_name, values, start, count)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
real(kind=CABLE_NETCDF_REAL64_KIND), intent(out) :: values(:)
integer, intent(in), optional :: start(:)
integer, intent(in), optional :: count(:)

private subroutine cable_netcdf_nf90_file_get_var_real64_2d(this, var_name, values, start, count)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
real(kind=CABLE_NETCDF_REAL64_KIND), intent(out) :: values(:,:)
integer, intent(in), optional :: start(:)
integer, intent(in), optional :: count(:)

private subroutine cable_netcdf_nf90_file_get_var_real64_3d(this, var_name, values, start, count)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
real(kind=CABLE_NETCDF_REAL64_KIND), intent(out) :: values(:,:,:)
integer, intent(in), optional :: start(:)
integer, intent(in), optional :: count(:)

private subroutine cable_netcdf_nf90_file_read_darray_int32_1d(this, var_name, values, decomp, frame)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
integer(kind=CABLE_NETCDF_INT32_KIND), intent(out) :: values(:)
class(cable_netcdf_decomp_t), intent(inout) :: decomp
integer, intent(in), optional :: frame

private subroutine cable_netcdf_nf90_file_read_darray_int32_2d(this, var_name, values, decomp, frame)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
integer(kind=CABLE_NETCDF_INT32_KIND), intent(out) :: values(:,:)
class(cable_netcdf_decomp_t), intent(inout) :: decomp
integer, intent(in), optional :: frame

private subroutine cable_netcdf_nf90_file_read_darray_int32_3d(this, var_name, values, decomp, frame)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
integer(kind=CABLE_NETCDF_INT32_KIND), intent(out) :: values(:,:,:)
class(cable_netcdf_decomp_t), intent(inout) :: decomp
integer, intent(in), optional :: frame

private subroutine cable_netcdf_nf90_file_read_darray_real32_1d(this, var_name, values, decomp, frame)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
real(kind=CABLE_NETCDF_REAL32_KIND), intent(out) :: values(:)
class(cable_netcdf_decomp_t), intent(inout) :: decomp
integer, intent(in), optional :: frame

private subroutine cable_netcdf_nf90_file_read_darray_real32_2d(this, var_name, values, decomp, frame)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
real(kind=CABLE_NETCDF_REAL32_KIND), intent(out) :: values(:,:)
class(cable_netcdf_decomp_t), intent(inout) :: decomp
integer, intent(in), optional :: frame

private subroutine cable_netcdf_nf90_file_read_darray_real32_3d(this, var_name, values, decomp, frame)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
real(kind=CABLE_NETCDF_REAL32_KIND), intent(out) :: values(:,:,:)
class(cable_netcdf_decomp_t), intent(inout) :: decomp
integer, intent(in), optional :: frame

private subroutine cable_netcdf_nf90_file_read_darray_real64_1d(this, var_name, values, decomp, frame)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
real(kind=CABLE_NETCDF_REAL64_KIND), intent(out) :: values(:)
class(cable_netcdf_decomp_t), intent(inout) :: decomp
integer, intent(in), optional :: frame

private subroutine cable_netcdf_nf90_file_read_darray_real64_2d(this, var_name, values, decomp, frame)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
real(kind=CABLE_NETCDF_REAL64_KIND), intent(out) :: values(:,:)
class(cable_netcdf_decomp_t), intent(inout) :: decomp
integer, intent(in), optional :: frame

private subroutine cable_netcdf_nf90_file_read_darray_real64_3d(this, var_name, values, decomp, frame)

Arguments

Type IntentOptional Attributes Name
class(cable_netcdf_nf90_file_t), intent(inout) :: this
character(len=*), intent(in) :: var_name
real(kind=CABLE_NETCDF_REAL64_KIND), intent(out) :: values(:,:,:)
class(cable_netcdf_decomp_t), intent(inout) :: decomp
integer, intent(in), optional :: frame