Changeset 8a65cb0 in flexpart.git for src/convmix.f90
- Timestamp:
- Mar 2, 2015, 3:11:55 PM (9 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
- Children:
- 1d207bb
- Parents:
- 60403cd
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/convmix.f90
re200b7a r8a65cb0 44 44 integer :: jy, kpart, ktop, ngrid,kz 45 45 integer :: igrid(maxpart), ipoint(maxpart), igridn(maxpart,maxnests) 46 46 47 ! itime [s] current time 47 48 ! igrid(maxpart) horizontal grid position of each particle … … 132 133 end do 133 134 134 ! sumall = 0.135 ! sumconv = 0.135 ! sumall = 0. 136 ! sumconv = 0. 136 137 137 138 !***************************************************************************** … … 155 156 if (igr .eq. -1) goto 50 156 157 ipart = ipoint(kpart) 157 ! 158 ! sumall = sumall + 1 158 159 if (igr .ne. igrold) then 159 160 ! we are in a new grid column … … 228 229 if (igr .eq. -1) goto 60 229 230 ipart = ipoint(kpart) 230 !sumall = sumall + 1231 ! sumall = sumall + 1 231 232 if (igr .ne. igrold) then 232 233 ! we are in a new grid column … … 285 286 end do 286 287 !-------------------------------------------------------------------------- 287 ! write(*,*)'############################################'288 ! write(*,*)'TIME=',288 ! write(*,*)'############################################' 289 ! write(*,*)'TIME=',& 289 290 ! & itime 290 ! write(*,*)'fraction of particles under convection',291 ! write(*,*)'fraction of particles under convection',& 291 292 ! & sumconv/(sumall+0.001) 292 ! write(*,*)'total number of particles',293 ! write(*,*)'total number of particles',& 293 294 ! & sumall 294 ! write(*,*)'number of particles under convection',295 ! write(*,*)'number of particles under convection',& 295 296 ! & sumconv 296 ! write(*,*)'############################################'297 ! write(*,*)'############################################' 297 298 298 299 return
Note: See TracChangeset
for help on using the changeset viewer.