source: CPL/oasis3-mct/branches/OASIS3-MCT_2.0_branch/lib/psmile/src/mod_oasis_parameters.F90 @ 4775

Last change on this file since 4775 was 4775, checked in by aclsce, 5 years ago
  • Imported oasis3-mct from Cerfacs svn server (not suppotred anymore).

The version has been extracted from ​https://oasis3mct.cerfacs.fr/svn/branches/OASIS3-MCT_2.0_branch/oasis3-mct@1818
File size: 7.6 KB
Line 
1MODULE mod_oasis_parameters
2!
3! -- clim.h   18-08-95   Version 2.0   Author: Laurent Terray
4!    ******
5!             26-10-99   Version 2.4   Jean Latour (F.S.E.) MPI-2 support
6!@
7! -- mod_clim_proto.f90  12-06-02  Version 3.0   A. Caubel
8! --                     20-05-03  added PRISM_Recvd/Sent   S.Legutke
9     
10!    ******************
11!
12!@  Contents : variables related to the CLIM library
13!@  --------
14!@
15!
16  USE mod_oasis_kinds
17  INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_Ok       = 0 
18  INTEGER (kind=ip_intwp_p), PARAMETER :: OASIS_Ok       = PRISM_Ok
19
20!-----Ports status
21
22  INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_NotDef            = -2 
23  INTEGER (kind=ip_intwp_p), PARAMETER :: OASIS_NotDef            = PRISM_NotDef
24  INTEGER (kind=ip_intwp_p), PARAMETER :: OASIS_Var_Uncpl         = -1
25  INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_Out               = 20 
26  INTEGER (kind=ip_intwp_p), PARAMETER :: OASIS_Out               = PRISM_Out
27  INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_In                = 21
28  INTEGER (kind=ip_intwp_p), PARAMETER :: OASIS_In                = PRISM_In
29  INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_InOut             = 2 
30  INTEGER (kind=ip_intwp_p), PARAMETER :: OASIS_InOut             = PRISM_InOut
31  INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_Recvd             = 3 
32  INTEGER (kind=ip_intwp_p), PARAMETER :: OASIS_Recvd             = PRISM_Recvd
33  INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_Sent              = 4 
34  INTEGER (kind=ip_intwp_p), PARAMETER :: OASIS_Sent              = PRISM_Sent
35  INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_LocTrans          = 5
36  INTEGER (kind=ip_intwp_p), PARAMETER :: OASIS_LocTrans          = PRISM_LocTrans
37  INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_ToRest            = 6
38  INTEGER (kind=ip_intwp_p), PARAMETER :: OASIS_ToRest            = PRISM_ToRest
39  INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_Output            = 7
40  INTEGER (kind=ip_intwp_p), PARAMETER :: OASIS_Output            = PRISM_Output
41  INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_SentOut           = 8
42  INTEGER (kind=ip_intwp_p), PARAMETER :: OASIS_SentOut           = PRISM_SentOut
43  INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_ToRestOut         = 9
44  INTEGER (kind=ip_intwp_p), PARAMETER :: OASIS_ToRestOut         = PRISM_ToRestOut
45  INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_FromRest          = 10
46  INTEGER (kind=ip_intwp_p), PARAMETER :: OASIS_FromRest          = PRISM_FromRest
47  INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_Input             = 11
48  INTEGER (kind=ip_intwp_p), PARAMETER :: OASIS_Input             = PRISM_Input
49  INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_RecvOut           = 12
50  INTEGER (kind=ip_intwp_p), PARAMETER :: OASIS_RecvOut           = PRISM_RecvOut
51  INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_FromRestOut       = 13
52  INTEGER (kind=ip_intwp_p), PARAMETER :: OASIS_FromRestOut       = PRISM_FromRestOut
53  INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_Waitforallingroup = 14
54  INTEGER (kind=ip_intwp_p), PARAMETER :: OASIS_Waitforallingroup = PRISM_Waitforallingroup
55
56!-----Coupler Comm Status
57
58  INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_NONE        = 100
59  INTEGER (kind=ip_intwp_p), PARAMETER :: OASIS_NONE        = PRISM_NONE
60  INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_COMM_READY  = 101
61  INTEGER (kind=ip_intwp_p), PARAMETER :: OASIS_COMM_READY  = PRISM_COMM_READY
62  INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_COMM_WAIT   = 102
63  INTEGER (kind=ip_intwp_p), PARAMETER :: OASIS_COMM_WAIT   = PRISM_COMM_WAIT
64  INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_PUT         = 103
65  INTEGER (kind=ip_intwp_p), PARAMETER :: OASIS3_PUT         = PRISM_PUT
66  INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_GET         = 104
67  INTEGER (kind=ip_intwp_p), PARAMETER :: OASIS3_GET         = PRISM_GET
68
69!-----Field status
70
71  INTEGER (kind=ip_intwp_p), PARAMETER :: ip_exported  = 1
72  INTEGER (kind=ip_intwp_p), PARAMETER :: ip_ignored   = 2
73  INTEGER (kind=ip_intwp_p), PARAMETER :: ip_input     = 3
74  INTEGER (kind=ip_intwp_p), PARAMETER :: ip_output    = 4
75  INTEGER (kind=ip_intwp_p), PARAMETER :: ip_expout    = 5
76  INTEGER (kind=ip_intwp_p), PARAMETER :: ip_ignout    = 6
77  INTEGER (kind=ip_intwp_p), PARAMETER :: ip_auxilary  = 7
78
79!----Field local transformation
80
81  INTEGER (kind=ip_intwp_p), PARAMETER :: ip_instant = 1
82  INTEGER (kind=ip_intwp_p), PARAMETER :: ip_average = 2
83  INTEGER (kind=ip_intwp_p), PARAMETER :: ip_accumul = 3
84  INTEGER (kind=ip_intwp_p), PARAMETER :: ip_min     = 4
85  INTEGER (kind=ip_intwp_p), PARAMETER :: ip_max     = 5
86
87!----Field conserv option
88
89  INTEGER (kind=ip_intwp_p), PARAMETER :: ip_cnone   = 0
90  INTEGER (kind=ip_intwp_p), PARAMETER :: ip_cglobal = 1
91  INTEGER (kind=ip_intwp_p), PARAMETER :: ip_cglbpos = 2
92  INTEGER (kind=ip_intwp_p), PARAMETER :: ip_cbasbal = 4
93  INTEGER (kind=ip_intwp_p), PARAMETER :: ip_cbaspos = 5
94
95!-----Parallel distribution
96
97  INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_Strategy = 1 
98  INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_Segments = 2 
99
100  INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_Serial   = 0 
101  INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_Apple    = 1 
102  INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_Box      = 2 
103  INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_Orange   = 3 
104  INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_Points   = 4 
105
106  INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_Offset   = 2 
107  INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_Length   = 3 
108  INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_SizeX    = 3 
109  INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_SizeY    = 4 
110  INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_LdX      = 5 
111
112!-----Datatypes
113
114  INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_Real   = 4 
115  INTEGER (kind=ip_intwp_p), PARAMETER :: OASIS_Real   = PRISM_Real
116  INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_Double = 8 
117  INTEGER (kind=ip_intwp_p), PARAMETER :: OASIS_Double = PRISM_Double
118
119!-----Quit parameters
120!
121!  INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_ContPvm = 0
122!  INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_StopPvm = 1
123!
124!-----Error Codes
125!
126!  INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_MaxCodes  = -22
127!
128!  INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_Ok       = 0
129!  INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_FastExit  = -1
130!  INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_BadName   = -2
131!  INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_BadPort   = -3
132!  INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_BadType   = -4
133!  INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_DoubleDef= -5
134!  INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_NotStep   = -6
135!  INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_IncStep   = -7
136!  INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_IncSize   = -8
137!  INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_NotClim   = -9
138!  INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_TimeOut   = -10
139!  INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_Pvm       = -11
140!  INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_FirstCall = -12
141!  INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_PbRoute   = -13
142!  INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_Group     = -14
143!  INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_BadTaskId = -15
144!  INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_NoTask    = -16
145!  INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_InitBuff  = -17
146!  INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_Pack      = -18
147!  INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_Unpack    = -19
148!  INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_Down      = -20
149!  INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_PvmExit   = -21
150!  INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_Mpi       = -22
151!  INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_NotFreq  = -23
152!
153
154END MODULE mod_oasis_parameters
155
Note: See TracBrowser for help on using the repository browser.