Changes in src/timemanager_mpi.f90 [16b61a5:3b80e98] in flexpart.git
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/timemanager_mpi.f90
r16b61a5 r3b80e98 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 106 integer :: j,ks,kp,l,n,itime=0,nstop,nstop1,memstat=0 !,mind 107 107 ! integer :: ksp 108 108 integer :: ip … … 155 155 156 156 do itime=0,ideltas,lsynctime 157 158 157 159 158 ! Computation of wet deposition, OH reaction and mass transfer … … 167 166 !******************************************************************** 168 167 169 if (mp_d bg_mode) write(*,*) 'myid, itime: ',mp_pid,itime168 if (mp_dev_mode) write(*,*) 'myid, itime: ',mp_pid,itime 170 169 171 170 if (WETDEP .and. itime .ne. 0 .and. numpart .gt. 0) then … … 331 330 call releaseparticles(itime) 332 331 endif 333 334 335 ! Check if particles should be redistributed among processes336 !***********************************************************337 call mpif_calculate_part_redist(itime)338 332 339 333 … … 554 548 ! Decide whether to write an estimate of the number of particles released, 555 549 ! or exact number (require MPI reduce operation) 556 if (mp_d bg_mode) then550 if (mp_dev_mode) then 557 551 numpart_tot_mpi = numpart 558 552 else … … 561 555 562 556 if (mp_exact_numpart.and..not.(lmpreader.and.lmp_use_reader).and.& 563 &.not.mp_d bg_mode) then557 &.not.mp_dev_mode) then 564 558 call MPI_Reduce(numpart, numpart_tot_mpi, 1, MPI_INTEGER, MPI_SUM, id_root, & 565 559 & mp_comm_used, mp_ierr) … … 567 561 568 562 !CGZ-lifetime: output species lifetime 569 if (lroot.or.mp_d bg_mode) then563 if (lroot.or.mp_dev_mode) then 570 564 ! write(*,*) 'Overview species lifetime in days', & 571 565 ! real((species_lifetime(:,1)/species_lifetime(:,2))/real(3600.0*24.0)) … … 577 571 ! end if 578 572 end if 579 580 ! Write number of particles for all processes581 if (mp_dev_mode) write(*,*) "PID, itime, numpart", mp_pid,itime,numpart582 583 573 584 574 45 format(i13,' SECONDS SIMULATED: ',i13, ' PARTICLES: Uncertainty: ',3f7.3) … … 870 860 endif 871 861 deallocate(gridunc) 872 deallocate(xpoint1,xpoint2,ypoint1,ypoint2,zpoint1,zpoint2,xmass) 873 if (allocated(checklifetime)) deallocate(checklifetime) 862 deallocate(xpoint1,xpoint2,ypoint1,ypoint2,zpoint1,zpoint2,xmass, checklifetime) 874 863 deallocate(ireleasestart,ireleaseend,npart,kindz) 875 864 deallocate(xmasssave)
Note: See TracChangeset
for help on using the changeset viewer.