Ignore:
Timestamp:
2017-10-04T18:13:47+02:00 (4 years ago)
Author:
acc
Message:

Branch 2017/dev_r8126_ROBUST08_no_ghost. Add in fixes for mono-processor operation as supplied by gm. Fully Sette-tested at this stage.

File:
1 edited

Legend:

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

    r8186 r8591  
    44#   define IBD_IN(k)                kb_bdy(k) 
    55#   define F_SIZE(ptab)             kfld 
     6#   define OPT_K(k)                 ,ipf 
    67#   if defined DIM_2d 
    78#      define ARRAY_TYPE(i,j,k,l,f)    TYPE(PTR_2D)                , INTENT(inout) ::   ptab(f) 
     
    2829#   define IBD_IN(k)                kb_bdy 
    2930#   define F_SIZE(ptab)             1 
     31#   define OPT_K(k)                  
    3032#   if defined DIM_2d 
    3133#      define ARRAY_IN(i,j,k,l,f)   ptab(i,j) 
     
    279281         ! 
    280282         SELECT CASE ( jpni ) 
    281          CASE ( 1 )     ;   CALL lbc_nfd( ptab, NAT_IN(:), SGN_IN(:) )   ! only 1 northern proc, no mpp 
    282          CASE DEFAULT   ;   CALL mpp_nfd( ptab, NAT_IN(:), SGN_IN(:) )   ! for all northern procs. 
     283         CASE ( 1 )     ;   CALL lbc_nfd( ptab, NAT_IN(:), SGN_IN(:) OPT_K(:) )   ! only 1 northern proc, no mpp 
     284         CASE DEFAULT   ;   CALL mpp_nfd( ptab, NAT_IN(:), SGN_IN(:) OPT_K(:) )   ! for all northern procs. 
    283285         END SELECT 
    284286         ! 
     
    297299#undef L_SIZE 
    298300#undef F_SIZE 
     301#undef OPT_K 
Note: See TracChangeset for help on using the changeset viewer.