Changeset 363 for trunk/SOURCES


Ignore:
Timestamp:
12/06/22 16:21:23 (19 months ago)
Author:
dumas
Message:

Change bounds (i-1 & j-1) for case 3 in Qprod_icetemp to avoid out of bounds in I,J loop.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/SOURCES/Temperature-routines/Qprod_icetemp.f90

    r71 r363  
    442442 
    443443 
    444      do J=2,Ny 
    445         do I=2,Nx 
     444     do J=2,Ny-1 
     445        do I=2,Nx-1 
    446446           Pente2_maj(I,J)=(Sdx(I,J)+Sdx(I+1,J))**2 + & 
    447447                (Sdy(I,J)+Sdy(I,J+1))**2 
    … …  
    631631 
    632632 
    633      do J=2,Ny 
    634         do I=2,Nx 
     633     do J=2,Ny-1 
     634        do I=2,Nx-1 
    635635 
    636636 
Note: See TracChangeset for help on using the changeset viewer.