Changeset 13506


Ignore:
Timestamp:
2020-09-24T09:12:24+02:00 (4 months ago)
Author:
smasson
Message:

trunk: avoid unnecessary division by 0 in gls

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/ZDF/zdfgls.F90

    r13497 r13506  
    220220      zhsro(:,:) = ( (1._wp-zice_fra(:,:)) * zhsro(:,:) + zice_fra(:,:) * rn_hsri )*tmask(:,:,1)  + (1._wp - tmask(:,:,1))*rn_hsro 
    221221      ! 
    222       DO_3D( 1, 0, 1, 0, 2, jpkm1 )  !==  Compute dissipation rate  ==! 
     222      DO_3D( 0, 0, 0, 0, 2, jpkm1 )  !==  Compute dissipation rate  ==! 
    223223         eps(ji,jj,jk)  = rc03 * en(ji,jj,jk) * SQRT( en(ji,jj,jk) ) / hmxl_n(ji,jj,jk) 
    224224      END_3D 
Note: See TracChangeset for help on using the changeset viewer.