Changes in src/FLEXPART.f90 [50958b8:2eefa58] in flexpart.git
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/FLEXPART.f90
r50958b8 r2eefa58 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 !****************************************** … … 143 137 write(*,*) 'call readpaths' 144 138 endif 145 call readpaths (pathfile)139 call readpaths 146 140 147 141 if (verbosity.gt.1) then !show clock info … … 171 165 endif 172 166 endif 167 168 ! Initialize arrays in com_mod 169 !***************************** 170 call com_mod_allocate_part(maxpart) 171 173 172 174 173 ! Read the age classes to be used … … 453 452 endif 454 453 454 if (verbosity.gt.0) write (*,*) 'timemanager> call wetdepo' 455 455 call timemanager(metdata_format) 456 456 457 458 if (verbosity.gt.0) then 457 459 ! 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 460 do i=1,nspec 461 if (tot_inc_count(i).gt.0) then 462 write(*,*) '**********************************************' 463 write(*,*) 'Scavenging statistics for species ', species(i), ':' 464 write(*,*) 'Total number of occurences of below-cloud scavenging', & 465 & tot_blc_count(i) 466 write(*,*) 'Total number of occurences of in-cloud scavenging', & 467 & tot_inc_count(i) 468 write(*,*) '**********************************************' 469 endif 470 end do 471 endif 467 472 468 473 write(*,*) 'CONGRATULATIONS: YOU HAVE SUCCESSFULLY COMPLETED A FLE&
Note: See TracChangeset
for help on using the changeset viewer.