Changeset 5887


Ignore:
Timestamp:
2015-11-13T17:45:21+01:00 (5 years ago)
Author:
clem
Message:

debug. BDY sea ice is implemented only on the outermost grid point (nblenrim) and not on the whole relaxation zone (nblen)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/BDY/bdyice_lim.F90

    r5215 r5887  
    115115      ! 
    116116#if defined key_lim2 
    117       DO jb = 1, idx%nblen(jgrd) 
     117      DO jb = 1, idx%nblenrim(jgrd) 
    118118         ji    = idx%nbi(jb,jgrd) 
    119119         jj    = idx%nbj(jb,jgrd) 
     
    135135 
    136136      DO jl = 1, jpl 
    137          DO jb = 1, idx%nblen(jgrd) 
     137         DO jb = 1, idx%nblenrim(jgrd) 
    138138            ji    = idx%nbi(jb,jgrd) 
    139139            jj    = idx%nbj(jb,jgrd) 
     
    171171 
    172172      DO jl = 1, jpl 
    173          DO jb = 1, idx%nblen(jgrd) 
     173         DO jb = 1, idx%nblenrim(jgrd) 
    174174            ji    = idx%nbi(jb,jgrd) 
    175175            jj    = idx%nbj(jb,jgrd) 
     
    324324                
    325325               jgrd = 2      ! u velocity 
    326                DO jb = 1, idx_bdy(ib_bdy)%nblen(jgrd) 
     326               DO jb = 1, idx_bdy(ib_bdy)%nblenrim(jgrd) 
    327327                  ji    = idx_bdy(ib_bdy)%nbi(jb,jgrd) 
    328328                  jj    = idx_bdy(ib_bdy)%nbj(jb,jgrd) 
     
    353353                
    354354               jgrd = 3      ! v velocity 
    355                DO jb = 1, idx_bdy(ib_bdy)%nblen(jgrd) 
     355               DO jb = 1, idx_bdy(ib_bdy)%nblenrim(jgrd) 
    356356                  ji    = idx_bdy(ib_bdy)%nbi(jb,jgrd) 
    357357                  jj    = idx_bdy(ib_bdy)%nbj(jb,jgrd) 
Note: See TracChangeset for help on using the changeset viewer.