Changes in src/FLEXPART.f90 [2eefa58:50958b8] in flexpart.git
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/FLEXPART.f90
r2eefa58 r50958b8 68 68 integer :: detectformat 69 69 70 71 72 ! Initialize arrays in com_mod 73 !***************************** 74 call com_mod_allocate_part(maxpart) 70 75 76 71 77 ! Generate a large number of random numbers 72 78 !****************************************** … … 137 143 write(*,*) 'call readpaths' 138 144 endif 139 call readpaths 145 call readpaths(pathfile) 140 146 141 147 if (verbosity.gt.1) then !show clock info … … 166 172 endif 167 173 168 ! Initialize arrays in com_mod169 !*****************************170 call com_mod_allocate_part(maxpart)171 172 173 174 ! Read the age classes to be used 174 175 !******************************** … … 452 453 endif 453 454 454 if (verbosity.gt.0) write (*,*) 'timemanager> call wetdepo'455 455 call timemanager(metdata_format) 456 457 458 if (verbosity.gt.0) then 456 459 457 ! NIK 16.02.2005 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 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 472 467 473 468 write(*,*) 'CONGRATULATIONS: YOU HAVE SUCCESSFULLY COMPLETED A FLE&
Note: See TracChangeset
for help on using the changeset viewer.