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 13511 for NEMO/releases/r4.0/r4.0-HEAD/src/OCE/ZDF/zdfgls.F90 – NEMO

Ignore:
Timestamp:
2020-09-24T10:55:10+02:00 (4 years ago)
Author:
smasson
Message:

r4.0-HEAD: avoid unnecessary division by 0 in gls, correspond to [13506]

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/releases/r4.0/r4.0-HEAD/src/OCE/ZDF/zdfgls.F90

    r13492 r13511  
    225225      ! 
    226226      DO jk = 2, jpkm1              !==  Compute dissipation rate  ==! 
    227          DO jj = 1, jpjm1 
    228             DO ji = 1, jpim1 
     227         DO jj = 2, jpjm1 
     228            DO ji = 2, jpim1 
    229229               eps(ji,jj,jk)  = rc03 * en(ji,jj,jk) * SQRT( en(ji,jj,jk) ) / hmxl_n(ji,jj,jk) 
    230230            END DO 
Note: See TracChangeset for help on using the changeset viewer.