Changeset c2162ce in flexpart.git


Ignore:
Timestamp:
Mar 9, 2016, 11:00:00 AM (3 years ago)
Author:
Espen Sollum ATMOS <eso@…>
Branches:
dev, release-10, univie
Children:
1c3c778
Parents:
7999df47
Message:

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

Location:
src
Files:
2 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
  • src/richardson_gfs.f90

    re200b7a rc2162ce  
    141141    zold=z
    142142  end do
    143 
     143  k=k-1 ! ESO: make sure k <= nuvz (ticket #139)
    14414420   continue
    145145
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG