Changeset e9e0f06 in flexpart.git for src/FLEXPART.f90
- Timestamp:
- Dec 12, 2018, 1:35:46 PM (5 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug
- Children:
- 79996be9
- Parents:
- db91eb7
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/FLEXPART.f90
ra9cf4b1 re9e0f06 451 451 call timemanager(metdata_format) 452 452 453 if (verbosity.gt.0) then 453 454 ! NIK 16.02.2005 454 do i=1,nspec 455 write(*,*) '**********************************************' 456 write(*,*) 'Scavenging statistics for species ', species(i), ':' 457 write(*,*) 'Total number of occurences of below-cloud scavenging', & 458 & tot_blc_count(i) 459 write(*,*) 'Total number of occurences of in-cloud scavenging', & 460 & tot_inc_count(i) 461 write(*,*) '**********************************************' 462 end do 455 do i=1,nspec 456 if (tot_inc_count(i).gt.0) then 457 write(*,*) '**********************************************' 458 write(*,*) 'Scavenging statistics for species ', species(i), ':' 459 write(*,*) 'Total number of occurences of below-cloud scavenging', & 460 & tot_blc_count(i) 461 write(*,*) 'Total number of occurences of in-cloud scavenging', & 462 & tot_inc_count(i) 463 write(*,*) '**********************************************' 464 endif 465 end do 466 write (*,*) 'timemanager> call wetdepo' 467 endif 463 468 464 469 write(*,*) 'CONGRATULATIONS: YOU HAVE SUCCESSFULLY COMPLETED A FLE&
Note: See TracChangeset
for help on using the changeset viewer.