Changeset e52967c in flexpart.git for src/conccalc_mpi.f90
- Timestamp:
- Jun 4, 2017, 8:57:12 PM (7 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
- Children:
- db375cc
- Parents:
- 72d3a5a
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/conccalc_mpi.f90
r4c64400 re52967c 118 118 p4=ddx*ddy 119 119 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 120 126 do il=2,nz 121 127 if (height(il).gt.ztra1(i)) then
Note: See TracChangeset
for help on using the changeset viewer.