mod_psmile_io.F90 File Reference

#include <mpif.h>

Include dependency graph for mod_psmile_io.F90:

Go to the source code of this file.

Data Types
type	mod_psmile_io::time_stamps
Modules
module	mod_psmile_io
Defines
#define	__READ_BY_LOOKUP
Functions/Subroutines
subroutine	psmile_io_init_comp (id_error)
subroutine	psmile_def_domains (id_error)
subroutine	psmile_def_files (id_error)
subroutine	psmile_def_metadata (id_error)
subroutine	psmile_close_files (id_error)
subroutine	psmile_io_cleanup (id_error)
subroutine	psmile_read_8 (id_port_id, rd_field, id_newtime)
subroutine	psmile_read_4 (id_port_id, rd_field, id_newtime)
subroutine	psmile_write_4 (id_port_id, rd_field, id_newtime)
subroutine	psmile_write_8 (id_port_id, rd_field, id_newtime)
subroutine	indexi (n, arr, indx)
subroutine	combine_with_date (cd_in, cd_mode, id_initial_date, cd_on)
subroutine	transp_crn2cf (x, y, vshape)
subroutine	inv2d (x, ilon, ilat, lxlon, lylat)
subroutine	inv2dcrn (x, ilon, ilat, icrn, lxlon, lylat)
Variables
integer(kind=ip_intwp_p), parameter	mod_psmile_io::PSMILE_MAX_UNIT = 299
integer(kind=ip_intwp_p), parameter	mod_psmile_io::PSMILE_MAX_RESERVED_UNIT = 104
integer(kind=ip_intwp_p), parameter	mod_psmile_io::PSMILE_MIN_RESERVED_UNIT = 100
integer(kind=ip_intwp_p), parameter	mod_psmile_io::PSMILE_MAX_CF_TABLE_ENTRIES = 1024
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_psmile_io::nbr_corners
integer(kind=ip_intwp_p)	mod_psmile_io::ig_mpp_io_comm
integer(kind=ip_intwp_p)	mod_psmile_io::ig_color
integer(kind=ip_intwp_p)	mod_psmile_io::ig_mpp_io_comm_size
integer(kind=ip_intwp_p)	mod_psmile_io::ig_mpp_io_comm_rank
integer(kind=ip_intwp_p)	mod_psmile_io::ig_stackmax = 1310720
integer(kind=ip_intwp_p)	mod_psmile_io::ig_stackmaxd = 655360
integer(kind=ip_intwp_p), dimension(2)	mod_psmile_io::ig_layout
type(domain2D), dimension(:), allocatable	mod_psmile_io::domain
type(domain1D), dimension(:), allocatable	mod_psmile_io::xdom
type(domain1D), dimension(:), allocatable	mod_psmile_io::ydom
logical, dimension(:), allocatable	mod_psmile_io::lg_is_odd_distribution
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_psmile_io::ig_units
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_psmile_io::ig_action
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_psmile_io::ig_form
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_psmile_io::ig_threading
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_psmile_io::ig_fileset
character(len=128), dimension(:), allocatable	mod_psmile_io::cg_my_input_file
character(len=128), dimension(:), allocatable	mod_psmile_io::cg_output_file
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_psmile_io::ig_var_index
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_psmile_io::ig_ntimes
type(time_stamps), dimension(:), allocatable	mod_psmile_io::dg_times
type(fieldtype), dimension(:), allocatable	mod_psmile_io::ig_vars
type(fieldtype), dimension(:), allocatable	mod_psmile_io::field
type(fieldtype), dimension(:), allocatable	mod_psmile_io::latij
type(fieldtype), dimension(:), allocatable	mod_psmile_io::lonij
type(fieldtype), dimension(:), allocatable	mod_psmile_io::crnlatij
type(fieldtype), dimension(:), allocatable	mod_psmile_io::crnlonij
type(axistype), dimension(:), allocatable	mod_psmile_io::x_axis
type(axistype), dimension(:), allocatable	mod_psmile_io::y_axis
type(axistype), dimension(:), allocatable	mod_psmile_io::z_axis
type(axistype), dimension(:), allocatable	mod_psmile_io::t_axis
type(axistype), dimension(:), allocatable	mod_psmile_io::c_axis
character(len=64), dimension(:), allocatable	mod_psmile_io::cports_lgname
character(len=64), dimension(:), allocatable	mod_psmile_io::cports_units
character(len=64), dimension(:), allocatable	mod_psmile_io::cfldlab
character(len=64), dimension(:), allocatable	mod_psmile_io::cfunitslab

