Changeset 143 for trunk/NEMO
- Timestamp:
- 2004-10-19T15:27:55+02:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/cpl_oce.F90
r88 r143 28 28 29 29 INTEGER, PARAMETER :: & !: 30 jpmaxfld = 40 &!: Number of maximum fields exchange betwwen30 jpmaxfld = 40 !: Number of maximum fields exchange betwwen 31 31 ! ! the ocean and the coupler 32 32 … … 41 41 42 42 INTEGER, PARAMETER :: & !: 43 jptest = 100 &!: The models will test during 2*jptest43 jptest = 100 !: The models will test during 2*jptest 44 44 ! ! seconds if the file DUMMY_SIPC has been 45 45 ! ! created by OASIS, signaling that the … … 57 57 !! Messag Passing Method (CLIM) 58 58 !! ---------------------------- 59 !!!INCLUDE '../../CPL/include/clim.h' 60 ! -- clim.h 18-08-95 Version 2.0 Author: Laurent Terray 61 ! ****** 62 ! 26-10-99 Version 2.4 Jean Latour (F.S.E.) MPI-2 support 63 !! 64 !! Contents : variables related to the CLIM library 65 !! -------- 66 !! For complete definition, see the CLIM manual 67 !! 68 INTEGER*4 CLIM_MaxMod, CLIM_MaxPort, CLIM_MaxSegments, 69 * CLIM_MaxTag, 70 * CLIM_MaxLink, 71 * CLIM_ParSize, 72 * CLIM_Clength, 73 * CLIM_MaxCodes 74 75 INTEGER*4 CLIM_Void 76 77 INTEGER*4 CLIM_In, CLIM_Out, CLIM_InOut 78 79 INTEGER*4 CLIM_Strategy, CLIM_Segments, 80 * CLIM_Serial, CLIM_Length, CLIM_Orange, 81 * CLIM_Apple, CLIM_Offset, 82 * CLIM_Box, CLIM_SizeX, CLIM_SizeY, 83 * CLIM_LdX 84 85 INTEGER*4 CLIM_Integer, CLIM_Real, CLIM_Double 86 87 INTEGER*4 CLIM_StopPvm, CLIM_ContPvm 88 89 INTEGER*4 CLIM_Ok 90 INTEGER*4 CLIM_FastExit, CLIM_BadName, CLIM_BadPort, 91 * CLIM_BadType, CLIM_DoubleDef, CLIM_NotStep, 92 * CLIM_IncStep, CLIM_IncSize, CLIM_NotClim, 93 * CLIM_TimeOut, 94 * CLIM_Pvm, CLIM_FirstCall, CLIM_PbRoute, 95 * CLIM_Group, CLIM_BadTaskId, CLIM_NoTask, 96 * CLIM_InitBuff, CLIM_Pack, CLIM_Unpack, 97 * CLIM_Down, CLIM_PvmExit 98 99 INTEGER*4 CLIM_jpmax, CLIM_jpmx8, CLIM_Mpi 100 101 !-----Parameter sizes 102 59 !!!INCLUDE '../../CPL/include/clim.h90' 60 !! 61 !! -- clim.h 18-08-95 Version 2.0 Author: Laurent Terray 62 !! ****** 63 !! 26-10-99 Version 2.4 Jean Latour (F.S.E.) MPI-2 support 64 !! 65 !! clim.h90 13-08-04 Change to F90 C. Levy 66 !!@ 67 !!@ Contents : variables related to the CLIM library 68 !!@ -------- 69 !!@ For complete definition, see the CLIM manual 70 !!@ 71 INTEGER (kind=4) CLIM_MaxMod, CLIM_MaxPort, CLIM_MaxSegments, & 72 CLIM_MaxTag, & 73 CLIM_MaxLink, & 74 CLIM_ParSize, & 75 CLIM_Clength, & 76 CLIM_MaxCodes 77 !! 78 INTEGER (kind=4) CLIM_Void 79 !! 80 INTEGER (kind=4) CLIM_In, CLIM_Out, CLIM_InOut 81 !! 82 INTEGER (kind=4) CLIM_Strategy, CLIM_Segments, & 83 CLIM_Serial, CLIM_Length, CLIM_Orange, & 84 CLIM_Apple, CLIM_Offset, & 85 CLIM_Box, CLIM_SizeX, CLIM_SizeY, & 86 CLIM_LdX 87 !! 88 INTEGER (kind=4)CLIM_Integer, CLIM_Real, CLIM_Double 89 !! 90 INTEGER (kind=4)CLIM_StopPvm, CLIM_ContPvm 91 !! 92 INTEGER (kind=4) CLIM_Ok 93 INTEGER (kind=4) CLIM_FastExit, CLIM_BadName, CLIM_BadPort, & 94 CLIM_BadType, CLIM_DoubleDef, CLIM_NotStep, & 95 CLIM_IncStep, CLIM_IncSize, CLIM_NotClim, & 96 CLIM_TimeOut, & 97 CLIM_Pvm, CLIM_FirstCall, CLIM_PbRoute, & 98 CLIM_Group, CLIM_BadTaskId, CLIM_NoTask, & 99 CLIM_InitBuff, CLIM_Pack, CLIM_Unpack, & 100 CLIM_Down, CLIM_PvmExit 101 !! 102 INTEGER (kind=4) CLIM_jpmax, CLIM_jpmx8, CLIM_Mpi 103 !! 104 !!-----Parameter sizes 105 !! 103 106 PARAMETER ( CLIM_Void = 0 ) 104 107 PARAMETER ( CLIM_MaxMod = 8 ) … … 109 112 PARAMETER ( CLIM_MaxTag = 16777215 ) 110 113 PARAMETER ( CLIM_Clength = 32 ) 111 112 ! -----Dimension of buffer for packing / unpacking messages with MPI113 ! (must be equal to jpmax of Oasis)114 114 !! 115 !!-----Dimension of buffer for packing / unpacking messages with MPI 116 !! (must be equal to jpmax of Oasis) 117 !! 115 118 PARAMETER ( CLIM_jpmax = 400000 ) 116 119 PARAMETER ( CLIM_jpmx8 = CLIM_jpmax*8 ) 117 118 ! -----Ports status119 120 !! 121 !!-----Ports status 122 !! 120 123 PARAMETER ( CLIM_In = 1 ) 121 124 PARAMETER ( CLIM_Out = 0 ) 122 125 PARAMETER ( CLIM_InOut = 2 ) 123 124 ! -----Parallel distribution125 126 !! 127 !!-----Parallel distribution 128 !! 126 129 PARAMETER ( CLIM_Strategy = 1 ) 127 130 PARAMETER ( CLIM_Segments = 2 ) … … 135 138 PARAMETER ( CLIM_SizeY = 4 ) 136 139 PARAMETER ( CLIM_LdX = 5 ) 137 138 ! -----Datatypes139 140 !! 141 !!-----Datatypes 142 !! 140 143 PARAMETER ( CLIM_Integer = 1 ) 141 144 PARAMETER ( CLIM_Real = 4 ) 142 145 PARAMETER ( CLIM_Double = 8 ) 143 144 ! -----Quit parameters145 146 !! 147 !!-----Quit parameters 148 !! 146 149 PARAMETER ( CLIM_ContPvm = 0 ) 147 150 PARAMETER ( CLIM_StopPvm = 1 ) 148 149 ! -----Error Codes150 151 !! 152 !!-----Error Codes 153 !! 151 154 PARAMETER ( CLIM_MaxCodes = -22 ) 152 153 PARAMETER ( CLIM_Ok 155 !! 156 PARAMETER ( CLIM_Ok = 0 ) 154 157 PARAMETER ( CLIM_FastExit = -1 ) 155 158 PARAMETER ( CLIM_BadName = -2 ) … … 165 168 PARAMETER ( CLIM_FirstCall = -12 ) 166 169 PARAMETER ( CLIM_PbRoute = -13 ) 167 PARAMETER 170 PARAMETER ( CLIM_Group = -14 ) 168 171 PARAMETER ( CLIM_BadTaskId = -15 ) 169 172 PARAMETER ( CLIM_NoTask = -16 ) … … 175 178 PARAMETER ( CLIM_Mpi = -22 ) 176 179 177 ! --- end of clim.h 180 !! 181 ! --- end of clim.h90 178 182 !!!END----------------------------------------------------------------- 179 183 180 !!!INCLUDE '../../CPL/include/mpiclim.h' 181 !!-- mpiclim.h 26-10-99 Version 2.4 Author: Jean Latour (F.S.E.) 182 !! ********* 183 !! 184 !! Contents : variables related to MPI-2 message passing 185 !! -------- 186 !! 187 !! -- mpi_totproc: number of processors on which to launch each model 188 !! 189 !! -- mpi_nproc: number of processors involved in the coupling for 190 !! each model 191 !! -- cmpi_modnam: models name 192 ! ----------------------------------------------------------------- 193 194 INTEGER*4 mpi_totproc(1:CLIM_MaxMod-1),mpi_nproc(0:CLIM_MaxMod-1) 195 196 CHARACTER*6 cmpi_modnam(1:CLIM_MaxMod-1) 197 184 !!!INCLUDE '../../CPL/include/mpiclim.h90' 185 !! 186 !! -- mpiclim.h 26-10-99 Version 2.4 Author: Jean Latour (F.S.E.) 187 !! ********* 188 !! mpiclim.h90 13-08-04 change to F90 C. Levy 189 !!@ 190 !!@ Contents : variables related to MPI-2 message passing 191 !!@ -------- 192 !!@ 193 !!@ -- mpi_totproc: number of processors on which to launch each model 194 !!@ 195 !!@ -- mpi_nproc: number of processors involved in the coupling for 196 !!@ each model 197 !!@ -- cmpi_modnam: models name 198 !! ----------------------------------------------------------------- 199 !! 200 INTEGER (kind=4) mpi_totproc(1:CLIM_MaxMod-1),mpi_nproc(0:CLIM_MaxMod-1) 201 !! 202 CHARACTER (len=6) cmpi_modnam(1:CLIM_MaxMod-1) 203 !! 204 common/CLIM_mpiclim/mpi_totproc, mpi_nproc, cmpi_modnam 205 !! 198 206 !!!END----------------------------------------------------------------- 199 207
Note: See TracChangeset
for help on using the changeset viewer.