- Timestamp:
- 2011-05-13T17:10:35+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/EXTERNAL/XMLIO_SERVER/src/IOSERVER/mod_event_server.f90
r2281 r2767 1 1 MODULE mod_event_server 2 USE mod_pack, ONLY : unpack , unpack_field2 USE mod_pack, ONLY : unpack_data, unpack_field 3 3 USE mod_event_parameters 4 4 USE iomanager … … 16 16 is_terminated=.FALSE. 17 17 18 CALL unpack (event_id)18 CALL unpack_data(event_id) 19 19 20 20 SELECT CASE (event_id) … … 87 87 INTEGER :: id_size 88 88 89 CALL unpack (id_size)89 CALL unpack_data(id_size) 90 90 CALL sub_internal(id_size) 91 91 … … 96 96 CHARACTER(LEN=id_size) :: id 97 97 98 CALL unpack (id)98 CALL unpack_data(id) 99 99 100 100 CALL iom__swap_context(id) … … 109 109 INTEGER :: name_size 110 110 111 CALL unpack (name_size)111 CALL unpack_data(name_size) 112 112 CALL sub_internal(name_size) 113 113 … … 118 118 CHARACTER(LEN=name_size) :: filename 119 119 120 CALL unpack (filename)120 CALL unpack_data(filename) 121 121 122 122 CALL iom__parse_xml_file(filename) … … 132 132 INTEGER :: nj_glo 133 133 134 CALL unpack (name_size)134 CALL unpack_data(name_size) 135 135 CALL sub_internal(name_size) 136 136 … … 141 141 CHARACTER(LEN=name_size) :: name 142 142 143 CALL unpack (name)144 CALL unpack (ni_glo)145 CALL unpack (nj_glo)143 CALL unpack_data(name) 144 CALL unpack_data(ni_glo) 145 CALL unpack_data(nj_glo) 146 146 147 147 CALL iom__set_grid_dimension(name,ni_glo,nj_glo) … … 161 161 REAL,ALLOCATABLE :: lat(:,:) 162 162 163 CALL unpack (name_size)163 CALL unpack_data(name_size) 164 164 CALL sub_internal(name_size) 165 165 … … 170 170 CHARACTER(LEN=name_size) :: name 171 171 172 CALL unpack (name)173 174 CALL unpack (ni)175 CALL unpack (nj)176 CALL unpack (ibegin)177 CALL unpack (jbegin)172 CALL unpack_data(name) 173 174 CALL unpack_data(ni) 175 CALL unpack_data(nj) 176 CALL unpack_data(ibegin) 177 CALL unpack_data(jbegin) 178 178 179 179 ALLOCATE(lon(ni,nj)) 180 180 ALLOCATE(lat(ni,nj)) 181 CALL unpack (lon)182 CALL unpack (lat)181 CALL unpack_data(lon) 182 CALL unpack_data(lat) 183 183 184 184 CALL iom__set_grid_domain(name,ni,nj,ibegin,jbegin,lon,lat) … … 193 193 INTEGER :: name_size 194 194 195 CALL unpack (name_size)195 CALL unpack_data(name_size) 196 196 CALL sub_internal(name_size) 197 197 … … 202 202 CHARACTER(LEN=name_size) :: name 203 203 204 CALL unpack (name)204 CALL unpack_data(name) 205 205 CALL iom__set_grid_type_nemo(name) 206 206 … … 213 213 INTEGER :: name_size 214 214 215 CALL unpack (name_size)215 CALL unpack_data(name_size) 216 216 CALL sub_internal(name_size) 217 217 … … 224 224 INTEGER :: offset 225 225 226 CALL unpack (name)227 CALL unpack (nbp)228 CALL unpack (offset)226 CALL unpack_data(name) 227 CALL unpack_data(nbp) 228 CALL unpack_data(offset) 229 229 CALL iom__set_grid_type_lmdz(name,nbp,offset) 230 230 … … 239 239 REAL,ALLOCATABLE :: vert_value(:) 240 240 241 CALL unpack (name_size)241 CALL unpack_data(name_size) 242 242 CALL sub_internal(name_size) 243 243 … … 248 248 CHARACTER(LEN=name_size) :: name 249 249 250 CALL unpack (name)251 CALL unpack (vert_size)250 CALL unpack_data(name) 251 CALL unpack_data(vert_size) 252 252 ALLOCATE(vert_value(vert_size)) 253 CALL unpack (vert_value)253 CALL unpack_data(vert_value) 254 254 255 255 CALL iom__set_vert_axis(name,vert_value) … … 264 264 REAL :: zdt 265 265 266 CALL unpack (itau0)267 CALL unpack (zjulian)268 CALL unpack (zdt)266 CALL unpack_data(itau0) 267 CALL unpack_data(zjulian) 268 CALL unpack_data(zdt) 269 269 270 270 CALL iom__set_time_parameters(itau0,zjulian,zdt) … … 277 277 INTEGER :: lenc 278 278 279 CALL unpack (lenc)279 CALL unpack_data(lenc) 280 280 CALL sub_internal(lenc) 281 281 … … 286 286 CHARACTER(len=lenc) :: varname 287 287 288 CALL unpack (varname)288 CALL unpack_data(varname) 289 289 290 290 CALL iom__enable_field(varname) … … 298 298 INTEGER :: lenc 299 299 300 CALL unpack (lenc)300 CALL unpack_data(lenc) 301 301 CALL sub_internal(lenc) 302 302 … … 307 307 CHARACTER(len=lenc) :: varname 308 308 309 CALL unpack (varname)309 CALL unpack_data(varname) 310 310 311 311 CALL iom__disable_field(varname) … … 321 321 INTEGER :: dim1 322 322 323 CALL unpack (lenc)324 CALL unpack (dim1)323 CALL unpack_data(lenc) 324 CALL unpack_data(dim1) 325 325 CALL sub_internal(lenc,dim1) 326 326 … … 333 333 REAL :: var(dim1) 334 334 335 CALL unpack (varname)335 CALL unpack_data(varname) 336 336 CALL unpack_field(var) 337 337 … … 347 347 INTEGER :: dim2 348 348 349 CALL unpack (lenc)350 CALL unpack (dim1)351 CALL unpack (dim2)349 CALL unpack_data(lenc) 350 CALL unpack_data(dim1) 351 CALL unpack_data(dim2) 352 352 CALL sub_internal(lenc,dim1,dim2) 353 353 … … 361 361 REAL :: var(dim1,dim2) 362 362 363 CALL unpack (varname)363 CALL unpack_data(varname) 364 364 CALL unpack_field(var) 365 365 … … 377 377 INTEGER :: dim3 378 378 379 CALL unpack (lenc)380 CALL unpack (dim1)381 CALL unpack (dim2)382 CALL unpack (dim3)379 CALL unpack_data(lenc) 380 CALL unpack_data(dim1) 381 CALL unpack_data(dim2) 382 CALL unpack_data(dim3) 383 383 CALL sub_internal(lenc,dim1,dim2,dim3) 384 384 … … 395 395 REAL :: var(dim1,dim2,dim3) 396 396 397 CALL unpack (varname)397 CALL unpack_data(varname) 398 398 CALL unpack_field(var) 399 399 … … 409 409 INTEGER :: timestep 410 410 411 CALL unpack (timestep)411 CALL unpack_data(timestep) 412 412 CALL iom__set_timestep(timestep) 413 413 … … 419 419 INTEGER :: lenc 420 420 421 CALL unpack (lenc)421 CALL unpack_data(lenc) 422 422 CALL sub_internal(lenc) 423 423 … … 428 428 CHARACTER(len=lenc) :: str_calendar 429 429 430 CALL unpack (str_calendar)430 CALL unpack_data(str_calendar) 431 431 432 432 CALL iom__set_calendar(str_calendar) … … 449 449 INTEGER :: len_id 450 450 451 CALL unpack (len_id)451 CALL unpack_data(len_id) 452 452 CALL sub_internal 453 453 CONTAINS … … 456 456 CHARACTER(LEN=len_id) :: id 457 457 458 CALL unpack (id)459 CALL unpack (attrib)458 CALL unpack_data(id) 459 CALL unpack_data(attrib) 460 460 CALL iom__set_attribut(id,attrib) 461 461 CALL attr_deallocate(attrib)
Note: See TracChangeset
for help on using the changeset viewer.