---

Define Documentation

#define __READ_BY_LOOKUP

---

Function Documentation

subroutine combine_with_date	(	character(len=*),intent(in)	cd_in,
		character(len=*),intent(in)	cd_mode,
		integer(kind=ip_intwp_p),dimension(:),intent(in)	id_initial_date,
		character(len=*),intent(out)	cd_on
	)

Definition at line 1922 of file mod_psmile_io.F90.

subroutine indexi	(	INTEGER(KIND=IP_INTWP_P),intent(in)	n,
		integer(kind=ip_intwp_p),dimension(n),intent(in)	arr,
		INTEGER(KIND=IP_INTWP_P),dimension(n),intent(out)	indx
	)

Definition at line 1834 of file mod_psmile_io.F90.

subroutine inv2d	(	REAL(kind=ip_double_p),dimension(ilon,ilat)	x,
		Integer,intent(in)	ilon,
		Integer,intent(in)	ilat,
		Logical,intent(in)	lxlon,
		Logical,intent(in)	lylat
	)

Definition at line 2010 of file mod_psmile_io.F90.

References flush(), and mod_comprism_proto::nulprt.

Referenced by psmile_def_metadata().

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine inv2dcrn	(	REAL(kind=ip_double_p),dimension(ilon,ilat,icrn)	x,
		Integer,intent(in)	ilon,
		Integer,intent(in)	ilat,
		Integer,intent(in)	icrn,
		Logical,intent(in)	lxlon,
		Logical,intent(in)	lylat
	)

Definition at line 2066 of file mod_psmile_io.F90.

References flush(), and mod_comprism_proto::nulprt.

Referenced by psmile_def_metadata().

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine psmile_close_files

(

integer(kind=ip_intwp_p),intent(out)

id_error

)

Definition at line 1493 of file mod_psmile_io.F90.

References mod_prism_proto::CLIM_Ok, mod_psmile_io::dg_times, flush(), mod_psmile_io::ig_color, mod_comprism_proto::ig_mynummod, mod_psmile_io::ig_units, mod_comprism_proto::nports, and mod_comprism_proto::nulprt.

Here is the call graph for this function:

subroutine psmile_def_domains

(

integer(kind=ip_intwp_p),intent(out)

id_error

)

Definition at line 338 of file mod_psmile_io.F90.

References mod_prism_proto::CLIM_Apple, mod_prism_proto::CLIM_Box, mod_prism_proto::CLIM_Length, mod_prism_proto::CLIM_Offset, mod_prism_proto::CLIM_Orange, mod_prism_proto::CLIM_Segments, mod_prism_proto::CLIM_Serial, mod_prism_proto::CLIM_SizeX, mod_prism_proto::CLIM_Strategy, mod_psmile_io::domain, flush(), mod_psmile_io::ig_color, mod_comprism_proto::ig_def_state, mod_psmile_io::ig_layout, mod_psmile_io::ig_mpp_io_comm, mod_psmile_io::ig_mpp_io_comm_size, mod_comprism_proto::ig_mynummod, mod_prism_proto::ip_expout, mod_prism_proto::ip_ignout, mod_prism_proto::ip_input, mod_prism_proto::ip_output, mod_psmile_io::lg_is_odd_distribution, mod_comprism_proto::mpi_comm, mod_comprism_proto::mpi_err, mod_comprism_proto::mydist, not, mod_comprism_proto::nports, mod_comprism_proto::nulprt, mod_psmile_io::xdom, and mod_psmile_io::ydom.

Here is the call graph for this function:

subroutine psmile_def_files

(

integer(kind=ip_intwp_p),intent(out)

id_error

)

Definition at line 668 of file mod_psmile_io.F90.

