Oasis3 4.0.2
|
00001 MODULE mod_prism_proto 00002 ! 00003 ! -- clim.h 18-08-95 Version 2.0 Author: Laurent Terray 00004 ! ****** 00005 ! 26-10-99 Version 2.4 Jean Latour (F.S.E.) MPI-2 support 00006 !@ 00007 ! -- mod_clim_proto.f90 12-06-02 Version 3.0 A. Caubel 00008 ! -- 20-05-03 added PRISM_Recvd/Sent S.Legutke 00009 00010 ! ****************** 00011 ! 00012 !@ Contents : variables related to the CLIM library 00013 !@ -------- 00014 !@ 00015 ! 00016 USE mod_kinds_model 00017 INTEGER (kind=ip_intwp_p) :: CLIM_MaxTag 00018 ! 00019 !-----Parameter sizes 00020 ! 00021 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_Void = 0 00022 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_MaxSegments = 338 00023 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_ParSize = 2*CLIM_MaxSegments+2 00024 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_Clength = 32 00025 ! 00026 !-----Dimension of buffer for packing / unpacking messages with MPI 00027 ! 00028 INTEGER (kind=ip_intwp_p) :: ig_maxtype, ig_maxtype_field, ig_CLIMmax 00029 ! 00030 !-----Ports status 00031 ! 00032 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_In = 1 00033 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_Out = 0 00034 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_InOut = 2 00035 INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_NotDef = -2 00036 INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_In = 1 00037 INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_Out = 0 00038 INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_InOut = 2 00039 INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_Recvd = 3 00040 INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_Sent = 4 00041 INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_LocTrans = 5 00042 INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_ToRest = 6 00043 INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_Output = 7 00044 INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_SentOut = 8 00045 INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_ToRestOut = 9 00046 INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_FromRest = 10 00047 INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_Input = 11 00048 INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_RecvOut = 12 00049 INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_FromRestOut = 13 00050 00051 ! 00052 !-----Field status 00053 ! 00054 INTEGER (kind=ip_intwp_p), PARAMETER :: ip_exported = 1 00055 INTEGER (kind=ip_intwp_p), PARAMETER :: ip_ignored = 2 00056 INTEGER (kind=ip_intwp_p), PARAMETER :: ip_input = 3 00057 INTEGER (kind=ip_intwp_p), PARAMETER :: ip_output = 4 00058 INTEGER (kind=ip_intwp_p), PARAMETER :: ip_expout = 5 00059 INTEGER (kind=ip_intwp_p), PARAMETER :: ip_ignout = 6 00060 INTEGER (kind=ip_intwp_p), PARAMETER :: ip_auxilary = 7 00061 ! 00062 !----Field local transformation 00063 ! 00064 INTEGER (kind=ip_intwp_p), PARAMETER :: ip_instant = 1 00065 INTEGER (kind=ip_intwp_p), PARAMETER :: ip_average = 2 00066 INTEGER (kind=ip_intwp_p), PARAMETER :: ip_accumul = 3 00067 INTEGER (kind=ip_intwp_p), PARAMETER :: ip_min = 4 00068 INTEGER (kind=ip_intwp_p), PARAMETER :: ip_max = 5 00069 ! 00070 !-----Parallel distribution 00071 ! 00072 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_Strategy = 1 00073 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_Segments = 2 00074 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_Serial = 0 00075 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_Apple = 1 00076 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_Box = 2 00077 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_Orange = 3 00078 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_Offset = 2 00079 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_Length = 3 00080 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_SizeX = 3 00081 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_SizeY = 4 00082 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_LdX = 5 00083 ! 00084 !-----Datatypes 00085 ! 00086 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_Integer = 1 00087 INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_Real = 4 00088 INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_Double = 8 00089 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_Real = 4 00090 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_Double = 8 00091 !-----Quit parameters 00092 ! 00093 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_ContPvm = 0 00094 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_StopPvm = 1 00095 ! 00096 !-----Error Codes 00097 ! 00098 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_MaxCodes = -22 00099 ! 00100 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_Ok = 0 00101 INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_Ok = 0 00102 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_FastExit = -1 00103 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_BadName = -2 00104 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_BadPort = -3 00105 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_BadType = -4 00106 INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_DoubleDef = -5 00107 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_NotStep = -6 00108 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_IncStep = -7 00109 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_IncSize = -8 00110 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_NotClim = -9 00111 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_TimeOut = -10 00112 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_Pvm = -11 00113 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_FirstCall = -12 00114 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_PbRoute = -13 00115 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_Group = -14 00116 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_BadTaskId = -15 00117 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_NoTask = -16 00118 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_InitBuff = -17 00119 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_Pack = -18 00120 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_Unpack = -19 00121 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_Down = -20 00122 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_PvmExit = -21 00123 INTEGER (kind=ip_intwp_p), PARAMETER :: CLIM_Mpi = -22 00124 INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_NotFreq = -23 00125 ! 00126 00127 END MODULE mod_prism_proto 00128