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 15277 – NEMO

Changeset 15277


Ignore:
Timestamp:
2021-09-22T15:19:40+02:00 (15 months ago)
Author:
clem
Message:

trunk: debug an out of bound in Richardson zdf

File:
1 edited

Legend:

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

    r14982 r15277  
    157157      ! 
    158158      !                       !==  avm and avt = F(Richardson number)  ==! 
    159       DO_3D_OVR( nn_hls, nn_hls-1, nn_hls, nn_hls-1, 2, jpkm1 )       ! coefficient = F(richardson number) (avm-weighted Ri) 
     159      DO_3D_OVR( nn_hls-1, nn_hls-1, nn_hls-1, nn_hls-1, 2, jpkm1 )       ! coefficient = F(richardson number) (avm-weighted Ri) 
    160160         zcfRi = 1._wp / (  1._wp + rn_alp * MAX(  0._wp , avm(ji,jj,jk) * rn2(ji,jj,jk) / ( p_sh2(ji,jj,jk) + 1.e-20 ) )  ) 
    161161         zav   = rn_avmri * zcfRi**nn_ric 
Note: See TracChangeset for help on using the changeset viewer.