!
! This work (Common Community Physics Package), identified by NOAA, NCAR,
! CU/CIRES, is free of known copyright restrictions and is placed in the
! public domain.
!
! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
! THE AUTHORS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
! IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
! CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
!
!>
!! @brief Physics fields module.
!!
!! Routines and functions to interact with physics fields.
!! Most of the work is carried out in C (ccpp_field_idx.c).
!! The IPD contains an array of C pointers to all the
!! fields passed around. This array needs an index so
!! one can field the requested field.
!!
!! Example usage in the atmosphere driver cap.
!! @code{.f90}
!!
!! ! Add a field, for example the eastward_wind.
!! call ccpp_field_add(ipd_data, 'eastward_wind', &
!! u, ierr, 'm s-1')
!! if (ierr /= 0) then
!! call exit(ierr)
!! end if
!!
!! @endcode
!!
!! Example usage in a physics scheme cap.
!! @code{.f90}
!!
!! ! Extract a field, for example the eastward_wind.
!! call ccpp_field_get(ipd_data, 'eastward_wind', u, ierr)
!! if (ierr /= 0) then
!! call exit(ierr)
!! end if
!!
!! @endcode
!
module ccpp_fields
use, intrinsic :: iso_fortran_env, &
only: INT8, INT16, INT32, INT64, &
REAL32, REAL64, REAL128
use, intrinsic :: iso_c_binding, &
only: c_f_pointer, c_loc, c_ptr, c_int32_t, c_char
use :: ccpp_types, &
only: ccpp_t, ccpp_field_t, CCPP_GENERIC_KIND
use :: ccpp_strings, &
only: ccpp_cstr
use :: ccpp_errors, &
only: ccpp_debug, ccpp_info, ccpp_warn, ccpp_error
implicit none
private
public :: ccpp_fields_init, &
ccpp_fields_finalize, &
ccpp_fields_find, &
ccpp_field_add, &
ccpp_field_get
! DH* TODO can use new Fortran syntax?
! type(*), dimension(..), intent(in) :: a
! for arrays of any type, any rank? *DH
!>
!! Module precedence for adding a field.
!
interface ccpp_field_add
module procedure &
ccpp_field_add_i32_0, &
ccpp_field_add_i32_1, &
ccpp_field_add_i32_2, &
ccpp_field_add_i32_3, &
ccpp_field_add_i32_4, &
ccpp_field_add_i32_5, &
ccpp_field_add_i32_6, &
ccpp_field_add_i32_7, &
ccpp_field_add_i64_0, &
ccpp_field_add_i64_1, &
ccpp_field_add_i64_2, &
ccpp_field_add_i64_3, &
ccpp_field_add_i64_4, &
ccpp_field_add_i64_5, &
ccpp_field_add_i64_6, &
ccpp_field_add_i64_7, &
ccpp_field_add_r32_0, &
ccpp_field_add_r32_1, &
ccpp_field_add_r32_2, &
ccpp_field_add_r32_3, &
ccpp_field_add_r32_4, &
ccpp_field_add_r32_5, &
ccpp_field_add_r32_6, &
ccpp_field_add_r32_7, &
ccpp_field_add_r64_0, &
ccpp_field_add_r64_1, &
ccpp_field_add_r64_2, &
ccpp_field_add_r64_3, &
ccpp_field_add_r64_4, &
ccpp_field_add_r64_5, &
ccpp_field_add_r64_6, &
ccpp_field_add_r64_7, &
ccpp_field_add_l_0, &
ccpp_field_add_l_1, &
ccpp_field_add_l_2, &
ccpp_field_add_l_3, &
ccpp_field_add_l_4, &
ccpp_field_add_l_5, &
ccpp_field_add_l_6, &
ccpp_field_add_l_7, &
ccpp_field_add_c_0, &
ccpp_field_add_c_1, &
ccpp_field_add_ptr
end interface ccpp_field_add
!>
!! Module precedence for getting a field.
!
interface ccpp_field_get
module procedure &
ccpp_field_get_i32_0, &
ccpp_field_get_i32_1, &
ccpp_field_get_i32_2, &
ccpp_field_get_i32_3, &
ccpp_field_get_i32_4, &
ccpp_field_get_i32_5, &
ccpp_field_get_i32_6, &
ccpp_field_get_i32_7, &
ccpp_field_get_i64_0, &
ccpp_field_get_i64_1, &
ccpp_field_get_i64_2, &
ccpp_field_get_i64_3, &
ccpp_field_get_i64_4, &
ccpp_field_get_i64_5, &
ccpp_field_get_i64_6, &
ccpp_field_get_i64_7, &
ccpp_field_get_r32_0, &
ccpp_field_get_r32_1, &
ccpp_field_get_r32_2, &
ccpp_field_get_r32_3, &
ccpp_field_get_r32_4, &
ccpp_field_get_r32_5, &
ccpp_field_get_r32_6, &
ccpp_field_get_r32_7, &
ccpp_field_get_r64_0, &
ccpp_field_get_r64_1, &
ccpp_field_get_r64_2, &
ccpp_field_get_r64_3, &
ccpp_field_get_r64_4, &
ccpp_field_get_r64_5, &
ccpp_field_get_r64_6, &
ccpp_field_get_r64_7, &
ccpp_field_get_l_0, &
ccpp_field_get_l_1, &
ccpp_field_get_l_2, &
ccpp_field_get_l_3, &
ccpp_field_get_l_4, &
ccpp_field_get_l_5, &
ccpp_field_get_l_6, &
ccpp_field_get_l_7, &
ccpp_field_get_c_0, &
ccpp_field_get_c_1, &
ccpp_field_get_ptr
end interface ccpp_field_get
!>
!! Interface to all the C field index functions.
!
interface
integer(c_int32_t) &
function ccpp_field_idx_init &
(idx) &
bind(c, name='ccpp_field_idx_init')
import :: c_int32_t, c_ptr
type(c_ptr) :: idx
end function ccpp_field_idx_init
integer(c_int32_t) &
function ccpp_field_idx_finalize &
(idx) &
bind(c, name='ccpp_field_idx_finalize')
import :: c_int32_t, c_ptr
type(c_ptr) :: idx
end function ccpp_field_idx_finalize
integer(c_int32_t) &
function ccpp_field_idx_add &
(name, idx) &
bind(c, name='ccpp_field_idx_add')
import :: c_int32_t, c_char, c_ptr
character(kind=c_char), dimension(*) :: name
type(c_ptr) :: idx
end function ccpp_field_idx_add
integer(c_int32_t) &
function ccpp_field_idx_find &
(name, idx) &
bind(c, name='ccpp_field_idx_find')
import :: c_char, c_int32_t, c_ptr
character(kind=c_char), dimension(*) :: name
type(c_ptr) :: idx
end function ccpp_field_idx_find
integer(c_int32_t) &
function ccpp_field_idx_max &
(idx) &
bind(c, name='ccpp_field_idx_max')
import :: c_int32_t, c_ptr
type(c_ptr) :: idx
end function ccpp_field_idx_max
end interface
contains
!>
!! CCPP fields initialization subroutine.
!!
!! @param[in,out] cdata The ccpp_t type data.
!! @param[ out] ierr Integer error flag.
!
subroutine ccpp_fields_init(cdata, ierr)
type(ccpp_t), target, intent(inout) :: cdata
integer, intent( out) :: ierr
integer :: fields_max
ierr = 0
ierr = ccpp_field_idx_init(cdata%fields_idx)
if (ierr /= 0) then
call ccpp_warn('Unable to initalize cdata field index')
return
end if
fields_max = ccpp_field_idx_max(cdata%fields_idx)
allocate(cdata%fields(fields_max), stat=ierr)
if (ierr /= 0) then
call ccpp_warn('Unable to allocate cdata fields')
return
end if
! Add CCPP-internal fields to data structure, harcoded
end subroutine ccpp_fields_init
!>
!! CCPP fields finalization subroutine.
!!
!! @param[in,out] cdata The ccpp_t type data.
!! @param[ out] ierr Integer error flag.
!
subroutine ccpp_fields_finalize(cdata, ierr)
type(ccpp_t), intent(inout) :: cdata
integer, intent( out) :: ierr
ierr = 0
if (allocated(cdata%fields)) then
deallocate(cdata%fields)
end if
ierr = ccpp_field_idx_finalize(cdata%fields_idx)
if (ierr /= 0) then
call ccpp_warn('Unable to clean up cdata field index')
return
end if
end subroutine ccpp_fields_finalize
!>
!! CCPP fields addition subroutine.
!!
!! @param[in,out] cdata The ccpp_t type data.
!! @param[in ] standard_name The standard name for the data.
!! @param[in ] units The SI units for the data.
!! @param[in ] ptr A C pointer to the data.
!! @param[in ] rank Optional rank of the data.
!! @param[in ] dims Optional dimensions of the data.
!! @param[ out] ierr Integer error flag.
!
subroutine ccpp_field_add_ptr(cdata, standard_name, units, ptr, &
rank, dims, kind, index, ierr)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
character(len=*), intent(in) :: units
type(c_ptr), intent(in) :: ptr
integer, optional, intent(in) :: rank
integer, dimension(:), optional, intent(in) :: dims
integer, optional, intent(in) :: kind
integer, optional, intent(in) :: index
integer, optional, intent( out) :: ierr
integer :: i
integer :: ierr_local
integer :: old_fields_max
integer :: new_fields_max
type(ccpp_field_t), allocatable, dimension(:) :: tmp
call ccpp_debug('Called ccpp_field_add_ptr for field ' // trim(standard_name))
ierr_local = 0
! Get the current/old fields max
old_fields_max = ccpp_field_idx_max(cdata%fields_idx)
! Add ourselves to the index and get our array position
i = ccpp_field_idx_add(ccpp_cstr(standard_name), cdata%fields_idx)
if (i .lt. 1) then
call ccpp_warn('Unable to add field index: '//trim(standard_name))
return
end if
! If optional index is specified, make sure it matches the return value
! from ccpp_field_idx_add; if not, issue warning but allow to proceed
if (present(index)) then
if (index/=i) then
call ccpp_warn('Supplied index for adding variable ' // trim(standard_name) // &
' does not match return value from ccpp_field_idx_add')
end if
end if
! Get the new fields max
new_fields_max = ccpp_field_idx_max(cdata%fields_idx)
if (old_fields_max .lt. new_fields_max) then
allocate(tmp(new_fields_max), stat=ierr_local)
if (ierr_local /= 0) then
call ccpp_warn('Unable to grow cdata fields array')
if (present(ierr)) ierr=ierr_local
return
end if
tmp(1:size(cdata%fields)) = cdata%fields
call move_alloc(tmp, cdata%fields)
end if
cdata%fields(i)%standard_name = standard_name
cdata%fields(i)%units = units
cdata%fields(i)%ptr = ptr
if (present(rank)) then
cdata%fields(i)%rank = rank
else
cdata%fields(i)%rank = 0
end if
if (present(dims)) then
allocate(cdata%fields(i)%dims(rank), stat=ierr_local)
if (ierr_local /= 0) then
call ccpp_warn('Unable to allocate cdata fields dims')
if (present(ierr)) ierr=ierr_local
return
end if
cdata%fields(i)%dims = dims
end if
if (present(kind)) then
cdata%fields(i)%kind = kind
else
cdata%fields(i)%kind = CCPP_GENERIC_KIND
end if
if (present(ierr)) ierr=ierr_local
end subroutine ccpp_field_add_ptr
!>
!! CCPP fields retrieval subroutine.
!!
!! @param[in,out] cdata The ccpp_t type data.
!! @param[in ] standard_name The standard name for the data.
!! @param[ out] ptr A C pointer to the data.
!! @param[ out] ierr Integer error flag.
!! @param[ out] units Optional the SI units for the data.
!! @param[ out] rank Optional rank of the data.
!! @param[ out] dims Optional dimensions of the data.
!
subroutine ccpp_field_get_ptr(cdata, standard_name, ptr, ierr, &
units, rank, dims, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
type(c_ptr), intent( out) :: ptr
integer, optional, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, allocatable, optional, intent( out) :: dims(:)
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
integer :: ierr_local
call ccpp_debug('Called ccpp_field_get_ptr for field ' // trim(standard_name))
ierr_local = 0
if (present(index)) then
if (index<=size(cdata%fields)) then
if (trim(standard_name)==trim(cdata%fields(index)%standard_name)) then
idx = index
call ccpp_debug('Found requested field ' // trim(standard_name) // ' at supplied index')
else
idx = ccpp_fields_find(cdata, standard_name, ierr_local)
call ccpp_warn('Could not find requested field ' // trim(standard_name) // &
' at supplied index, falling back to standard search')
end if
else
idx = ccpp_fields_find(cdata, standard_name, ierr_local)
call ccpp_warn('Supplied index for requested field ' // trim(standard_name) // &
' out of range, falling back to standard search')
end if
else
! Lookup the standard name in the index
idx = ccpp_fields_find(cdata, standard_name, ierr_local)
call ccpp_info('No index supplied for requested field ' // trim(standard_name) // ', falling back to standard search')
end if
if (ierr_local /= 0) then
call ccpp_warn('Unable to find requested field ' // trim(standard_name))
if (present(ierr)) ierr=ierr_local
return
end if
ptr = cdata%fields(idx)%ptr
if (present(units)) then
units = cdata%fields(idx)%units
end if
if (present(rank)) then
rank = cdata%fields(idx)%rank
end if
if (present(dims)) then
if (allocated(dims)) then
deallocate(dims)
end if
allocate(dims(cdata%fields(idx)%rank), stat=ierr_local)
if (ierr_local /= 0) then
call ccpp_warn('Unable to allocate cdata fields dims')
if (present(ierr)) ierr=ierr_local
return
end if
dims = cdata%fields(idx)%dims
end if
if (present(kind)) then
kind = cdata%fields(idx)%kind
end if
if (present(ierr)) ierr=ierr_local
end subroutine ccpp_field_get_ptr
!>
!! CCPP find a fields location/array index by standard name.
!!
!! @param[in,out] cdata The ccpp_t type data.
!! @param[in ] standard_name The standard name for the data.
!! @param[ out] ierr Integer error flag.
!
function ccpp_fields_find(cdata, standard_name, ierr) result(location)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
integer, intent( out) :: ierr
integer :: location
location = ccpp_field_idx_find(ccpp_cstr(standard_name), &
cdata%fields_idx)
if (location <= 0) then
ierr = 1
end if
end function ccpp_fields_find
! TODO: Subroutine to iterate over all fields.
!------------------------------------------------------------------!
!>
!! Single precision (32-bit) integer field addition subroutines.
!
!------------------------------------------------------------------!
subroutine ccpp_field_add_i32_0(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
integer(kind=INT32), target, intent(in) :: ptr
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_i32_0
subroutine ccpp_field_add_i32_1(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
integer(kind=INT32), target, intent(in) :: ptr(:)
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), size(shape(ptr)), shape(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_i32_1
subroutine ccpp_field_add_i32_2(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
integer(kind=INT32), target, intent(in) :: ptr(:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), size(shape(ptr)), shape(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_i32_2
subroutine ccpp_field_add_i32_3(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
integer(kind=INT32), target, intent(in) :: ptr(:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), size(shape(ptr)), shape(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_i32_3
subroutine ccpp_field_add_i32_4(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
integer(kind=INT32), target, intent(in) :: ptr(:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), size(shape(ptr)), shape(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_i32_4
subroutine ccpp_field_add_i32_5(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
integer(kind=INT32), target, intent(in) :: ptr(:,:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), size(shape(ptr)), shape(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_i32_5
subroutine ccpp_field_add_i32_6(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
integer(kind=INT32), target, intent(in) :: ptr(:,:,:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), size(shape(ptr)), shape(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_i32_6
subroutine ccpp_field_add_i32_7(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
integer(kind=INT32), target, intent(in) :: ptr(:,:,:,:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), size(shape(ptr)), shape(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_i32_7
!------------------------------------------------------------------!
!>
!! Double precision (64-bit) integer field addition subroutines.
!
!------------------------------------------------------------------!
subroutine ccpp_field_add_i64_0(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
integer(kind=INT64), target, intent(in) :: ptr
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_i64_0
subroutine ccpp_field_add_i64_1(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
integer(kind=INT64), target, intent(in) :: ptr(:)
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), size(shape(ptr)), shape(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_i64_1
subroutine ccpp_field_add_i64_2(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
integer(kind=INT64), target, intent(in) :: ptr(:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), size(shape(ptr)), shape(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_i64_2
subroutine ccpp_field_add_i64_3(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
integer(kind=INT64), target, intent(in) :: ptr(:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), size(shape(ptr)), shape(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_i64_3
subroutine ccpp_field_add_i64_4(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
integer(kind=INT64), target, intent(in) :: ptr(:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), size(shape(ptr)), shape(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_i64_4
subroutine ccpp_field_add_i64_5(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
integer(kind=INT64), target, intent(in) :: ptr(:,:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), size(shape(ptr)), shape(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_i64_5
subroutine ccpp_field_add_i64_6(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
integer(kind=INT64), target, intent(in) :: ptr(:,:,:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), size(shape(ptr)), shape(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_i64_6
subroutine ccpp_field_add_i64_7(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
integer(kind=INT64), target, intent(in) :: ptr(:,:,:,:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), size(shape(ptr)), shape(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_i64_7
!------------------------------------------------------------------!
!>
!! Single precision (32-bit) real field addition subroutines.
!
!------------------------------------------------------------------!
subroutine ccpp_field_add_r32_0(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
real(kind=REAL32), target, intent(in) :: ptr
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_r32_0
subroutine ccpp_field_add_r32_1(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
real(kind=REAL32), target, intent(in) :: ptr(:)
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), size(shape(ptr)), shape(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_r32_1
subroutine ccpp_field_add_r32_2(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
real(kind=REAL32), target, intent(in) :: ptr(:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), size(shape(ptr)), shape(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_r32_2
subroutine ccpp_field_add_r32_3(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
real(kind=REAL32), target, intent(in) :: ptr(:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), size(shape(ptr)), shape(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_r32_3
subroutine ccpp_field_add_r32_4(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
real(kind=REAL32), target, intent(in) :: ptr(:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), size(shape(ptr)), shape(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_r32_4
subroutine ccpp_field_add_r32_5(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
real(kind=REAL32), target, intent(in) :: ptr(:,:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), size(shape(ptr)), shape(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_r32_5
subroutine ccpp_field_add_r32_6(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
real(kind=REAL32), target, intent(in) :: ptr(:,:,:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), size(shape(ptr)), shape(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_r32_6
subroutine ccpp_field_add_r32_7(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
real(kind=REAL32), target, intent(in) :: ptr(:,:,:,:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), size(shape(ptr)), shape(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_r32_7
!------------------------------------------------------------------!
!>
!! Double precision (64-bit) real field addition subroutines.
!
!------------------------------------------------------------------!
subroutine ccpp_field_add_r64_0(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
real(kind=REAL64), target, intent(in) :: ptr
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_r64_0
subroutine ccpp_field_add_r64_1(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
real(kind=REAL64), target, intent(in) :: ptr(:)
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), size(shape(ptr)), shape(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_r64_1
subroutine ccpp_field_add_r64_2(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
real(kind=REAL64), target, intent(in) :: ptr(:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), size(shape(ptr)), shape(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_r64_2
subroutine ccpp_field_add_r64_3(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
real(kind=REAL64), target, intent(in) :: ptr(:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), size(shape(ptr)), shape(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_r64_3
subroutine ccpp_field_add_r64_4(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
real(kind=REAL64), target, intent(in) :: ptr(:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), size(shape(ptr)), shape(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_r64_4
subroutine ccpp_field_add_r64_5(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
real(kind=REAL64), target, intent(in) :: ptr(:,:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), size(shape(ptr)), shape(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_r64_5
subroutine ccpp_field_add_r64_6(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
real(kind=REAL64), target, intent(in) :: ptr(:,:,:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), size(shape(ptr)), shape(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_r64_6
subroutine ccpp_field_add_r64_7(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
real(kind=REAL64), target, intent(in) :: ptr(:,:,:,:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), size(shape(ptr)), shape(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_r64_7
!------------------------------------------------------------------!
!>
!! Logical field addition subroutines.
!
!------------------------------------------------------------------!
subroutine ccpp_field_add_l_0(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
logical, target, intent(in) :: ptr
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_l_0
subroutine ccpp_field_add_l_1(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
logical, target, intent(in) :: ptr(:)
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), size(shape(ptr)), shape(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_l_1
subroutine ccpp_field_add_l_2(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
logical, target, intent(in) :: ptr(:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), size(shape(ptr)), shape(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_l_2
subroutine ccpp_field_add_l_3(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
logical, target, intent(in) :: ptr(:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), size(shape(ptr)), shape(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_l_3
subroutine ccpp_field_add_l_4(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
logical, target, intent(in) :: ptr(:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), size(shape(ptr)), shape(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_l_4
subroutine ccpp_field_add_l_5(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
logical, target, intent(in) :: ptr(:,:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), size(shape(ptr)), shape(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_l_5
subroutine ccpp_field_add_l_6(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
logical, target, intent(in) :: ptr(:,:,:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), size(shape(ptr)), shape(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_l_6
subroutine ccpp_field_add_l_7(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
logical, target, intent(in) :: ptr(:,:,:,:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), size(shape(ptr)), shape(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_l_7
!------------------------------------------------------------------!
!>
!! Character field addition subroutines.
!
!------------------------------------------------------------------!
subroutine ccpp_field_add_c_0(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
character(len=*), target, intent(in) :: ptr
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_c_0
subroutine ccpp_field_add_c_1(cdata, standard_name, ptr, ierr, units, index)
type(ccpp_t), intent(inout) :: cdata
character(len=*), intent(in) :: standard_name
character(len=*), target, intent(in) :: ptr(:)
integer, intent( out) :: ierr
character(len=*), optional, intent(in) :: units
integer, optional, intent(in) :: index
ierr = 0
call ccpp_field_add_ptr(cdata, standard_name, units, &
c_loc(ptr), size(shape(ptr)), shape(ptr), kind=kind(ptr), index=index, ierr=ierr)
end subroutine ccpp_field_add_c_1
!------------------------------------------------------------------!
!>
!! Single precision (32-bit) integer field retrieval subroutines.
!
!------------------------------------------------------------------!
subroutine ccpp_field_get_i32_0(cdata, standard_name, ptr, ierr, units, rank, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
integer(kind=INT32), pointer, intent( out) :: ptr
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr)
end subroutine ccpp_field_get_i32_0
subroutine ccpp_field_get_i32_1(cdata, standard_name, ptr, ierr, units, rank, dims, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
integer(kind=INT32), pointer, intent( out) :: ptr(:)
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, allocatable, optional, intent( out) :: dims(:)
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, dims=dims, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr, dims)
end subroutine ccpp_field_get_i32_1
subroutine ccpp_field_get_i32_2(cdata, standard_name, ptr, ierr, units, rank, dims, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
integer(kind=INT32), pointer, intent( out) :: ptr(:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, allocatable, optional, intent( out) :: dims(:)
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, dims=dims, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr, dims)
end subroutine ccpp_field_get_i32_2
subroutine ccpp_field_get_i32_3(cdata, standard_name, ptr, ierr, units, rank, dims, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
integer(kind=INT32), pointer, intent( out) :: ptr(:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, allocatable, optional, intent( out) :: dims(:)
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, dims=dims, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr, dims)
end subroutine ccpp_field_get_i32_3
subroutine ccpp_field_get_i32_4(cdata, standard_name, ptr, ierr, units, rank, dims, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
integer(kind=INT32), pointer, intent( out) :: ptr(:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, allocatable, optional, intent( out) :: dims(:)
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, dims=dims, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr, dims)
end subroutine ccpp_field_get_i32_4
subroutine ccpp_field_get_i32_5(cdata, standard_name, ptr, ierr, units, rank, dims, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
integer(kind=INT32), pointer, intent( out) :: ptr(:,:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, allocatable, optional, intent( out) :: dims(:)
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, dims=dims, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr, dims)
end subroutine ccpp_field_get_i32_5
subroutine ccpp_field_get_i32_6(cdata, standard_name, ptr, ierr, units, rank, dims, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
integer(kind=INT32), pointer, intent( out) :: ptr(:,:,:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, allocatable, optional, intent( out) :: dims(:)
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, dims=dims, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr, dims)
end subroutine ccpp_field_get_i32_6
subroutine ccpp_field_get_i32_7(cdata, standard_name, ptr, ierr, units, rank, dims, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
integer(kind=INT32), pointer, intent( out) :: ptr(:,:,:,:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, allocatable, optional, intent( out) :: dims(:)
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, dims=dims, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr, dims)
end subroutine ccpp_field_get_i32_7
!------------------------------------------------------------------!
!>
!! Double precision (64-bit) integer field retrieval subroutines.
!
!------------------------------------------------------------------!
subroutine ccpp_field_get_i64_0(cdata, standard_name, ptr, ierr, units, rank, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
integer(kind=INT64), pointer, intent( out) :: ptr
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr)
end subroutine ccpp_field_get_i64_0
subroutine ccpp_field_get_i64_1(cdata, standard_name, ptr, ierr, units, rank, dims, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
integer(kind=INT64), pointer, intent( out) :: ptr(:)
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, allocatable, optional, intent( out) :: dims(:)
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, dims=dims, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr, dims)
end subroutine ccpp_field_get_i64_1
subroutine ccpp_field_get_i64_2(cdata, standard_name, ptr, ierr, units, rank, dims, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
integer(kind=INT64), pointer, intent( out) :: ptr(:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, allocatable, optional, intent( out) :: dims(:)
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, dims=dims, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr, dims)
end subroutine ccpp_field_get_i64_2
subroutine ccpp_field_get_i64_3(cdata, standard_name, ptr, ierr, units, rank, dims, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
integer(kind=INT64), pointer, intent( out) :: ptr(:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, allocatable, optional, intent( out) :: dims(:)
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, dims=dims, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr, dims)
end subroutine ccpp_field_get_i64_3
subroutine ccpp_field_get_i64_4(cdata, standard_name, ptr, ierr, units, rank, dims, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
integer(kind=INT64), pointer, intent( out) :: ptr(:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, allocatable, optional, intent( out) :: dims(:)
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, dims=dims, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr, dims)
end subroutine ccpp_field_get_i64_4
subroutine ccpp_field_get_i64_5(cdata, standard_name, ptr, ierr, units, rank, dims, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
integer(kind=INT64), pointer, intent( out) :: ptr(:,:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, allocatable, optional, intent( out) :: dims(:)
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, dims=dims, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr, dims)
end subroutine ccpp_field_get_i64_5
subroutine ccpp_field_get_i64_6(cdata, standard_name, ptr, ierr, units, rank, dims, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
integer(kind=INT64), pointer, intent( out) :: ptr(:,:,:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, allocatable, optional, intent( out) :: dims(:)
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, dims=dims, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr, dims)
end subroutine ccpp_field_get_i64_6
subroutine ccpp_field_get_i64_7(cdata, standard_name, ptr, ierr, units, rank, dims, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
integer(kind=INT64), pointer, intent( out) :: ptr(:,:,:,:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, allocatable, optional, intent( out) :: dims(:)
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, dims=dims, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr, dims)
end subroutine ccpp_field_get_i64_7
!------------------------------------------------------------------!
!>
!! Single precision (32-bit) real field retrieval subroutines.
!
!------------------------------------------------------------------!
subroutine ccpp_field_get_r32_0(cdata, standard_name, ptr, ierr, units, rank, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
real(kind=REAL32), pointer, intent( out) :: ptr
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr)
end subroutine ccpp_field_get_r32_0
subroutine ccpp_field_get_r32_1(cdata, standard_name, ptr, ierr, units, rank, dims, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
real(kind=REAL32), pointer, intent( out) :: ptr(:)
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, allocatable, optional, intent( out) :: dims(:)
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, dims=dims, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr, dims)
end subroutine ccpp_field_get_r32_1
subroutine ccpp_field_get_r32_2(cdata, standard_name, ptr, ierr, units, rank, dims, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
real(kind=REAL32), pointer, intent( out) :: ptr(:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, allocatable, optional, intent( out) :: dims(:)
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, dims=dims, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr, dims)
end subroutine ccpp_field_get_r32_2
subroutine ccpp_field_get_r32_3(cdata, standard_name, ptr, ierr, units, rank, dims, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
real(kind=REAL32), pointer, intent( out) :: ptr(:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, allocatable, optional, intent( out) :: dims(:)
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, dims=dims, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr, dims)
end subroutine ccpp_field_get_r32_3
subroutine ccpp_field_get_r32_4(cdata, standard_name, ptr, ierr, units, rank, dims, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
real(kind=REAL32), pointer, intent( out) :: ptr(:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, allocatable, optional, intent( out) :: dims(:)
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, dims=dims, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr, dims)
end subroutine ccpp_field_get_r32_4
subroutine ccpp_field_get_r32_5(cdata, standard_name, ptr, ierr, units, rank, dims, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
real(kind=REAL32), pointer, intent( out) :: ptr(:,:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, allocatable, optional, intent( out) :: dims(:)
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, dims=dims, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr, dims)
end subroutine ccpp_field_get_r32_5
subroutine ccpp_field_get_r32_6(cdata, standard_name, ptr, ierr, units, rank, dims, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
real(kind=REAL32), pointer, intent( out) :: ptr(:,:,:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, allocatable, optional, intent( out) :: dims(:)
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, dims=dims, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr, dims)
end subroutine ccpp_field_get_r32_6
subroutine ccpp_field_get_r32_7(cdata, standard_name, ptr, ierr, units, rank, dims, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
real(kind=REAL32), pointer, intent( out) :: ptr(:,:,:,:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, allocatable, optional, intent( out) :: dims(:)
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, dims=dims, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr, dims)
end subroutine ccpp_field_get_r32_7
!------------------------------------------------------------------!
!>
!! Double precision (64-bit) real field retrieval subroutines.
!
!------------------------------------------------------------------!
subroutine ccpp_field_get_r64_0(cdata, standard_name, ptr, ierr, units, rank, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
real(kind=REAL64), pointer, intent( out) :: ptr
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr)
end subroutine ccpp_field_get_r64_0
subroutine ccpp_field_get_r64_1(cdata, standard_name, ptr, ierr, units, rank, dims, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
real(kind=REAL64), pointer, intent( out) :: ptr(:)
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, allocatable, optional, intent( out) :: dims(:)
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, dims=dims, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr, dims)
end subroutine ccpp_field_get_r64_1
subroutine ccpp_field_get_r64_2(cdata, standard_name, ptr, ierr, units, rank, dims, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
real(kind=REAL64), pointer, intent( out) :: ptr(:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, allocatable, optional, intent( out) :: dims(:)
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, dims=dims, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr, dims)
end subroutine ccpp_field_get_r64_2
subroutine ccpp_field_get_r64_3(cdata, standard_name, ptr, ierr, units, rank, dims, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
real(kind=REAL64), pointer, intent( out) :: ptr(:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, allocatable, optional, intent( out) :: dims(:)
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, dims=dims, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr, dims)
end subroutine ccpp_field_get_r64_3
subroutine ccpp_field_get_r64_4(cdata, standard_name, ptr, ierr, units, rank, dims, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
real(kind=REAL64), pointer, intent( out) :: ptr(:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, allocatable, optional, intent( out) :: dims(:)
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, dims=dims, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr, dims)
end subroutine ccpp_field_get_r64_4
subroutine ccpp_field_get_r64_5(cdata, standard_name, ptr, ierr, units, rank, dims, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
real(kind=REAL64), pointer, intent( out) :: ptr(:,:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, allocatable, optional, intent( out) :: dims(:)
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, dims=dims, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr, dims)
end subroutine ccpp_field_get_r64_5
subroutine ccpp_field_get_r64_6(cdata, standard_name, ptr, ierr, units, rank, dims, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
real(kind=REAL64), pointer, intent( out) :: ptr(:,:,:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, allocatable, optional, intent( out) :: dims(:)
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, dims=dims, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr, dims)
end subroutine ccpp_field_get_r64_6
subroutine ccpp_field_get_r64_7(cdata, standard_name, ptr, ierr, units, rank, dims, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
real(kind=REAL64), pointer, intent( out) :: ptr(:,:,:,:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, allocatable, optional, intent( out) :: dims(:)
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, dims=dims, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr, dims)
end subroutine ccpp_field_get_r64_7
!------------------------------------------------------------------!
!>
!! Logical field retrieval subroutines.
!
!------------------------------------------------------------------!
subroutine ccpp_field_get_l_0(cdata, standard_name, ptr, ierr, units, rank, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
logical, pointer, intent( out) :: ptr
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr)
end subroutine ccpp_field_get_l_0
subroutine ccpp_field_get_l_1(cdata, standard_name, ptr, ierr, units, rank, dims, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
logical, pointer, intent( out) :: ptr(:)
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, allocatable, optional, intent( out) :: dims(:)
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, dims=dims, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr, dims)
end subroutine ccpp_field_get_l_1
subroutine ccpp_field_get_l_2(cdata, standard_name, ptr, ierr, units, rank, dims, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
logical, pointer, intent( out) :: ptr(:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, allocatable, optional, intent( out) :: dims(:)
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, dims=dims, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr, dims)
end subroutine ccpp_field_get_l_2
subroutine ccpp_field_get_l_3(cdata, standard_name, ptr, ierr, units, rank, dims, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
logical, pointer, intent( out) :: ptr(:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, allocatable, optional, intent( out) :: dims(:)
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, dims=dims, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr, dims)
end subroutine ccpp_field_get_l_3
subroutine ccpp_field_get_l_4(cdata, standard_name, ptr, ierr, units, rank, dims, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
logical, pointer, intent( out) :: ptr(:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, allocatable, optional, intent( out) :: dims(:)
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, dims=dims, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr, dims)
end subroutine ccpp_field_get_l_4
subroutine ccpp_field_get_l_5(cdata, standard_name, ptr, ierr, units, rank, dims, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
logical, pointer, intent( out) :: ptr(:,:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, allocatable, optional, intent( out) :: dims(:)
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, dims=dims, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr, dims)
end subroutine ccpp_field_get_l_5
subroutine ccpp_field_get_l_6(cdata, standard_name, ptr, ierr, units, rank, dims, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
logical, pointer, intent( out) :: ptr(:,:,:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, allocatable, optional, intent( out) :: dims(:)
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, dims=dims, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr, dims)
end subroutine ccpp_field_get_l_6
subroutine ccpp_field_get_l_7(cdata, standard_name, ptr, ierr, units, rank, dims, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
logical, pointer, intent( out) :: ptr(:,:,:,:,:,:,:)
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, allocatable, optional, intent( out) :: dims(:)
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, dims=dims, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr, dims)
end subroutine ccpp_field_get_l_7
!------------------------------------------------------------------!
!>
!! Character field retrieval subroutines.
!
!------------------------------------------------------------------!
subroutine ccpp_field_get_c_0(cdata, standard_name, ptr, ierr, units, rank, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
character(len=*), pointer, intent( out) :: ptr
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr)
end subroutine ccpp_field_get_c_0
subroutine ccpp_field_get_c_1(cdata, standard_name, ptr, ierr, units, rank, dims, kind, index)
type(ccpp_t), intent(in) :: cdata
character(len=*), intent(in) :: standard_name
character(len=*), pointer, intent( out) :: ptr(:)
integer, intent( out) :: ierr
character(len=*), optional, intent( out) :: units
integer, optional, intent( out) :: rank
integer, allocatable, optional, intent( out) :: dims(:)
integer, optional, intent( out) :: kind
integer, optional, intent(in) :: index
integer :: idx
type(c_ptr) :: cptr
ierr = 0
call ccpp_field_get_ptr(cdata, standard_name, cptr, ierr=ierr, &
units=units, rank=rank, dims=dims, kind=kind, index=index)
if (ierr /=0) return
call c_f_pointer(cptr, ptr, dims)
end subroutine ccpp_field_get_c_1
!------------------------------------------------------------------!
end module ccpp_fields