fms_io.F90 File Reference

#include <fms_platform.h>
#include <file_version.h>

Include dependency graph for fms_io.F90:

Go to the source code of this file.

Data Types
type	fms_io_mod::meta_type
type	fms_io_mod::ax_type
type	fms_io_mod::var_type
type	fms_io_mod::ptr0dr
type	fms_io_mod::ptr1dr
type	fms_io_mod::ptr2dr
type	fms_io_mod::ptr3dr
type	fms_io_mod::ptr2dr8
type	fms_io_mod::ptr3dr8
type	fms_io_mod::ptr4dr
type	fms_io_mod::ptr0di
type	fms_io_mod::ptr1di
type	fms_io_mod::ptr2di
type	fms_io_mod::ptr3di
type	fms_io_mod::restart_file_type
interface	fms_io_mod::read_data
interface	fms_io_mod::read_distributed
interface	fms_io_mod::read_compressed
interface	fms_io_mod::write_data
interface	fms_io_mod::register_restart_field
interface	fms_io_mod::register_restart_axis
interface	fms_io_mod::reset_field_pointer
interface	fms_io_mod::restore_state
interface	fms_io_mod::query_initialized
interface	fms_io_mod::set_initialized
interface	fms_io_mod::get_global_att_value
interface	fms_io_mod::get_var_att_value
interface	fms_io_mod::parse_mask_table
interface	fms_io_mod::get_mosaic_tile_file
interface	fms_io_mod::string
interface	fms_io_mod::fms_io_unstructured_register_restart_axis
interface	fms_io_mod::fms_io_unstructured_register_restart_field
interface	fms_io_mod::fms_io_unstructured_read

Modules
module	fms_io_mod

