Changes in src/timemanager.f90 [c7d1052:2eefa58] in flexpart.git
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/timemanager.f90
rc7d1052 r2eefa58 408 408 #endif 409 409 else 410 if (linversionout.eq.1) then 411 call concoutput_inversion(itime,outnum,gridtotalunc,wetgridtotalunc,drygridtotalunc) 412 if (verbosity.eq.1) then 413 print*,'called concoutput_inversion' 414 call system_clock(count_clock) 415 write(*,*) 'system clock',count_clock - count_clock0 416 endif 417 else 410 418 call concoutput_surf(itime,outnum,gridtotalunc,wetgridtotalunc,drygridtotalunc) 419 endif 411 420 if (verbosity.eq.1) then 412 421 print*,'called concoutput_surf ' … … 422 431 call concoutput_nest(itime,outnum) 423 432 else 433 if(linversionout.eq.1) then 434 call concoutput_inversion_nest(itime,outnum) 435 else 424 436 call concoutput_surf_nest(itime,outnum) 437 endif 425 438 endif 426 439 else … … 451 464 45 format(i13,' Seconds simulated: ',i13, ' Particles: Uncertainty: ',3f7.3) 452 465 46 format(' Simulated ',f7.1,' hours (',i13,' s), ',i13, ' particles') 453 if (ipout.ge.1) call partoutput(itime) ! dump particle positions 466 if (ipout.ge.1) then 467 if (mod(itime,ipoutfac*loutstep).eq.0) call partoutput(itime) ! dump particle positions 468 if (ipout.eq.3) call partoutput_average(itime) ! dump particle positions 469 endif 454 470 loutnext=loutnext+loutstep 455 471 loutstart=loutnext-loutaver/2 … … 609 625 ! write (*,*) 'advance: ',prob(1),xmass1(j,1),ztra1(j) 610 626 627 ! Calculate average position for particle dump output 628 !**************************************************** 629 630 if (ipout.eq.3) call partpos_average(itime,j) 631 632 611 633 ! Calculate the gross fluxes across layer interfaces 612 634 !*************************************************** … … 730 752 if (ipout.eq.2) call partoutput(itime) ! dump particle positions 731 753 732 if (linit_cond.ge.1) call initial_cond_output(itime) ! dump initial cond. field 754 if (linit_cond.ge.1) then 755 if(linversionout.eq.1) then 756 call initial_cond_output_inversion(itime) ! dump initial cond. field 757 else 758 call initial_cond_output(itime) ! dump initial cond. fielf 759 endif 760 endif 733 761 734 762 !close(104)
Note: See TracChangeset
for help on using the changeset viewer.