References mod_comprism_proto::cg_def_inpfile, mod_comprism_proto::cg_ignout_field, mod_psmile_io::cg_my_input_file, mod_psmile_io::cg_output_file, mod_prism_proto::CLIM_Ok, mod_comprism_proto::cports, mod_psmile_io::domain, flush(), mod_psmile_io::ig_action, mod_psmile_io::ig_color, mod_comprism_proto::ig_def_state, mod_psmile_io::ig_fileset, mod_psmile_io::ig_form, mod_comprism_proto::ig_inidate, mod_comprism_proto::ig_mynummod, mod_psmile_io::ig_threading, mod_psmile_io::ig_units, mod_prism_proto::ip_expout, mod_prism_proto::ip_ignout, mod_prism_proto::ip_input, mod_prism_proto::ip_output, mod_comprism_proto::mpi_comm, mod_comprism_proto::mpi_err, not, mod_comprism_proto::nports, mod_comprism_proto::nulprt, mod_psmile_io::PSMILE_MAX_RESERVED_UNIT, mod_psmile_io::PSMILE_MAX_UNIT, and mod_psmile_io::PSMILE_MIN_RESERVED_UNIT.

Here is the call graph for this function:

subroutine psmile_def_metadata

(

integer(kind=ip_intwp_p),intent(out)

id_error

)

Definition at line 853 of file mod_psmile_io.F90.

References mod_psmile_io::c_axis, mod_psmile_io::cfldlab, mod_psmile_io::cfunitslab, mod_comprism_proto::cg_clim_cgrdnam, mod_comprism_proto::cg_clim_latsuf, mod_comprism_proto::cg_clim_lonsuf, mod_comprism_proto::cg_ignout_field, mod_psmile_io::cg_my_input_file, mod_comprism_proto::cga_clim_locator, mod_prism_proto::CLIM_Ok, mod_comprism_proto::cports, mod_psmile_io::cports_lgname, mod_psmile_io::cports_units, mod_comprism_proto::crn_clim_latsuf, mod_comprism_proto::crn_clim_lonsuf, mod_psmile_io::crnlatij, mod_psmile_io::crnlonij, mod_psmile_io::dg_times, mod_psmile_io::domain, mod_psmile_io::field, flush(), mod_psmile_io::ig_color, mod_comprism_proto::ig_def_invert, mod_comprism_proto::ig_def_numlab, mod_comprism_proto::ig_def_reverse, mod_comprism_proto::ig_def_state, mod_comprism_proto::ig_inidate, mod_comprism_proto::ig_mynummod, mod_comprism_proto::ig_noc, mod_psmile_io::ig_ntimes, mod_psmile_io::ig_units, mod_psmile_io::ig_var_index, mod_psmile_io::ig_vars, inv2d(), inv2dcrn(), mod_prism_proto::ip_expout, mod_prism_proto::ip_ignout, mod_prism_proto::ip_input, mod_prism_proto::ip_output, mod_psmile_io::latij, mod_psmile_io::lonij, mod_comprism_proto::mpi_comm, mod_comprism_proto::mpi_err, mod_psmile_io::nbr_corners, not, mod_comprism_proto::nports, mod_comprism_proto::nulprt, mod_psmile_io::PSMILE_MAX_CF_TABLE_ENTRIES, mod_psmile_io::t_axis, transp_crn2cf(), mod_psmile_io::x_axis, mod_psmile_io::xdom, mod_psmile_io::y_axis, and mod_psmile_io::ydom.

Here is the call graph for this function:

subroutine psmile_io_cleanup

(

integer(kind=ip_intwp_p),intent(out)

id_error

)

Definition at line 1552 of file mod_psmile_io.F90.

References mod_psmile_io::cports_lgname, mod_psmile_io::cports_units, mod_psmile_io::dg_times, mod_psmile_io::domain, mod_psmile_io::field, flush(), mod_psmile_io::ig_action, mod_psmile_io::ig_color, mod_psmile_io::ig_fileset, mod_psmile_io::ig_form, mod_comprism_proto::ig_mynummod, mod_psmile_io::ig_ntimes, mod_psmile_io::ig_threading, mod_psmile_io::ig_units, mod_psmile_io::ig_var_index, mod_psmile_io::ig_vars, mod_psmile_io::latij, mod_psmile_io::lg_is_odd_distribution, mod_psmile_io::lonij, mod_comprism_proto::nulprt, mod_psmile_io::t_axis, mod_psmile_io::x_axis, mod_psmile_io::xdom, mod_psmile_io::y_axis, mod_psmile_io::ydom, and mod_psmile_io::z_axis.

Here is the call graph for this function:

subroutine psmile_io_init_comp

(

integer(kind=ip_intwp_p),intent(out)

id_error

)

Definition at line 139 of file mod_psmile_io.F90.