Functions/Subroutines
subroutine, public	fms_io_mod::get_restart_io_mode (do_netcdf_restart)
subroutine, public	fms_io_mod::fms_io_init ()
subroutine, public	fms_io_mod::fms_io_exit ()
subroutine	fms_io_mod::write_data_i3d_new (filename, fieldname, data, domain, no_domain, position, tile_count, data_default)
subroutine	fms_io_mod::write_data_i2d_new (filename, fieldname, data, domain, no_domain, position, tile_count, data_default)
subroutine	fms_io_mod::write_data_i1d_new (filename, fieldname, data, domain, no_domain, tile_count, data_default)
subroutine	fms_io_mod::write_data_iscalar_new (filename, fieldname, data, domain, no_domain, tile_count, data_default)
subroutine	fms_io_mod::write_data_3d_new (filename, fieldname, data, domain, no_domain, scalar_or_1d, position, tile_count, data_default)
subroutine	fms_io_mod::register_restart_axis_r1d (fileObj, filename, fieldname, data, cartesian, units, longname, sense, min, calendar)
subroutine	fms_io_mod::register_restart_axis_i1d (fileObj, filename, fieldname, data, compressed, compressed_axis, dimlen, dimlen_name, dimlen_lname, units, longname, imin)
subroutine	fms_io_mod::register_restart_axis_unlimited (fileObj, filename, fieldname, nelem, units, longname)
subroutine, public	fms_io_mod::free_restart_type (fileObj)
subroutine, public	fms_io_mod::set_meta_global (fileObj, name, rval, ival, cval)
subroutine	fms_io_mod::write_meta_global (unit, fileObj)
integer function	fms_io_mod::register_restart_field_r0d (fileObj, filename, fieldname, data, domain, mandatory, no_domain, position, tile_count, data_default, longname, units, read_only, restart_owns_data)
integer function	fms_io_mod::register_restart_field_r1d (fileObj, filename, fieldname, data, domain, mandatory, no_domain, position, tile_count, data_default, longname, units, compressed_axis, read_only, restart_owns_data)
integer function	fms_io_mod::register_restart_field_r2d (fileObj, filename, fieldname, data, domain, mandatory, no_domain, compressed, position, tile_count, data_default, longname, units, compressed_axis, read_only, restart_owns_data)
integer function	fms_io_mod::register_restart_field_r3d (fileObj, filename, fieldname, data, domain, mandatory, no_domain, position, tile_count, data_default, longname, units, read_only, compressed, compressed_axis, restart_owns_data)
integer function	fms_io_mod::register_restart_field_r4d (fileObj, filename, fieldname, data, domain, mandatory, no_domain, position, tile_count, data_default, longname, units, read_only, restart_owns_data)
integer function	fms_io_mod::register_restart_field_i0d (fileObj, filename, fieldname, data, domain, mandatory, no_domain, position, tile_count, data_default, longname, units, read_only, restart_owns_data)
integer function	fms_io_mod::register_restart_field_i1d (fileObj, filename, fieldname, data, domain, mandatory, no_domain, position, tile_count, data_default, longname, units, compressed_axis, read_only, restart_owns_data)
integer function	fms_io_mod::register_restart_field_i2d (fileObj, filename, fieldname, data, domain, mandatory, no_domain, compressed, position, tile_count, data_default, longname, units, compressed_axis, read_only, restart_owns_data)
integer function	fms_io_mod::register_restart_field_i3d (fileObj, filename, fieldname, data, domain, mandatory, no_domain, position, tile_count, data_default, longname, units, read_only, restart_owns_data)
integer function	fms_io_mod::register_restart_field_r0d_2level (fileObj, filename, fieldname, data1, data2, domain, mandatory, no_domain, position, tile_count, data_default, longname, units, read_only)
integer function	fms_io_mod::register_restart_field_r1d_2level (fileObj, filename, fieldname, data1, data2, domain, mandatory, no_domain, position, tile_count, data_default, longname, units, read_only)
integer function	fms_io_mod::register_restart_field_r2d_2level (fileObj, filename, fieldname, data1, data2, domain, mandatory, no_domain, position, tile_count, data_default, longname, units, read_only)
integer function	fms_io_mod::register_restart_field_r3d_2level (fileObj, filename, fieldname, data1, data2, domain, mandatory, no_domain, position, tile_count, data_default, longname, units, read_only)
integer function	fms_io_mod::register_restart_field_i0d_2level (fileObj, filename, fieldname, data1, data2, domain, mandatory, no_domain, position, tile_count, data_default, longname, units, read_only)
integer function	fms_io_mod::register_restart_field_i1d_2level (fileObj, filename, fieldname, data1, data2, domain, mandatory, no_domain, position, tile_count, data_default, longname, units, read_only)
integer function	fms_io_mod::register_restart_field_i2d_2level (fileObj, filename, fieldname, data1, data2, domain, mandatory, no_domain, position, tile_count, data_default, longname, units, read_only)
integer function	fms_io_mod::register_restart_field_i3d_2level (fileObj, filename, fieldname, data1, data2, domain, mandatory, no_domain, position, tile_count, data_default, longname, units, read_only)
integer function	fms_io_mod::register_restart_region_r2d (fileObj, filename, fieldname, data, indices, global_size, pelist, is_root_pe, longname, units, position, x_halo, y_halo, ishift, jshift, read_only, mandatory)
integer function	fms_io_mod::register_restart_region_r3d (fileObj, filename, fieldname, data, indices, global_size, pelist, is_root_pe, longname, units, position, x_halo, y_halo, ishift, jshift, read_only, mandatory)
subroutine, public	fms_io_mod::save_restart (fileObj, time_stamp, directory, append, time_level)
logical function	fms_io_mod::all_field_read_only (fileObj)
subroutine	fms_io_mod::save_compressed_restart (fileObj, restartpath, append, time_level)
subroutine	fms_io_mod::save_unlimited_axis_restart (fileObj, restartpath)
subroutine	fms_io_mod::save_default_restart (fileObj, restartpath)
subroutine, public	fms_io_mod::save_restart_border (fileObj, time_stamp, directory)
subroutine, public	fms_io_mod::restore_state_border (fileObj, directory, nonfatal_missing_files)
subroutine	fms_io_mod::write_chksum (fileObj, action)
subroutine	fms_io_mod::restore_state_all (fileObj, directory, nonfatal_missing_files)
subroutine	fms_io_mod::restore_state_one_field (fileObj, id_field, directory, nonfatal_missing_files)
subroutine	fms_io_mod::setup_one_field (fileObj, filename, fieldname, field_siz, index_field, domain, mandatory, no_domain, scalar_or_1d, position, tile_count, data_default, longname, units, compressed_axis, read_only, owns_data)
subroutine	fms_io_mod::write_data_4d_new (filename, fieldname, data, domain, no_domain, position, tile_count, data_default)
subroutine	fms_io_mod::write_data_2d_new (filename, fieldname, data, domain, no_domain, position, tile_count, data_default)
subroutine	fms_io_mod::write_data_1d_new (filename, fieldname, data, domain, no_domain, tile_count, data_default)
subroutine	fms_io_mod::write_data_scalar_new (filename, fieldname, data, domain, no_domain, tile_count, data_default)
integer function, private	fms_io_mod::lookup_field_r (nfile, fieldname)
integer function	fms_io_mod::lookup_domain (domain)
integer function, private	fms_io_mod::lookup_axis (axis_sizes, siz, domains, dom)
subroutine, public	fms_io_mod::field_size (filename, fieldname, siz, field_found, domain, no_domain)
subroutine	fms_io_mod::file_unit (filename, found_file, unit, domain, no_domain)
integer function, public	fms_io_mod::dimension_size (filename, dimname, domain, no_domain)
subroutine, public	fms_io_mod::get_field_size (filename, fieldname, siz, field_found, domain, no_domain)
subroutine	fms_io_mod::get_size (unit, fieldname, siz, found)
subroutine	fms_io_mod::read_data_i3d_new (filename, fieldname, data, domain, timelevel, no_domain, position, tile_count)
subroutine	fms_io_mod::read_data_i2d_new (filename, fieldname, data, domain, timelevel, no_domain, position, tile_count)
subroutine	fms_io_mod::read_data_i1d_new (filename, fieldname, data, domain, timelevel, no_domain, tile_count)
subroutine	fms_io_mod::read_data_iscalar_new (filename, fieldname, data, domain, timelevel, no_domain, tile_count)
subroutine	fms_io_mod::read_data_3d_new (filename, fieldname, data, domain, timelevel, no_domain, scalar_or_1d, position, tile_count)
subroutine	fms_io_mod::read_compressed_i1d (filename, fieldname, data, domain, timelevel, start, nread, threading)
subroutine	fms_io_mod::read_compressed_i2d (filename, fieldname, data, domain, timelevel, start, nread, threading)
subroutine	fms_io_mod::read_compressed_1d (filename, fieldname, data, domain, timelevel, start, nread, threading)
subroutine	fms_io_mod::read_compressed_2d (filename, fieldname, data, domain, timelevel, start, nread, threading)
subroutine	fms_io_mod::read_compressed_3d (filename, fieldname, data, domain, timelevel)
subroutine	fms_io_mod::read_distributed_a1d (unit, fmt, iostat, data)
subroutine	fms_io_mod::read_distributed_i1d (unit, fmt, iostat, data)
subroutine	fms_io_mod::read_distributed_iscalar (unit, fmt, iostat, data)
subroutine	fms_io_mod::read_distributed_r3d (unit, fmt, iostat, data)
subroutine	fms_io_mod::read_distributed_r5d (unit, fmt, iostat, data)
subroutine	fms_io_mod::read_distributed_r1d (unit, fmt, iostat, data)
subroutine	fms_io_mod::read_data_2d_region (filename, fieldname, data, start, nread, domain, no_domain, tile_count)
subroutine	fms_io_mod::read_data_3d_region (filename, fieldname, data, start, nread, domain, no_domain, tile_count)
subroutine	fms_io_mod::read_data_text (filename, fieldname, data, level)
subroutine	fms_io_mod::read_data_4d_new (filename, fieldname, data, domain, timelevel, no_domain, position, tile_count)
subroutine	fms_io_mod::read_data_2d_ug (filename, fieldname, data, SG_domain, UG_domain, timelevel)
subroutine	fms_io_mod::read_data_2d_new (filename, fieldname, data, domain, timelevel, no_domain, position, tile_count)
subroutine	fms_io_mod::read_data_1d_new (filename, fieldname, data, domain, timelevel, no_domain, tile_count)
subroutine	fms_io_mod::read_data_scalar_new (filename, fieldname, data, domain, timelevel, no_domain, tile_count)
integer function, private	fms_io_mod::unique_axes (file, index, id_axes, siz_axes, dom)
subroutine	fms_io_mod::read_data_2d (unit, data, end)
subroutine	fms_io_mod::read_ldata_2d (unit, data, end)
subroutine	fms_io_mod::read_idata_2d (unit, data, end)
subroutine	fms_io_mod::read_data_3d (unit, data, end)
subroutine	fms_io_mod::read_data_4d (unit, data, end)
subroutine	fms_io_mod::write_data_2d (unit, data)
subroutine	fms_io_mod::write_ldata_2d (unit, data)
subroutine	fms_io_mod::write_idata_2d (unit, data)
subroutine	fms_io_mod::write_data_3d (unit, data)
subroutine	fms_io_mod::write_data_4d (unit, data)
subroutine	fms_io_mod::read_eof (end_found)
logical function	fms_io_mod::do_read ()
subroutine, public	fms_io_mod::reset_field_name (fileObj, id_field, name)
subroutine	fms_io_mod::reset_field_pointer_r0d (fileObj, id_field, data)
subroutine	fms_io_mod::reset_field_pointer_r1d (fileObj, id_field, data)
subroutine	fms_io_mod::reset_field_pointer_r2d (fileObj, id_field, data)
subroutine	fms_io_mod::reset_field_pointer_r3d (fileObj, id_field, data)
subroutine	fms_io_mod::reset_field_pointer_r4d (fileObj, id_field, data)
subroutine	fms_io_mod::reset_field_pointer_i0d (fileObj, id_field, data)
subroutine	fms_io_mod::reset_field_pointer_i1d (fileObj, id_field, data)
subroutine	fms_io_mod::reset_field_pointer_i2d (fileObj, id_field, data)
subroutine	fms_io_mod::reset_field_pointer_i3d (fileObj, id_field, data)
subroutine	fms_io_mod::reset_field_pointer_r0d_2level (fileObj, id_field, data1, data2)
subroutine	fms_io_mod::reset_field_pointer_r1d_2level (fileObj, id_field, data1, data2)
subroutine	fms_io_mod::reset_field_pointer_r2d_2level (fileObj, id_field, data1, data2)
subroutine	fms_io_mod::reset_field_pointer_r3d_2level (fileObj, id_field, data1, data2)
subroutine	fms_io_mod::reset_field_pointer_i0d_2level (fileObj, id_field, data1, data2)
subroutine	fms_io_mod::reset_field_pointer_i1d_2level (fileObj, id_field, data1, data2)
subroutine	fms_io_mod::reset_field_pointer_i2d_2level (fileObj, id_field, data1, data2)
subroutine	fms_io_mod::reset_field_pointer_i3d_2level (fileObj, id_field, data1, data2)
logical function	fms_io_mod::query_initialized_id (fileObj, id)
logical function	fms_io_mod::query_initialized_name (fileObj, name)
logical function	fms_io_mod::query_initialized_r2d (fileObj, f_ptr, name)
logical function	fms_io_mod::query_initialized_r3d (fileObj, f_ptr, name)
logical function	fms_io_mod::query_initialized_r4d (fileObj, f_ptr, name)
subroutine	fms_io_mod::set_initialized_id (fileObj, id, is_set)
subroutine	fms_io_mod::set_initialized_name (fileObj, name, is_set)
subroutine	fms_io_mod::set_initialized_r2d (fileObj, f_ptr, name, is_set)
subroutine	fms_io_mod::set_initialized_r3d (fileObj, f_ptr, name, is_set)
subroutine	fms_io_mod::set_initialized_r4d (fileObj, f_ptr, name, is_set)
integer function, public	fms_io_mod::open_namelist_file (file)
integer function, public	fms_io_mod::open_restart_file (file, action)
integer function, public	fms_io_mod::open_direct_file (file, action, recl)
integer function, public	fms_io_mod::open_ieee32_file (file, action)
subroutine, public	fms_io_mod::close_file (unit, status, dist)
subroutine, public	fms_io_mod::set_domain (Domain2)
subroutine, public	fms_io_mod::nullify_domain ()
subroutine, public	fms_io_mod::return_domain (domain2)
subroutine, public	fms_io_mod::get_domain_decomp (x, y)
subroutine	fms_io_mod::get_axis_cart (axis, cart)
integer function, public	fms_io_mod::open_file (file, form, action, access, threading, recl, dist)
character(len=16) function	fms_io_mod::string_from_integer (n)
character(len=32) function	fms_io_mod::string_from_real (a)
subroutine, public	fms_io_mod::get_tile_string (str_out, str_in, tile, str2_in)
subroutine	fms_io_mod::get_mosaic_tile_file_sg (file_in, file_out, is_no_domain, domain, tile_count)
subroutine, public	fms_io_mod::get_mosaic_tile_file_ug (file_in, file_out, domain)
subroutine, public	fms_io_mod::get_mosaic_tile_grid (grid_file, mosaic_file, domain, tile_count)
subroutine	fms_io_mod::get_var_att_value_text (file, varname, attname, attvalue)
logical function	fms_io_mod::get_global_att_value_text (file, att, attvalue)
logical function	fms_io_mod::get_global_att_value_real (file, att, attvalue)
logical function, public	fms_io_mod::get_file_name (orig_file, actual_file, read_dist, io_domain_exist, no_domain, domain, tile_count)
subroutine	fms_io_mod::get_file_unit (filename, unit, index_file, read_dist, io_domain_exist, domain)
subroutine	fms_io_mod::get_field_id (unit, index_file, fieldname, index_field, is_no_domain, is_not_dim)
logical function, public	fms_io_mod::file_exist (file_name, domain, no_domain)
logical function, public	fms_io_mod::field_exist (file_name, field_name, domain, no_domain)
subroutine, public	fms_io_mod::get_filename_appendix (string_out)
subroutine, public	fms_io_mod::nullify_filename_appendix ()
subroutine, public	fms_io_mod::set_filename_appendix (string_in)
subroutine, public	fms_io_mod::get_instance_filename (name_in, name_out)
subroutine	fms_io_mod::parse_mask_table_2d (mask_table, maskmap, modelname)
subroutine	fms_io_mod::parse_mask_table_3d (mask_table, maskmap, modelname)
logical function, public	fms_io_mod::get_great_circle_algorithm ()
subroutine, public	fms_io_mod::write_version_number (version, tag, unit)

