Ignore:
Timestamp:
2017-12-13T14:57:33+01:00 (3 years ago)
Author:
acc
Message:

Branch dev_CNRS_2017. Merge in no_ghost changes from dev_r8126_ROBUST08_no_ghost. These changes include lib_mpp refresh and rationalisation of mppini from dev_r8126_ROBUST10_MPPINI

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/LBC/lbc_lnk_generic.h90

    r8882 r9012  
    33#   define SGN_IN(k)                psgn(k) 
    44#   define F_SIZE(ptab)             kfld 
     5#   define OPT_K(k)                 ,ipf 
    56#   if defined DIM_2d 
    67#      define ARRAY_TYPE(i,j,k,l,f)    TYPE(PTR_2D)                , INTENT(inout) ::   ptab(f) 
     
    2627#   define SGN_IN(k)                psgn 
    2728#   define F_SIZE(ptab)             1 
     29#   define OPT_K(k)                  
    2830#   if defined DIM_2d 
    2931#      define ARRAY_IN(i,j,k,l,f)   ptab(i,j) 
     
    100102            ELSEIF( ll_nfd ) THEN                  !* north fold 
    101103               IF( .NOT. NAT_IN(jf) == 'F' )   ARRAY_IN(:, 1 ,:,:,jf) = zland    ! south except F-point 
    102                CALL lbc_nfd( ptab, NAT_IN(:), SGN_IN(:) )                       ! north fold treatment          
     104               CALL lbc_nfd( ptab, NAT_IN(:), SGN_IN(:) OPT_K(:) )                       ! north fold treatment          
    103105            ELSE                                   !* closed 
    104106               IF( .NOT. NAT_IN(jf) == 'F' )   ARRAY_IN(:, 1 ,:,:,jf) = zland    ! south except F-point 
     
    119121#undef L_SIZE 
    120122#undef F_SIZE 
     123#undef OPT_K 
Note: See TracChangeset for help on using the changeset viewer.