Ignore:
Timestamp:
2017-11-24T16:12:14+01:00 (3 years ago)
Author:
acc
Message:

Branch 2017/dev_r8126_ROBUST08_no_ghost. Remove multi forms of the mpp_bdy_lnk routines generated by mpp_bdy_generic.h90. They are not used and would not be an effective optimisation because of the loop over different boundaries.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8126_ROBUST08_no_ghost/NEMOGCM/NEMO/OPA_SRC/LBC/mpp_bdy_generic.h90

    r8758 r8809  
    1 #if defined MULTI 
    2 #   define NAT_IN(k)                cd_nat(k)    
    3 #   define SGN_IN(k)                psgn(k) 
    4 #   define IBD_IN(k)                kb_bdy(k) 
    5 #   define F_SIZE(ptab)             kfld 
    6 #   define OPT_K(k)                 ,ipf 
    7 #   if defined DIM_2d 
    8 #      define ARRAY_TYPE(i,j,k,l,f)    TYPE(PTR_2D)                , INTENT(inout) ::   ptab(f) 
    9 #      define ARRAY_IN(i,j,k,l,f)      ptab(f)%pt2d(i,j) 
    10 #      define K_SIZE(ptab)             1 
    11 #      define L_SIZE(ptab)             1 
    12 #   endif 
    13 #   if defined DIM_3d 
    14 #      define ARRAY_TYPE(i,j,k,l,f)    TYPE(PTR_3D)                , INTENT(inout) ::   ptab(f) 
    15 #      define ARRAY_IN(i,j,k,l,f)      ptab(f)%pt3d(i,j,k) 
    16 #      define K_SIZE(ptab)             SIZE(ptab(1)%pt3d,3) 
    17 #      define L_SIZE(ptab)             1 
    18 #   endif 
    19 #   if defined DIM_4d 
    20 #      define ARRAY_TYPE(i,j,k,l,f)    TYPE(PTR_4D)                , INTENT(inout) ::   ptab(f) 
    21 #      define ARRAY_IN(i,j,k,l,f)      ptab(f)%pt4d(i,j,k,l) 
    22 #      define K_SIZE(ptab)             SIZE(ptab(1)%pt4d,3) 
    23 #      define L_SIZE(ptab)             SIZE(ptab(1)%pt4d,4) 
    24 #   endif 
    25 #else 
    261#   define ARRAY_TYPE(i,j,k,l,f)    REAL(wp)                    , INTENT(inout) ::   ARRAY_IN(i,j,k,l,f) 
    272#   define NAT_IN(k)                cd_nat 
     
    4520#      define L_SIZE(ptab)          SIZE(ptab,4) 
    4621#   endif 
    47 #endif 
    48  
    49 #if defined MULTI 
    50    SUBROUTINE ROUTINE_BDY( ptab, cd_nat, psgn, kfld, kb_bdy ) 
    51       INTEGER                     , INTENT(in   ) ::   kfld        ! number of pt3d arrays 
    52 #else 
     22 
    5323   SUBROUTINE ROUTINE_BDY( ptab, cd_nat, psgn      , kb_bdy ) 
    54 #endif 
    5524      !!---------------------------------------------------------------------- 
    5625      !!                  ***  routine mpp_lnk_bdy_3d  *** 
Note: See TracChangeset for help on using the changeset viewer.