← Back to branch summary

~fluidity-core/fluidity/sea-ice-coupling

« back to all changes in this revision

Viewing changes to femtools/Parallel_fields.F90

  • Committer: Simon Mouradian
  • Date: 2012-10-09 20:00:15 UTC
  • Revision ID: mouradian@gmail.com-20121009200015-7hztzrng2bkqgz1t
revert last trunk merge, something broke

Show diffs side-by-side

added added

removed removed

Lines of Context:
femtools/Parallel_fields.F90
284
284
    !!< Return .true. if ELEMENT_NUMBER has a neighbour in MESH that
285
285
    !!< is owned by this process otherwise .false.
286
286
 
287
 
    !! Note, you cannot use this function to compute if
288
 
    !! ELEMENT_NUMBER is owned.  Imagine if this is the only owned
289
 
    !! element on a process, then none of the neighbours will be owned.
290
 
    !! You can use this function to compute whether ELEMENT_NUMBER is
291
 
    !! in the L1 element halo.
 
287
    !! Effectively, this computes whether ELEMENT_NUMBER is in the L1
 
288
    !! halo.
292
289
    type(mesh_type), intent(in) :: mesh
293
290
    integer, intent(in) :: element_number
294
291
    logical :: owned
314
311
    !!< Return .true. if ELEMENT_NUMBER has a neighbour in FIELD that
315
312
    !!< is owned by this process otherwise .false.
316
313
 
317
 
    !! Note, you cannot use this function to compute if
318
 
    !! ELEMENT_NUMBER is owned.  Imagine if this is the only owned
319
 
    !! element on a process, then none of the neighbours will be owned.
320
 
    !! You can use this function to compute whether ELEMENT_NUMBER is
321
 
    !! in the L1 element halo.
 
314
    !! Effectively, this computes whether ELEMENT_NUMBER is in the L1
 
315
    !! halo.
322
316
    type(scalar_field), intent(in) :: field
323
317
    integer, intent(in) :: element_number
324
318
    logical :: owned
330
324
    !!< Return .true. if ELEMENT_NUMBER has a neighbour in FIELD that
331
325
    !!< is owned by this process otherwise .false.
332
326
 
333
 
    !! Note, you cannot use this function to compute if
334
 
    !! ELEMENT_NUMBER is owned.  Imagine if this is the only owned
335
 
    !! element on a process, then none of the neighbours will be owned.
336
 
    !! You can use this function to compute whether ELEMENT_NUMBER is
337
 
    !! in the L1 element halo.
 
327
    !! Effectively, this computes whether ELEMENT_NUMBER is in the L1
 
328
    !! halo.
338
329
    type(vector_field), intent(in) :: field
339
330
    integer, intent(in) :: element_number
340
331
    logical :: owned
346
337
    !!< Return .true. if ELEMENT_NUMBER has a neighbour in FIELD that
347
338
    !!< is owned by this process otherwise .false.
348
339
 
349
 
    !! Note, you cannot use this function to compute if
350
 
    !! ELEMENT_NUMBER is owned.  Imagine if this is the only owned
351
 
    !! element on a process, then none of the neighbours will be owned.
352
 
    !! You can use this function to compute whether ELEMENT_NUMBER is
353
 
    !! in the L1 element halo.
 
340
    !! Effectively, this computes whether ELEMENT_NUMBER is in the L1
 
341
    !! halo.
354
342
    type(tensor_field), intent(in) :: field
355
343
    integer, intent(in) :: element_number
356
344
    logical :: owned