Oasis3-MCT
mod_prism.F90
Go to the documentation of this file.
1 !> Provides top level OASIS interfaces to the user community using prism names
2 !> for backwards compatibility.
3 
4 module mod_prism
5 
6 ! !USES:
10  use mod_oasis_kinds ,only: ll_single
11  use mod_oasis_kinds ,only: ip_i2_p
12  use mod_oasis_kinds ,only: ip_i4_p
13  use mod_oasis_kinds ,only: ip_i8_p
14  use mod_oasis_kinds ,only: ip_intwp_p
15 
18 
19  use mod_oasis_method ,only: prism_init_comp_proto => oasis_init_comp
20  use mod_oasis_method ,only: prism_terminate_proto => oasis_terminate
21  use mod_oasis_method ,only: prism_enddef_proto => oasis_enddef
22 
23  use mod_oasis_part ,only: prism_def_partition_proto => oasis_def_partition
24 
25  use mod_oasis_var ,only: prism_def_var_proto => oasis_def_var
26 
27  use mod_oasis_getput_interface ,only: prism_get_proto => oasis_get
28  use mod_oasis_getput_interface ,only: prism_put_proto => oasis_put
29 
30  use mod_oasis_grid ,only: prism_start_grids_writing => oasis_start_grids_writing
31  use mod_oasis_grid ,only: prism_write_grid => oasis_write_grid
32  USE mod_oasis_grid ,only: prism_write_angle => oasis_write_angle
33  use mod_oasis_grid ,only: prism_write_corner => oasis_write_corner
34  use mod_oasis_grid ,only: prism_write_mask => oasis_write_mask
35  use mod_oasis_grid ,only: prism_write_area => oasis_write_area
36  use mod_oasis_grid ,only: prism_terminate_grids_writing => oasis_terminate_grids_writing
37 
38  use mod_oasis_auxiliary_routines ,only: prism_get_localcomm_proto => oasis_get_localcomm
39  use mod_oasis_auxiliary_routines ,only: prism_set_couplcomm => oasis_set_couplcomm
40  use mod_oasis_auxiliary_routines ,only: prism_create_couplcomm => oasis_create_couplcomm
41  use mod_oasis_auxiliary_routines ,only: prism_get_intracomm => oasis_get_intracomm
42  use mod_oasis_auxiliary_routines ,only: prism_get_intercomm => oasis_get_intercomm
43  use mod_oasis_auxiliary_routines, only: prism_set_debug => oasis_set_debug
44  use mod_oasis_auxiliary_routines, only: prism_get_debug => oasis_get_debug
45  use mod_oasis_auxiliary_routines, only: prism_get_ncpl => oasis_get_ncpl
46  use mod_oasis_auxiliary_routines, only: prism_get_freqs => oasis_get_freqs
47  use mod_oasis_auxiliary_routines, only: prism_put_inquire => oasis_put_inquire
48 
49  use mod_oasis_sys ,only: prism_abort_proto => oasis_abort
50 
51  implicit none
52 
53 !===============================================================================
54 
55 end module mod_prism
subroutine, public oasis_write_mask(cgrid, nx, ny, mask, partid)
User interface to set integer mask values.
System type methods.
subroutine, public oasis_terminate_grids_writing()
User interface to indicate user defined grids are done.
Generic interface to support writing 4 or 8 byte reals.
subroutine, public oasis_init_comp(mynummod, cdnam, kinfo, coupled, commworld)
OASIS user init method.
Auxiliary OASIS user interfaces.
Generic interface to support writing 4 or 8 byte reals.
Provides top level OASIS interfaces to the user community using prism names for backwards compatibili...
Definition: mod_prism.F90:4
subroutine, public oasis_def_var(id_nports, cdport, id_part, id_var_nodims, kinout, id_var_shape, ktype, kinfo)
The OASIS user interface to define variables.
subroutine, public oasis_get_intercomm(new_comm, cdnam, kinfo)
OASIS user interface to establish an intercomm communicator between the root of two models...
subroutine, public oasis_abort(id_compid, cd_routine, cd_message, file, line, rcode)
OASIS abort method, publically available to users.
subroutine, public oasis_def_partition(id_part, kparal, kinfo, ig_size, name)
The OASIS user interface to define partitions.
integer, parameter ip_i4_p
Generic interface to support writing 4 or 8 byte reals.
subroutine, public oasis_get_intracomm(new_comm, cdnam, kinfo)
OASIS user interface to establish an intracomm communicator between the root of two models...
Generic interface to support writing 4 or 8 byte reals.
Defines kinds for OASIS.
integer, parameter ip_double_p
integer, parameter ip_i2_p
subroutine, public oasis_terminate(kinfo)
OASIS user finalize method.
subroutine, public oasis_set_couplcomm(localcomm, kinfo)
OASIS user call to specify a local communicator.
subroutine, public oasis_set_debug(debug, kinfo)
OASIS user interface to set debug level.
subroutine, public oasis_start_grids_writing(iwrite)
User interface to initialize grid writing.
OASIS partition data and methods.
subroutine, public oasis_get_freqs(varid, mop, ncpl, cpl_freqs, kinfo)
OASIS user query for the coupling periods for a given variable.
subroutine, public oasis_get_ncpl(varid, ncpl, kinfo)
OASIS user query for the number of unique couplings associated with a variable.
OASIS grid data and methods.
Defines parameters for OASIS.
OASIS variable data and methods.
subroutine, public oasis_get_debug(debug, kinfo)
OASIS user interface to query debug level.
logical, parameter ll_single
subroutine, public oasis_enddef(kinfo)
OASIS user interface specifying the OASIS definition phase is complete.
OASIS send/receive (put/get) user interfaces.
integer, parameter ip_single_p
subroutine, public oasis_get_localcomm(localcomm, kinfo)
OASIS user query for the local MPI communicator.
integer, parameter ip_intwp_p
subroutine, public oasis_put_inquire(varid, msec, kinfo)
OASIS user query to indicate put return code expected at a specified time for a given variable...
subroutine, public oasis_create_couplcomm(icpl, allcomm, cplcomm, kinfo)
OASIS user call to create a new communicator.
integer, parameter ip_i8_p
Reads the namcouple file for use in OASIS.
Generic overloaded interface for data get (receive)
High level OASIS user interfaces.
integer, parameter ip_realwp_p
Generic overloaded interface for data put (send)