Changes in src/timemanager_mpi.f90 [0f7835d:861805a] in flexpart.git
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/timemanager_mpi.f90
r0f7835d r861805a 104 104 105 105 logical :: reqv_state=.false. ! .true. if waiting for a MPI_Irecv to complete 106 integer :: j,ks,kp,l,n,itime=0,nstop,nstop1,memstat=0 !,mind106 integer :: j,ks,kp,l,n,itime=0,nstop,nstop1,memstat=0 107 107 ! integer :: ksp 108 108 integer :: ip … … 155 155 156 156 do itime=0,ideltas,lsynctime 157 157 158 158 159 ! Computation of wet deposition, OH reaction and mass transfer … … 166 167 !******************************************************************** 167 168 168 if (mp_d ev_mode) write(*,*) 'myid, itime: ',mp_pid,itime169 if (mp_dbg_mode) write(*,*) 'myid, itime: ',mp_pid,itime 169 170 170 171 if (WETDEP .and. itime .ne. 0 .and. numpart .gt. 0) then … … 274 275 275 276 if (mp_measure_time.and..not.(lmpreader.and.lmp_use_reader)) call mpif_mtime('getfields',1) 277 278 ! For validation and tests: call the function below to set all fields to simple 279 ! homogeneous values 280 ! if (mp_dev_mode) call set_fields_synthetic 281 282 !******************************************************************************* 276 283 277 284 if (lmpreader.and.nstop1.gt.1) stop 'NO METEO FIELDS AVAILABLE' … … 324 331 call releaseparticles(itime) 325 332 endif 333 334 335 ! Check if particles should be redistributed among processes 336 !*********************************************************** 337 call mpif_calculate_part_redist(itime) 326 338 327 339 … … 542 554 ! Decide whether to write an estimate of the number of particles released, 543 555 ! or exact number (require MPI reduce operation) 544 if (mp_d ev_mode) then556 if (mp_dbg_mode) then 545 557 numpart_tot_mpi = numpart 546 558 else … … 549 561 550 562 if (mp_exact_numpart.and..not.(lmpreader.and.lmp_use_reader).and.& 551 &.not.mp_d ev_mode) then563 &.not.mp_dbg_mode) then 552 564 call MPI_Reduce(numpart, numpart_tot_mpi, 1, MPI_INTEGER, MPI_SUM, id_root, & 553 565 & mp_comm_used, mp_ierr) … … 555 567 556 568 !CGZ-lifetime: output species lifetime 557 if (lroot.or.mp_d ev_mode) then569 if (lroot.or.mp_dbg_mode) then 558 570 ! write(*,*) 'Overview species lifetime in days', & 559 571 ! real((species_lifetime(:,1)/species_lifetime(:,2))/real(3600.0*24.0)) … … 565 577 ! end if 566 578 end if 579 580 ! Write particles for all processes 581 if (mp_dev_mode) write(*,*) "PID, itime, numpart", mp_pid,itime,numpart 582 567 583 568 584 45 format(i13,' SECONDS SIMULATED: ',i13, ' PARTICLES: Uncertainty: ',3f7.3)
Note: See TracChangeset
for help on using the changeset viewer.