New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 14903 – NEMO

Changeset 14903


Ignore:
Timestamp:
2021-05-26T16:06:17+02:00 (21 months ago)
Author:
hadcv
Message:

#2600: Fix bug with A1Di/A1Dj/A2D macros, update standard tiling namelists

Location:
NEMO/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/cfgs/ORCA2_ICE_PISCES/EXPREF/namelist_cfg

    r14840 r14903  
    4242&namtile        !   parameters of the tiling 
    4343!----------------------------------------------------------------------- 
    44    ln_tile = .false.     !  Use tiling (T) or not (F) 
    45    nn_ltile_i = 10       !  Length of tiles in i 
    46    nn_ltile_j = 10       !  Length of tiles in j 
    4744/ 
    4845!----------------------------------------------------------------------- 
  • NEMO/trunk/cfgs/SHARED/namelist_ref

    r14433 r14903  
    9999!----------------------------------------------------------------------- 
    100100   ln_tile = .false.     !  Use tiling (T) or not (F) 
    101    nn_ltile_i = 10       !  Length of tiles in i 
     101   nn_ltile_i = 99999    !  Length of tiles in i 
    102102   nn_ltile_j = 10       !  Length of tiles in j 
    103103/ 
  • NEMO/trunk/src/OCE/do_loop_substitute.h90

    r14834 r14903  
    6161#define DO_2D(L, R, B, T) DO jj = ntsj-(B), ntej+(T) ; DO ji = ntsi-(L), ntei+(R) 
    6262#define DO_2D_OVR(L, R, B, T) DO_2D(L-(L+R)*nthl, R-(R+L)*nthr, B-(B+T)*nthb, T-(T+B)*ntht) 
    63 #define A1Di(H) ntsi-H:ntei+H 
    64 #define A1Dj(H) ntsj-H:ntej+H 
     63#define A1Di(H) ntsi-(H):ntei+(H) 
     64#define A1Dj(H) ntsj-(H):ntej+(H) 
    6565#define A2D(H) A1Di(H),A1Dj(H) 
    6666#define A1Di_T(T) (ntsi-nn_hls-1)*T+1: 
Note: See TracChangeset for help on using the changeset viewer.