| 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: |
|---|
| 7 | use mod_oasis_kinds ,only: ip_single_p |
|---|
| 8 | use mod_oasis_kinds ,only: ip_double_p |
|---|
| 9 | use mod_oasis_kinds ,only: ip_realwp_p |
|---|
| 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 | |
|---|
| 16 | use mod_oasis_parameters |
|---|
| 17 | USE mod_oasis_namcouple |
|---|
| 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_write_frac => oasis_write_frac |
|---|
| 37 | use mod_oasis_grid ,only: prism_terminate_grids_writing => oasis_terminate_grids_writing |
|---|
| 38 | |
|---|
| 39 | use mod_oasis_auxiliary_routines ,only: prism_get_localcomm_proto => oasis_get_localcomm |
|---|
| 40 | use mod_oasis_auxiliary_routines ,only: prism_set_couplcomm => oasis_set_couplcomm |
|---|
| 41 | use mod_oasis_auxiliary_routines ,only: prism_create_couplcomm => oasis_create_couplcomm |
|---|
| 42 | use mod_oasis_auxiliary_routines ,only: prism_get_intracomm => oasis_get_intracomm |
|---|
| 43 | use mod_oasis_auxiliary_routines ,only: prism_get_multi_intracomm => oasis_get_multi_intracomm |
|---|
| 44 | use mod_oasis_auxiliary_routines ,only: prism_get_intercomm => oasis_get_intercomm |
|---|
| 45 | use mod_oasis_auxiliary_routines, only: prism_set_debug => oasis_set_debug |
|---|
| 46 | use mod_oasis_auxiliary_routines, only: prism_get_debug => oasis_get_debug |
|---|
| 47 | use mod_oasis_auxiliary_routines, only: prism_get_ncpl => oasis_get_ncpl |
|---|
| 48 | use mod_oasis_auxiliary_routines, only: prism_get_freqs => oasis_get_freqs |
|---|
| 49 | use mod_oasis_auxiliary_routines, only: prism_put_inquire => oasis_put_inquire |
|---|
| 50 | |
|---|
| 51 | use mod_oasis_sys ,only: prism_abort_proto => oasis_abort |
|---|
| 52 | |
|---|
| 53 | implicit none |
|---|
| 54 | |
|---|
| 55 | !=============================================================================== |
|---|
| 56 | |
|---|
| 57 | end module mod_prism |
|---|