References mod_psmile_io::cfldlab, mod_psmile_io::cfunitslab, mod_comprism_proto::cnaprt, flush(), mod_psmile_io::ig_color, mod_comprism_proto::ig_local_comm, mod_psmile_io::ig_mpp_io_comm, mod_psmile_io::ig_mpp_io_comm_rank, mod_psmile_io::ig_mpp_io_comm_size, mod_comprism_proto::ig_mynummod, mod_psmile_io::ig_stackmax, mod_psmile_io::ig_stackmaxd, mod_comprism_proto::kbcplproc, mod_comprism_proto::mpi_comm, mod_comprism_proto::nulprt, and mod_psmile_io::PSMILE_MAX_CF_TABLE_ENTRIES.

Here is the call graph for this function:

subroutine psmile_read_4	(	integer(kind=ip_intwp_p),intent(in)	id_port_id,
		REAL(kind=ip_single_p),dimension(myport(4,id_port_id))	rd_field,
		integer(kind=ip_intwp_p),intent(in)	id_newtime
	)

Definition at line 1693 of file mod_psmile_io.F90.

References mod_comprism_proto::cg_def_inpfile, mod_psmile_io::dg_times, mod_psmile_io::domain, flush(), mod_comprism_proto::ig_def_freq, mod_psmile_io::ig_ntimes, mod_psmile_io::ig_units, mod_psmile_io::ig_vars, mod_comprism_proto::mpi_comm, mod_comprism_proto::mpi_err, not, and mod_comprism_proto::nulprt.

Referenced by mod_prism_get_proto::prism_get_proto_r14(), and mod_prism_get_proto::prism_get_proto_r24().

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine psmile_read_8	(	integer(kind=ip_intwp_p),intent(in)	id_port_id,
		REAL(kind=ip_double_p),dimension(myport(4,id_port_id)),intent(out)	rd_field,
		integer(kind=ip_intwp_p),intent(in)	id_newtime
	)

Definition at line 1616 of file mod_psmile_io.F90.

References mod_comprism_proto::cg_def_inpfile, mod_psmile_io::dg_times, mod_psmile_io::domain, flush(), mod_comprism_proto::ig_def_freq, mod_psmile_io::ig_ntimes, mod_psmile_io::ig_units, mod_psmile_io::ig_vars, mod_comprism_proto::mpi_comm, mod_comprism_proto::mpi_err, not, and mod_comprism_proto::nulprt.

Referenced by mod_prism_get_proto::prism_get_proto_r18(), and mod_prism_get_proto::prism_get_proto_r28().

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine psmile_write_4	(	integer(kind=ip_intwp_p),intent(in)	id_port_id,
		REAL(kind=ip_single_p),dimension(myport(4,id_port_id))	rd_field,
		integer(kind=ip_intwp_p),intent(in)	id_newtime
	)

Definition at line 1761 of file mod_psmile_io.F90.

References mod_psmile_io::domain, mod_psmile_io::field, flush(), mod_psmile_io::ig_units, and mod_comprism_proto::nulprt.

Referenced by mod_prism_get_proto::prism_get_proto_r14(), mod_prism_get_proto::prism_get_proto_r24(), mod_prism_put_proto::prism_put_proto_r14(), and mod_prism_put_proto::prism_put_proto_r24().

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine psmile_write_8	(	integer(kind=ip_intwp_p),intent(in)	id_port_id,
		REAL(kind=ip_double_p),dimension(1:myport(4,id_port_id)),intent(inout)	rd_field,
		integer(kind=ip_intwp_p),intent(in)	id_newtime
	)

Definition at line 1793 of file mod_psmile_io.F90.

References mod_psmile_io::domain, mod_psmile_io::field, flush(), mod_psmile_io::ig_units, and mod_comprism_proto::nulprt.

Referenced by mod_prism_get_proto::prism_get_proto_r18(), mod_prism_get_proto::prism_get_proto_r28(), mod_prism_put_proto::prism_put_proto_r18(), and mod_prism_put_proto::prism_put_proto_r28().

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine transp_crn2cf	(	REAL(kind=ip_double_p),dimension(vshape(1),vshape(2),vshape(3)),intent(in)	x,
		REAL(kind=ip_double_p),dimension(vshape(3),vshape(1),vshape(2)),intent(out)	y,
		Integer,dimension(3),intent(in)	vshape
	)

Definition at line 1988 of file mod_psmile_io.F90.

Referenced by psmile_def_metadata().

Here is the caller graph for this function: