Changeset c2162ce in flexpart.git for src/richardson.f90


Ignore:
Timestamp:
Mar 9, 2016, 11:00:00 AM (8 years ago)
Author:
Espen Sollum ATMOS <eso@…>
Branches:
master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
Children:
1c3c778
Parents:
7999df47
Message:

Fixed a possible array out-of-bounds error (flexpart.eu ticket #139)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • src/richardson.f90

    re200b7a rc2162ce  
    111111
    112112
    113   !alculate Richardson number at each level
     113  ! Calculate Richardson number at each level
    114114  !****************************************
    115115
     
    127127    zold=z
    128128  end do
    129 
     129  k=k-1 ! ESO: make sure k <= nuvz (ticket #139)
    13013020   continue
    131131
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG