Changeset e52967c in flexpart.git for src/conccalc_mpi.f90


Ignore:
Timestamp:
Jun 4, 2017, 8:57:12 PM (7 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:
db375cc
Parents:
72d3a5a
Message:

Quick fix for segmentation fault when particle is at north pole

File:
1 edited

Legend:

Unmodified
Added
Removed
  • src/conccalc_mpi.f90

    r4c64400 re52967c  
    118118      p4=ddx*ddy
    119119
     120! eso: Temporary fix for particle exactly at north pole
     121      if (jyp >= nymax) then
     122        ! write(*,*) 'WARNING: conccalc.f90 jyp >= nymax'
     123        jyp=jyp-1
     124      end if
     125
    120126      do il=2,nz
    121127        if (height(il).gt.ztra1(i)) then
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG