Changes in src/FLEXPART.f90 [50958b8:0a94e13] in flexpart.git
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/FLEXPART.f90
r50958b8 r0a94e13 68 68 integer :: detectformat 69 69 70 71 72 ! Initialize arrays in com_mod73 !*****************************74 call com_mod_allocate_part(maxpart)75 70 76 77 71 ! Generate a large number of random numbers 78 72 !****************************************** … … 172 166 endif 173 167 168 ! Initialize arrays in com_mod 169 !***************************** 170 call com_mod_allocate_part(maxpart) 171 172 174 173 ! Read the age classes to be used 175 174 !******************************** … … 455 454 call timemanager(metdata_format) 456 455 456 if (verbosity.gt.0) then 457 457 ! NIK 16.02.2005 458 do i=1,nspec 459 write(*,*) '**********************************************' 460 write(*,*) 'Scavenging statistics for species ', species(i), ':' 461 write(*,*) 'Total number of occurences of below-cloud scavenging', & 462 & tot_blc_count(i) 463 write(*,*) 'Total number of occurences of in-cloud scavenging', & 464 & tot_inc_count(i) 465 write(*,*) '**********************************************' 466 end do 458 do i=1,nspec 459 if (tot_inc_count(i).gt.0) then 460 write(*,*) '**********************************************' 461 write(*,*) 'Scavenging statistics for species ', species(i), ':' 462 write(*,*) 'Total number of occurences of below-cloud scavenging', & 463 & tot_blc_count(i) 464 write(*,*) 'Total number of occurences of in-cloud scavenging', & 465 & tot_inc_count(i) 466 write(*,*) '**********************************************' 467 endif 468 end do 469 write (*,*) 'timemanager> call wetdepo' 470 endif 467 471 468 472 write(*,*) 'CONGRATULATIONS: YOU HAVE SUCCESSFULLY COMPLETED A FLE&
Note: See TracChangeset
for help on using the changeset viewer.