| 612 |
|
|
| 613 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
| 614 |
CBOP 1 |
CBOP 1 |
| 615 |
|
C !ROUTINE: MNC_CW_GET_FACE_NUM |
| 616 |
|
|
| 617 |
|
C !INTERFACE: |
| 618 |
|
SUBROUTINE MNC_CW_GET_FACE_NUM( |
| 619 |
|
I bi, bj, |
| 620 |
|
O uniq_fnum, |
| 621 |
|
I myThid ) |
| 622 |
|
|
| 623 |
|
C !DESCRIPTION: |
| 624 |
|
|
| 625 |
|
C !USES: |
| 626 |
|
implicit none |
| 627 |
|
#include "EEPARAMS.h" |
| 628 |
|
#include "SIZE.h" |
| 629 |
|
#ifdef ALLOW_EXCH2 |
| 630 |
|
#include "W2_EXCH2_TOPOLOGY.h" |
| 631 |
|
#include "W2_EXCH2_PARAMS.h" |
| 632 |
|
#endif |
| 633 |
|
|
| 634 |
|
C !INPUT PARAMETERS: |
| 635 |
|
integer myThid, bi,bj, uniq_fnum |
| 636 |
|
CEOP |
| 637 |
|
|
| 638 |
|
#ifdef ALLOW_EXCH2 |
| 639 |
|
|
| 640 |
|
uniq_fnum = exch2_myFace( W2_myTileList(bi) ) |
| 641 |
|
|
| 642 |
|
#else |
| 643 |
|
|
| 644 |
|
C Global face number for simple (EXCH "1") domains |
| 645 |
|
uniq_fnum = -1 |
| 646 |
|
|
| 647 |
|
#endif |
| 648 |
|
|
| 649 |
|
RETURN |
| 650 |
|
END |
| 651 |
|
|
| 652 |
|
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
| 653 |
|
CBOP 1 |
| 654 |
|
C !ROUTINE: MNC_CW_GET_XYFO |
| 655 |
|
|
| 656 |
|
C !INTERFACE: |
| 657 |
|
SUBROUTINE MNC_CW_GET_XYFO( |
| 658 |
|
I bi, bj, |
| 659 |
|
O ixoff, iyoff, |
| 660 |
|
I myThid ) |
| 661 |
|
|
| 662 |
|
C !DESCRIPTION: |
| 663 |
|
|
| 664 |
|
C !USES: |
| 665 |
|
implicit none |
| 666 |
|
#include "EEPARAMS.h" |
| 667 |
|
#include "SIZE.h" |
| 668 |
|
#ifdef ALLOW_EXCH2 |
| 669 |
|
#include "W2_EXCH2_TOPOLOGY.h" |
| 670 |
|
#include "W2_EXCH2_PARAMS.h" |
| 671 |
|
#endif |
| 672 |
|
|
| 673 |
|
C !INPUT PARAMETERS: |
| 674 |
|
integer myThid, bi,bj, ixoff,iyoff |
| 675 |
|
CEOP |
| 676 |
|
|
| 677 |
|
C !LOCAL VARIABLES: |
| 678 |
|
integer uniq_tnum |
| 679 |
|
|
| 680 |
|
#ifdef ALLOW_EXCH2 |
| 681 |
|
|
| 682 |
|
uniq_tnum = W2_myTileList(bi) |
| 683 |
|
ixoff = exch2_tbasex( uniq_tnum ) |
| 684 |
|
iyoff = exch2_tbasey( uniq_tnum ) |
| 685 |
|
|
| 686 |
|
#else |
| 687 |
|
|
| 688 |
|
C Global tile number for simple (non-cube) domains |
| 689 |
|
C iG = bi+(myXGlobalLo-1)/sNx |
| 690 |
|
C jG = bj+(myYGlobalLo-1)/sNy |
| 691 |
|
C uniq_tnum = (jG - 1)*(nPx*nSx) + iG |
| 692 |
|
ixoff = myXGlobalLo + bi * sNx |
| 693 |
|
iyoff = myYGlobalLo + bj * sNy |
| 694 |
|
|
| 695 |
|
#endif |
| 696 |
|
|
| 697 |
|
RETURN |
| 698 |
|
END |
| 699 |
|
|
| 700 |
|
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
| 701 |
|
CBOP 1 |
| 702 |
C !ROUTINE: MNC_CW_FILE_AORC |
C !ROUTINE: MNC_CW_FILE_AORC |
| 703 |
|
|
| 704 |
C !INTERFACE: |
C !INTERFACE: |
Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch