source: LMDZ.3.3/trunk/libf/phylmd/clim.h @ 346

Last change on this file since 346 was 2, checked in by lmdz, 25 years ago

Initial revision

  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 3.4 KB
Line 
1C
2C     - - - - - - - - - - - - - - - - - - - - - - - - -
3C
4C*    =clim.h=  CLIM 1.1 include file
5C               Coupling Library for Interfacing Models
6C
7C     - - - - - - - - - - - - - - - - - - - - - - - - -
8C
9      INTEGER*4 CLIM_Void
10C
11      INTEGER*4 CLIM_MaxMod,
12     *          CLIM_MaxPort,   
13     *          CLIM_MaxSegments,
14     *          CLIM_MaxTag,
15     *          CLIM_MaxLink,
16     *          CLIM_ParSize,
17     *          CLIM_Clength
18C
19      INTEGER*4 CLIM_In,        CLIM_Out,       CLIM_InOut
20C
21      INTEGER*4 CLIM_Strategy,  CLIM_Serial,
22     *          CLIM_Apple,     CLIM_Orange,    CLIM_Box,
23     *          CLIM_Segments,  CLIM_Length,    CLIM_Offset,
24     *          CLIM_SizeX,     CLIM_SizeY,     CLIM_LdX
25C
26      INTEGER*4 CLIM_Integer,   CLIM_Real,      CLIM_Double
27C
28      INTEGER*4 CLIM_StopPvm,   CLIM_ContPvm
29C
30      INTEGER*4 CLIM_MaxCodes,  CLIM_Ok,
31     *          CLIM_FastExit,  CLIM_BadName,   CLIM_BadPort,
32     *          CLIM_BadType,   CLIM_DoubleDef, CLIM_NotStep,
33     *          CLIM_IncStep,   CLIM_IncSize,   CLIM_NotClim,
34     *          CLIM_TimeOut,
35     *          CLIM_Pvm,       CLIM_FirstCall, CLIM_PbRoute,
36     *          CLIM_Group,     CLIM_BadTaskId, CLIM_NoTask,
37     *          CLIM_InitBuff,  CLIM_Pack,      CLIM_Unpack,
38     *          CLIM_Down,      CLIM_PvmExit
39C
40C-----Parameter sizes
41C
42      PARAMETER ( CLIM_Void    = 0  )
43      PARAMETER ( CLIM_MaxMod  = 8 )
44      PARAMETER ( CLIM_MaxPort = 16 )
45      PARAMETER ( CLIM_MaxSegments = 160 )
46      PARAMETER ( CLIM_MaxLink = CLIM_MaxMod * CLIM_MaxPort )
47      PARAMETER ( CLIM_ParSize = 2 * CLIM_MaxSegments + 2 )
48      PARAMETER ( CLIM_MaxTag  = 16777215 )
49      PARAMETER ( CLIM_Clength = 32 )
50C
51C-----Ports status
52C
53      PARAMETER ( CLIM_In      = 1 )
54      PARAMETER ( CLIM_Out     = 0 )
55      PARAMETER ( CLIM_InOut   = 2 )
56C
57C-----Parallel distribution
58C
59      PARAMETER ( CLIM_Strategy = 1 )
60      PARAMETER ( CLIM_Segments = 2 )
61      PARAMETER ( CLIM_Serial   = 0 )
62      PARAMETER ( CLIM_Apple    = 1 )
63      PARAMETER ( CLIM_Box      = 2 )
64      PARAMETER ( CLIM_Orange   = 3 )
65      PARAMETER ( CLIM_Offset   = 2 )
66      PARAMETER ( CLIM_Length   = 3 )
67      PARAMETER ( CLIM_SizeX    = 3 )
68      PARAMETER ( CLIM_SizeY    = 4 )
69      PARAMETER ( CLIM_LdX      = 5 )
70C
71C-----Datatypes
72C
73      PARAMETER ( CLIM_Integer = 1 )
74      PARAMETER ( CLIM_Real    = 4 ) 
75      PARAMETER ( CLIM_Double  = 8 )
76C
77C-----Quit parameters
78C
79      PARAMETER ( CLIM_ContPvm = 0 )
80      PARAMETER ( CLIM_StopPvm = 1 )
81C
82C-----Error Codes
83C
84      PARAMETER ( CLIM_MaxCodes  = -21 )
85C
86      PARAMETER ( CLIM_Ok        = 0 )
87      PARAMETER ( CLIM_FastExit  = -1 )
88      PARAMETER ( CLIM_BadName   = -2 )
89      PARAMETER ( CLIM_BadPort   = -3 )
90      PARAMETER ( CLIM_BadType   = -4 )
91      PARAMETER ( CLIM_DoubleDef = -5 )
92      PARAMETER ( CLIM_NotStep   = -6 )
93      PARAMETER ( CLIM_IncStep   = -7 )
94      PARAMETER ( CLIM_IncSize   = -8 )
95      PARAMETER ( CLIM_NotClim   = -9 )
96      PARAMETER ( CLIM_TimeOut   = -10 )
97      PARAMETER ( CLIM_Pvm       = -11 )
98      PARAMETER ( CLIM_FirstCall = -12 )
99      PARAMETER ( CLIM_PbRoute   = -13 )
100      PARAMETER ( CLIM_Group     = -14 )
101      PARAMETER ( CLIM_BadTaskId = -15 )
102      PARAMETER ( CLIM_NoTask    = -16 )
103      PARAMETER ( CLIM_InitBuff  = -17 )
104      PARAMETER ( CLIM_Pack      = -18 )
105      PARAMETER ( CLIM_Unpack    = -19 )
106      PARAMETER ( CLIM_Down      = -20 )
107      PARAMETER ( CLIM_PvmExit   = -21 )
108C
109C-----End of clim.h
Note: See TracBrowser for help on using the repository browser.