Changes in / [e31b3b5:8ed5f11] in flexpart.git
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
README_PARALLEL.md
rec7fc72 r5f42c27 168 168 * NetCDF output 169 169 * Namelist input/output 170 171 -Implemented but untested: 170 172 * Domain-filling trajectory calculations 171 173 * Nested wind fields 172 174 173 -Implemented but untested:174 175 * Backward runs (but not initial_cond_output.f90)176 177 175 -The following will most probably not work (untested/under developement): 178 176 179 * Calculation/output of fluxes177 * Backward runs 180 178 181 179 -This will positively NOT work yet -
src/mpi_mod.f90
rec7fc72 r8ed5f11 120 120 logical, parameter :: mp_dbg_out = .false. 121 121 logical, parameter :: mp_time_barrier=.true. 122 logical, parameter :: mp_measure_time=. false.122 logical, parameter :: mp_measure_time=.true. 123 123 logical, parameter :: mp_exact_numpart=.true. 124 124 -
src/readspecies.f90
rec7fc72 r9484483 151 151 ! write(*,*) density(pos_spec) 152 152 read(unitspecies,'(e18.1)',end=22) dquer(pos_spec) 153 write(*,*) 'dquer(pos_spec):',dquer(pos_spec)153 ! write(*,*) dquer(pos_spec) 154 154 read(unitspecies,'(e18.1)',end=22) dsigma(pos_spec) 155 155 ! write(*,*) dsigma(pos_spec) … … 292 292 endif 293 293 294 if (( (weta(pos_spec).gt.0).or.(wetb(pos_spec).gt.0)).and.(henry(pos_spec).le.0)) then294 if ((weta(pos_spec).gt.0).and.(henry(pos_spec).le.0)) then 295 295 if (dquer(pos_spec).le.0) goto 996 ! no particle, no henry set 296 296 endif -
src/timemanager.f90
rec7fc72 r6a678e3 145 145 !CGZ-lifetime: set lifetime to 0 146 146 147 write(*,46) float(itime)/3600,itime,numpart 147 148 148 149 149 if (verbosity.gt.0) then … … 431 431 432 432 !write(*,46) float(itime)/3600,itime,numpart 433 45 format(i 13,' SECONDS SIMULATED: ',i13, ' PARTICLES: Uncertainty: ',3f7.3)434 46 format(' Simulated ',f7.1,' hours (',i 13,' s), ',i13, ' particles')433 45 format(i9,' SECONDS SIMULATED: ',i8, ' PARTICLES: Uncertainty: ',3f7.3) 434 46 format(' Simulated ',f7.1,' hours (',i9,' s), ',i8, ' particles') 435 435 if (ipout.ge.1) call partoutput(itime) ! dump particle positions 436 436 loutnext=loutnext+loutstep -
src/timemanager_mpi.f90
rec7fc72 r8ed5f11 494 494 if (mp_measure_time) call mpif_mtime('iotime',1) 495 495 496 ! :TODO: Correct calling of conc_surf above? 497 498 ! call concoutput_surf(itime,outnum,gridtotalunc,wetgridtotalunc,drygridtotalunc) 499 ! endif 500 496 501 if (nested_output.eq.1) then 497 502 … … 689 694 690 695 if (mp_measure_time) call mpif_mtime('advance',0) 696 !mp_advance_wtime_beg = mpi_wtime() 691 697 692 698 call advance(itime,npoint(j),idt(j),uap(j),ucp(j),uzp(j), & … … 695 701 696 702 if (mp_measure_time) call mpif_mtime('advance',1) 703 704 ! mp_advance_wtime_end = mpi_wtime() 705 ! mp_advance_wtime_total = mp_advance_wtime_total + (mp_advance_wtime_end - & 706 ! & mp_advance_wtime_beg) 697 707 698 708 -
src/wetdepo.f90
rec7fc72 r1c3c778 258 258 wetscav=0. 259 259 260 !ZHG test if it nested? 260 261 if (ngrid.gt.0) then 261 262 act_temp=ttn(ix,jy,hz,n,ngrid)
Note: See TracChangeset
for help on using the changeset viewer.