Changeset e52967c in flexpart.git for src/advance.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/advance.f90
r94735e2 re52967c 242 242 dt2=real(memtime(2)-itime) 243 243 dtt=1./(dt1+dt2) 244 245 ! eso: Temporary fix for particle exactly at north pole 246 if (jyp >= nymax) then 247 ! write(*,*) 'WARNING: advance.f90 jyp >= nymax. xt,yt:',xt,yt 248 jyp=jyp-1 249 end if 244 250 245 251 ! Compute maximum mixing height around particle position
Note: See TracChangeset
for help on using the changeset viewer.