Variables
integer, parameter, private	fms_io_mod::max_split_file = 50
integer, parameter, private	fms_io_mod::max_fields =400
integer, parameter, private	fms_io_mod::max_axes =40
integer, parameter, private	fms_io_mod::max_atts =20
integer, parameter, private	fms_io_mod::max_domains = 10
integer, parameter, private	fms_io_mod::max_time_level_register = 2
integer, parameter, private	fms_io_mod::max_time_level_write = 20
integer, parameter	fms_io_mod::max_axis_size =10000
integer(int_kind), parameter, public	fms_io_mod::xidx = 1
integer(int_kind), parameter, public	fms_io_mod::yidx = 2
integer(int_kind), parameter, public	fms_io_mod::cidx = 3
integer(int_kind), parameter, public	fms_io_mod::zidx = 4
integer(int_kind), parameter, public	fms_io_mod::hidx = 5
integer(int_kind), parameter, public	fms_io_mod::tidx = 6
integer(int_kind), parameter, public	fms_io_mod::uidx = 7
integer(int_kind), parameter, public	fms_io_mod::ccidx = 8
integer, parameter, private	fms_io_mod::nidx =8
integer	fms_io_mod::num_files_r = 0
integer	fms_io_mod::num_files_w = 0
integer	fms_io_mod::num_domains = 0
integer	fms_io_mod::num_registered_files = 0
integer	fms_io_mod::thread_r
integer	fms_io_mod::form
logical	fms_io_mod::module_is_initialized = .FALSE.
character(len=128)	fms_io_mod::error_msg
logical	fms_io_mod::great_circle_algorithm =.FALSE.
type(domain2d), pointer, private	fms_io_mod::current_domain =>NULL()
integer, private	fms_io_mod::is
integer, private	fms_io_mod::ie
integer, private	fms_io_mod::js
integer, private	fms_io_mod::je
integer, private	fms_io_mod::isd
integer, private	fms_io_mod::ied
integer, private	fms_io_mod::jsd
integer, private	fms_io_mod::jed
integer, private	fms_io_mod::isg
integer, private	fms_io_mod::ieg
integer, private	fms_io_mod::jsg
integer, private	fms_io_mod::jeg
character(len=128), dimension(:), allocatable	fms_io_mod::registered_file
type(restart_file_type), dimension(:), allocatable	fms_io_mod::files_read
type(restart_file_type), dimension(:), allocatable, target	fms_io_mod::files_write
type(domain2d), dimension(max_domains), target, save	fms_io_mod::array_domain
type(domain1d), dimension(max_domains), save	fms_io_mod::domain_x
type(domain1d), dimension(max_domains), save	fms_io_mod::domain_y
character(len=32), save	fms_io_mod::filename_appendix = ''
logical	fms_io_mod::fms_netcdf_override = .true.
logical	fms_io_mod::fms_netcdf_restart = .true.
character(len=32)	fms_io_mod::threading_read = 'multi'
character(len=32)	fms_io_mod::format = 'netcdf'
logical	fms_io_mod::read_all_pe = .TRUE.
character(len=64)	fms_io_mod::iospec_ieee32 = '-N ieee_32'
integer	fms_io_mod::max_files_w = 40
integer	fms_io_mod::max_files_r = 40
integer	fms_io_mod::dr_set_size = 10
logical	fms_io_mod::read_data_bug = .false.
logical	fms_io_mod::time_stamp_restart = .true.
logical	fms_io_mod::print_chksum = .false.
logical	fms_io_mod::show_open_namelist_file_warning = .false.
logical	fms_io_mod::debug_mask_list = .false.
logical	fms_io_mod::checksum_required = .true.
integer	fms_io_mod::pack_size