source: CPL/oasis3/trunk/src/lib/psmile/src/mod_psmile_io_interfaces.F90 @ 1677

Last change on this file since 1677 was 1677, checked in by aclsce, 12 years ago

Imported oasis3 (tag ipslcm5a) from cvs server to svn server (igcmg project).

File size: 3.9 KB
Line 
1!-----------------------------------------------------------------------
2! BOP
3!
4! !MODULE:  mod_psmile_io_interfaces
5! !REMARKS: Programed by Reiner Vogelsang, SGI (reiner@sgi.com)
6!
7! !USES: psmile_os.h
8! !DESCRIPTION:
9!  Defines F90 interfaces of all PSMILe I/O routines
10!
11! !REVISION HISTORY:
12! 2003.04.28 Reiner Vogelsang
13!       - Screening of 4 byte real interfaces.
14!
15! EOP
16!-----------------------------------------------------------------------
17! $Id: mod_psmile_io_interfaces.F90,v 1.1.1.1 2005/03/23 16:01:10 adm Exp $
18!-----------------------------------------------------------------------
19!
20!RV: Set here some OS specific preprocessor flags
21!
22#include "psmile_os.h" 
23!
24       module mod_psmile_io_interfaces
25       interface psmile_io_init_comp
26         subroutine psmile_io_init_comp(id_error)
27            use mod_kinds_model
28            integer(kind=ip_intwp_p),intent(out)::id_error
29         end subroutine psmile_io_init_comp
30       end interface
31
32       interface  psmile_def_domains
33         subroutine psmile_def_domains(id_error)
34            use mod_kinds_model
35           integer(kind=ip_intwp_p),intent(out)::id_error
36         end subroutine psmile_def_domains
37       end interface
38
39       interface psmile_def_files
40         subroutine psmile_def_files(id_error)
41            use mod_kinds_model
42           integer(kind=ip_intwp_p),intent(out)::id_error
43         end subroutine psmile_def_files
44       end interface
45
46       interface psmile_def_metadata
47         subroutine psmile_def_metadata(id_error)
48            use mod_kinds_model
49           integer(kind=ip_intwp_p),intent(out)::id_error
50         end subroutine psmile_def_metadata
51       end interface
52
53       interface psmile_close_files
54         subroutine psmile_close_files(id_error)
55            use mod_kinds_model
56           integer(kind=ip_intwp_p),intent(out)::id_error
57         end subroutine psmile_close_files
58       end interface
59
60       interface psmile_io_cleanup
61         subroutine psmile_io_cleanup(id_error)
62            use mod_kinds_model
63           integer(kind=ip_intwp_p),intent(out)::id_error
64         end subroutine psmile_io_cleanup
65       end interface
66
67       interface psmile_read
68
69         subroutine psmile_read_8(id_port_id,rd_field,id_newtime)
70            use mod_kinds_model
71           integer(kind=ip_intwp_p),intent(in)::id_newtime,id_port_id
72           REAL(kind=ip_double_p), DIMENSION(:) :: rd_field
73         end subroutine psmile_read_8
74
75#ifndef __NO_4BYTE_REALS
76         subroutine psmile_read_4(id_port_id,rd_field,id_newtime)
77               use mod_kinds_model
78           integer(kind=ip_intwp_p),intent(in)::id_newtime,id_port_id
79              REAL(kind=ip_single_p), DIMENSION(:) :: rd_field
80         end subroutine psmile_read_4
81#endif
82
83       end interface
84
85       interface psmile_write
86         subroutine psmile_write_8(id_port_id,rd_field,id_newtime)
87            use mod_kinds_model
88           integer(kind=ip_intwp_p),intent(in)::id_newtime,id_port_id
89           REAL(kind=ip_double_p), DIMENSION(:) :: rd_field
90         end subroutine psmile_write_8
91
92#ifndef __NO_4BYTE_REALS
93         subroutine psmile_write_4(id_port_id,rd_field,id_newtime)
94               use mod_kinds_model
95           integer(kind=ip_intwp_p),intent(in)::id_newtime,id_port_id
96              REAL(kind=ip_single_p), DIMENSION(:) :: rd_field
97         end subroutine psmile_write_4
98#endif
99
100       end interface
101
102       interface indexi
103         subroutine indexi(n,arr,indx)
104            use mod_kinds_model
105         integer(kind=ip_intwp_p),intent(in)::n
106         integer(kind=ip_intwp_p),intent(in)::arr(n)
107         integer(kind=ip_intwp_p),intent(out)::indx(n)
108         end subroutine indexi
109       end interface
110
111       interface combine_with_date
112         subroutine combine_with_date(cd_in,cd_mode,id_initial_date,cd_on)
113            use mod_kinds_model
114         character(len=*),intent(in)::cd_in
115         character(len=*),intent(in)::cd_mode
116         integer(kind=ip_intwp_p),intent(in)::id_initial_date(:)
117         character(len=*),intent(out)::cd_on
118         end subroutine combine_with_date
119       end interface
120
121       end module  mod_psmile_io_interfaces
Note: See TracBrowser for help on using the repository browser.