Changeset 8809


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.

Location:
branches/2017/dev_r8126_ROBUST08_no_ghost/NEMOGCM/NEMO/OPA_SRC/LBC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8126_ROBUST08_no_ghost/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

    r8758 r8809  
    454454#     include "mpp_bdy_generic.h90" 
    455455#     undef ROUTINE_BDY 
    456 #     define MULTI 
    457 #     define ROUTINE_BDY           mpp_lnk_bdy_2d_ptr 
    458 #     include "mpp_bdy_generic.h90" 
    459 #     undef ROUTINE_BDY 
    460 #     undef MULTI 
    461456#  undef DIM_2d 
    462457   ! 
     
    467462#     include "mpp_bdy_generic.h90" 
    468463#     undef ROUTINE_BDY 
    469 #     define MULTI 
    470 #     define ROUTINE_BDY           mpp_lnk_bdy_3d_ptr 
    471 #     include "mpp_bdy_generic.h90" 
    472 #     undef ROUTINE_BDY 
    473 #     undef MULTI 
    474464#  undef DIM_3d 
    475465   ! 
     
    480470!!#     include "mpp_bdy_generic.h90" 
    481471!!#     undef ROUTINE_BDY 
    482 !!#     define MULTI 
    483 !!#     define ROUTINE_BDY           mpp_lnk_bdy_4d_ptr 
    484 !!#     include "mpp_bdy_generic.h90" 
    485 !!#     undef ROUTINE_BDY 
    486 !!#     undef MULTI 
    487472!!#  undef DIM_4d 
    488473 
     
    572557         SELECT CASE ( jpni ) 
    573558!!gm ERROR        CASE ( 1 )     ;   CALL lbc_nfd        ( pt2d(1:jpi,1:jpj+jprj), cd_type, psgn, pr2dj=jprj ) 
    574 !!gm ERROR         CASE DEFAULT   ;   CALL mpp_lbc_north_e( pt2d                  , cd_type, psgn             ) 
     559                  CASE DEFAULT   ;   CALL mpp_lbc_north_e( pt2d                  , cd_type, psgn             ) 
    575560         END SELECT 
    576561         ! 
     
    17691754         SELECT CASE ( jpni ) 
    17701755!!gm ERROR         CASE ( 1 )     ;   CALL lbc_nfd        ( pt2d(1:jpi,1:jpj+jprj), cd_type, psgn, pr2dj=jprj ) 
    1771 !!gm ERROR         CASE DEFAULT   ;   CALL mpp_lbc_north_icb( pt2d(1:jpi,1:jpj+jprj)  , cd_type, psgn , pr2dj=jprj  ) 
     1756                   CASE DEFAULT   ;   CALL mpp_lbc_north_icb( pt2d(1:jpi,1:jpj+jprj)  , cd_type, psgn , pr2dj=jprj  ) 
    17721757         END SELECT 
    17731758         ! 
  • 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.