physics_buffer.F90 File Reference

#include "dtypes.h"

Data Types
type	physics_buffer::physics_buffer_hdr
type	physics_buffer::physics_buffer_desc
interface	physics_buffer::pbuf_get_field
interface	physics_buffer::pbuf_get_field_restart
interface	physics_buffer::pbuf_set_field
interface	physics_buffer::pbuf_add_field

Modules
module	physics_buffer

Functions/Subroutines
subroutine, public	physics_buffer::pbuf_defaultopts (pbuf_global_allocate_out)
subroutine, public	physics_buffer::pbuf_setopts (pbuf_global_allocate_in)
subroutine, public	physics_buffer::pbuf_init_time ()
integer function, public	physics_buffer::pbuf_old_tim_idx ()
subroutine, public	physics_buffer::pbuf_update_tim_idx ()
subroutine, public	physics_buffer::pbuf_col_type_index (use_subcol, col_type)
character(len=16) function, public	physics_buffer::pbuf_get_field_name (index)
type(physics_buffer_desc) function, dimension(:), pointer, public	physics_buffer::pbuf_get_chunk (pbuf2d, lchnk)
logical function	physics_buffer::pbuf_field_has_gridcols (pbuf, index)
logical function	physics_buffer::pbuf_field_has_subcols (pbuf, index)
logical function	physics_buffer::pbuf_field_has_col_type (pbuf, index, col_type)
subroutine, public	physics_buffer::pbuf_initialize (pbuf2d)
subroutine, public	physics_buffer::pbuf_allocate (pbuf2d, persistence)
subroutine	physics_buffer::pbuf_allocate_field_int (pbuf2d, index, dtype)
subroutine	physics_buffer::pbuf_allocate_field_double (pbuf2d, index, dtype)
subroutine	physics_buffer::pbuf_allocate_field_real (pbuf2d, index, dtype)
pure logical function	physics_buffer::pbuf_do_deallocate (hdr, persistence, col_type)
subroutine, public	physics_buffer::pbuf_deallocate (pbuf2d, persistence)
subroutine	physics_buffer::find_pbuf_header (name, index, bufptr)
subroutine	physics_buffer::pbuf_register_field_int (name, pname, index, persistence, dtype, dimsizes, col_type, pbuf_add)
subroutine	physics_buffer::pbuf_add_field_int (name, persistence, dtype, dimsizes, index, col_type)
subroutine	physics_buffer::pbuf_add_field_double (name, persistence, dtype, dimsizes, index, col_type)
subroutine	physics_buffer::pbuf_add_field_real (name, persistence, dtype, dimsizes, index, col_type)
subroutine, public	physics_buffer::pbuf_register_subcol (name, pname, index)
subroutine	physics_buffer::pbuf2d_print (pbuf2d)
subroutine	physics_buffer::pbuf1d_print (pbuf)
integer function, public	physics_buffer::pbuf_get_index (name, errcode)
subroutine	physics_buffer::get_pbuf1d_field_by_index_1d_int (pbuf, index, field, start, kount, col_type, copy_if_needed, errcode)
subroutine	physics_buffer::get_pbuf1d_field_by_index_2d_int (pbuf, index, field, start, kount, col_type, copy_if_needed, errcode)
subroutine	physics_buffer::get_pbuf1d_field_by_index_3d_int (pbuf, index, field, start, kount, col_type, copy_if_needed, errcode)
subroutine	physics_buffer::get_pbuf1d_field_by_index_4d_int (pbuf, index, field, start, kount, col_type, copy_if_needed, errcode)
subroutine	physics_buffer::get_pbuf1d_field_by_index_5d_int (pbuf, index, field, start, kount, col_type, copy_if_needed, errcode)
subroutine	physics_buffer::get_pbuf1d_field_by_index_1d_double (pbuf, index, field, start, kount, col_type, copy_if_needed, errcode)
subroutine	physics_buffer::get_pbuf1d_field_by_index_2d_double (pbuf, index, field, start, kount, col_type, copy_if_needed, errcode)
subroutine	physics_buffer::get_pbuf1d_field_by_index_3d_double (pbuf, index, field, start, kount, col_type, copy_if_needed, errcode)
subroutine	physics_buffer::get_pbuf1d_field_by_index_4d_double (pbuf, index, field, start, kount, col_type, copy_if_needed, errcode)
subroutine	physics_buffer::get_pbuf1d_field_by_index_5d_double (pbuf, index, field, start, kount, col_type, copy_if_needed, errcode)
subroutine	physics_buffer::get_pbuf1d_field_by_index_1d_real (pbuf, index, field, start, kount, col_type, copy_if_needed, errcode)
subroutine	physics_buffer::get_pbuf1d_field_by_index_2d_real (pbuf, index, field, start, kount, col_type, copy_if_needed, errcode)
subroutine	physics_buffer::get_pbuf1d_field_by_index_3d_real (pbuf, index, field, start, kount, col_type, copy_if_needed, errcode)
subroutine	physics_buffer::get_pbuf1d_field_by_index_4d_real (pbuf, index, field, start, kount, col_type, copy_if_needed, errcode)
subroutine	physics_buffer::get_pbuf1d_field_by_index_5d_real (pbuf, index, field, start, kount, col_type, copy_if_needed, errcode)
subroutine	physics_buffer::get_pbuf2d_field_by_index_1d_int (pbuf2d, lchnk, index, field, start, kount, col_type, errcode)
subroutine	physics_buffer::get_pbuf2d_field_by_index_2d_int (pbuf2d, lchnk, index, field, start, kount, col_type, errcode)
subroutine	physics_buffer::get_pbuf2d_field_by_index_3d_int (pbuf2d, lchnk, index, field, start, kount, col_type, errcode)
subroutine	physics_buffer::get_pbuf2d_field_by_index_4d_int (pbuf2d, lchnk, index, field, start, kount, col_type, errcode)
subroutine	physics_buffer::get_pbuf2d_field_by_index_5d_int (pbuf2d, lchnk, index, field, start, kount, col_type, errcode)
subroutine	physics_buffer::get_pbuf2d_field_by_index_1d_double (pbuf2d, lchnk, index, field, start, kount, col_type, errcode)
subroutine	physics_buffer::get_pbuf2d_field_by_index_2d_double (pbuf2d, lchnk, index, field, start, kount, col_type, errcode)
subroutine	physics_buffer::get_pbuf2d_field_by_index_3d_double (pbuf2d, lchnk, index, field, start, kount, col_type, errcode)
subroutine	physics_buffer::get_pbuf2d_field_by_index_4d_double (pbuf2d, lchnk, index, field, start, kount, col_type, errcode)
subroutine	physics_buffer::get_pbuf2d_field_by_index_5d_double (pbuf2d, lchnk, index, field, start, kount, col_type, errcode)
subroutine	physics_buffer::get_pbuf2d_field_by_index_1d_real (pbuf2d, lchnk, index, field, start, kount, col_type, errcode)
subroutine	physics_buffer::get_pbuf2d_field_by_index_2d_real (pbuf2d, lchnk, index, field, start, kount, col_type, errcode)
subroutine	physics_buffer::get_pbuf2d_field_by_index_3d_real (pbuf2d, lchnk, index, field, start, kount, col_type, errcode)
subroutine	physics_buffer::get_pbuf2d_field_by_index_4d_real (pbuf2d, lchnk, index, field, start, kount, col_type, errcode)
subroutine	physics_buffer::get_pbuf2d_field_by_index_5d_real (pbuf2d, lchnk, index, field, start, kount, col_type, errcode)
subroutine	physics_buffer::get_pbuf2d_field_restart_int (pbuf2d, lchnk, index, field, mdimsize, col_type)
subroutine	physics_buffer::get_pbuf2d_field_restart_double (pbuf2d, lchnk, index, field, mdimsize, col_type)
subroutine	physics_buffer::get_pbuf2d_field_restart_real (pbuf2d, lchnk, index, field, mdimsize, col_type)
subroutine	physics_buffer::set_pbuf2d_field_const_by_index_int (pbuf2d, index, const, col_type)
subroutine	physics_buffer::set_pbuf2d_field_const_by_index_double (pbuf2d, index, const, col_type)
subroutine	physics_buffer::set_pbuf2d_field_const_by_index_real (pbuf2d, index, const, col_type)
subroutine	physics_buffer::set_pbuf1d_field_const_by_index_int (pbuf, index, const, start, kount, col_type)
subroutine	physics_buffer::set_pbuf1d_field_const_by_index_double (pbuf, index, const, start, kount, col_type)
subroutine	physics_buffer::set_pbuf1d_field_const_by_index_real (pbuf, index, const, start, kount, col_type)
subroutine	physics_buffer::set_pbuf2d_field_by_index_1d_int (pbuf2d, index, field, start, kount, col_type)
subroutine	physics_buffer::set_pbuf2d_field_by_index_2d_int (pbuf2d, index, field, start, kount, col_type)
subroutine	physics_buffer::set_pbuf2d_field_by_index_3d_int (pbuf2d, index, field, start, kount, col_type)
subroutine	physics_buffer::set_pbuf2d_field_by_index_4d_int (pbuf2d, index, field, start, kount, col_type)
subroutine	physics_buffer::set_pbuf2d_field_by_index_5d_int (pbuf2d, index, field, start, kount, col_type)
subroutine	physics_buffer::set_pbuf2d_field_by_index_1d_double (pbuf2d, index, field, start, kount, col_type)
subroutine	physics_buffer::set_pbuf2d_field_by_index_2d_double (pbuf2d, index, field, start, kount, col_type)
subroutine	physics_buffer::set_pbuf2d_field_by_index_3d_double (pbuf2d, index, field, start, kount, col_type)
subroutine	physics_buffer::set_pbuf2d_field_by_index_4d_double (pbuf2d, index, field, start, kount, col_type)
subroutine	physics_buffer::set_pbuf2d_field_by_index_5d_double (pbuf2d, index, field, start, kount, col_type)
subroutine	physics_buffer::set_pbuf2d_field_by_index_1d_real (pbuf2d, index, field, start, kount, col_type)
subroutine	physics_buffer::set_pbuf2d_field_by_index_2d_real (pbuf2d, index, field, start, kount, col_type)
subroutine	physics_buffer::set_pbuf2d_field_by_index_3d_real (pbuf2d, index, field, start, kount, col_type)
subroutine	physics_buffer::set_pbuf2d_field_by_index_4d_real (pbuf2d, index, field, start, kount, col_type)
subroutine	physics_buffer::set_pbuf2d_field_by_index_5d_real (pbuf2d, index, field, start, kount, col_type)
integer(i4) function, dimension(:), pointer	physics_buffer::get_field_chunk_1d_int (field, c)
integer(i4) function, dimension(:,:), pointer	physics_buffer::get_field_chunk_2d_int (field, c)
integer(i4) function, dimension(:,:,:), pointer	physics_buffer::get_field_chunk_3d_int (field, c)
integer(i4) function, dimension(:,:,:,:), pointer	physics_buffer::get_field_chunk_4d_int (field, c)
integer(i4) function, dimension(:,:,:,:,:), pointer	physics_buffer::get_field_chunk_5d_int (field, c)
real(r8) function, dimension(:), pointer	physics_buffer::get_field_chunk_1d_double (field, c)
real(r8) function, dimension(:,:), pointer	physics_buffer::get_field_chunk_2d_double (field, c)
real(r8) function, dimension(:,:,:), pointer	physics_buffer::get_field_chunk_3d_double (field, c)
real(r8) function, dimension(:,:,:,:), pointer	physics_buffer::get_field_chunk_4d_double (field, c)
real(r8) function, dimension(:,:,:,:,:), pointer	physics_buffer::get_field_chunk_5d_double (field, c)
real(r4) function, dimension(:), pointer	physics_buffer::get_field_chunk_1d_real (field, c)
real(r4) function, dimension(:,:), pointer	physics_buffer::get_field_chunk_2d_real (field, c)
real(r4) function, dimension(:,:,:), pointer	physics_buffer::get_field_chunk_3d_real (field, c)
real(r4) function, dimension(:,:,:,:), pointer	physics_buffer::get_field_chunk_4d_real (field, c)
real(r4) function, dimension(:,:,:,:,:), pointer	physics_buffer::get_field_chunk_5d_real (field, c)
subroutine	physics_buffer::set_pbuf1d_field_by_index_1d_int (pbuf, index, field, start, kount, col_type)
subroutine	physics_buffer::set_pbuf1d_field_by_index_2d_int (pbuf, index, field, start, kount, col_type)
subroutine	physics_buffer::set_pbuf1d_field_by_index_3d_int (pbuf, index, field, start, kount, col_type)
subroutine	physics_buffer::set_pbuf1d_field_by_index_4d_int (pbuf, index, field, start, kount, col_type)
subroutine	physics_buffer::set_pbuf1d_field_by_index_5d_int (pbuf, index, field, start, kount, col_type)
subroutine	physics_buffer::set_pbuf1d_field_by_index_1d_double (pbuf, index, field, start, kount, col_type)
subroutine	physics_buffer::set_pbuf1d_field_by_index_2d_double (pbuf, index, field, start, kount, col_type)
subroutine	physics_buffer::set_pbuf1d_field_by_index_3d_double (pbuf, index, field, start, kount, col_type)
subroutine	physics_buffer::set_pbuf1d_field_by_index_4d_double (pbuf, index, field, start, kount, col_type)
subroutine	physics_buffer::set_pbuf1d_field_by_index_5d_double (pbuf, index, field, start, kount, col_type)
subroutine	physics_buffer::set_pbuf1d_field_by_index_1d_real (pbuf, index, field, start, kount, col_type)
subroutine	physics_buffer::set_pbuf1d_field_by_index_2d_real (pbuf, index, field, start, kount, col_type)
subroutine	physics_buffer::set_pbuf1d_field_by_index_3d_real (pbuf, index, field, start, kount, col_type)
subroutine	physics_buffer::set_pbuf1d_field_by_index_4d_real (pbuf, index, field, start, kount, col_type)
subroutine	physics_buffer::set_pbuf1d_field_by_index_5d_real (pbuf, index, field, start, kount, col_type)
integer function	physics_buffer::pbuftype2piotype (pbuftype)
subroutine, public	physics_buffer::pbuf_init_restart (File, pbuf2d)
subroutine, public	physics_buffer::pbuf_write_restart (File, pbuf2d)
subroutine	physics_buffer::pbuf_restart_dimsizes (pbuf, gdimlens, grank, gridnum, adimlens, fdimlens, frank)
subroutine	physics_buffer::write_restart_field_int (File, pbuf2d, index, gdimlens, grank)
subroutine	physics_buffer::write_restart_field_double (File, pbuf2d, index, gdimlens, grank)
subroutine	physics_buffer::write_restart_field_real (File, pbuf2d, index, gdimlens, grank)
subroutine, public	physics_buffer::pbuf_read_restart (File, pbuf2d)
subroutine	physics_buffer::read_restart_field_int (File, pbuf2d, index, gdimlens, grank)
subroutine	physics_buffer::read_restart_field_double (File, pbuf2d, index, gdimlens, grank)
subroutine	physics_buffer::read_restart_field_real (File, pbuf2d, index, gdimlens, grank)

Variables
integer, parameter	physics_buffer::ngrid_types = 2
integer, parameter, public	physics_buffer::col_type_grid = 1
integer, parameter, public	physics_buffer::col_type_subcol = 2
character(len=5), dimension(ngrid_types), parameter	physics_buffer::field_grid_suff = (/ " ", "_SCOL" /)
integer	physics_buffer::old_time_idx = 1
integer, parameter	physics_buffer::persistence_global = 1
integer, parameter	physics_buffer::persistence_physpkg = 2
logical	physics_buffer::global_allocate_all = .true.
integer, public	physics_buffer::dyn_time_lvls
integer	physics_buffer::currentpbufflds =0
type(physics_buffer_hdr), pointer	physics_buffer::hdrbuffertop => null()
logical	physics_buffer::buffer_initialized =.false.
type(var_desc_t)	physics_buffer::timeidx_desc