Changeset f06b72a in flexpart.git


Ignore:
Timestamp:
Nov 19, 2020, 10:11:13 AM (3 years ago)
Author:
Espen Sollum ATMOS <eso@…>
Branches:
GFS_025, dev
Children:
5635973
Parents:
f04024b
Message:

MPI: Fix for initial condition field

Location:
src
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • src/FLEXPART_MPI.f90

    r92fab65 rf06b72a  
    7373  ! FLEXPART version string
    7474  flexversion_major = '10' ! Major version number, also used for species file names
    75   flexversion='Ver. '//trim(flexversion_major)//'.2beta MPI (2017-08-01)'
     75  flexversion='Ver '//trim(flexversion_major)//'.4 MPI (2019-11-12)'
    7676  verbosity=0
    7777
  • src/par_mod.f90

    ra803521 rf06b72a  
    205205  !**************************************************
    206206
    207   integer,parameter :: maxpart=10000000
     207  integer,parameter :: maxpart=1000000
    208208  integer,parameter :: maxspec=6
    209209
  • src/plumetraj.f90

    rf04024b rf06b72a  
    216216  !******************************************
    217217
    218       write(unitouttraj,'(i5,1x,i8,2f9.4,4f8.1,f8.2,4f8.1,3f6.1,&
     218      write(unitouttraj,'(i5,2x,i9,2x,2f9.4,4f8.1,f8.2,4f8.1,3f6.1,&
    219219           &5(2f8.3,f7.0,f6.1,f8.1))')&
    220220           &j,itime-(ireleasestart(j)+ireleaseend(j))/2, &
  • src/timemanager_mpi.f90

    ra803521 rf06b72a  
    894894!*****************************************************************************
    895895
    896   do j=1,numpart
    897     if (linit_cond.ge.1) call initial_cond_calc(itime,j)
    898   end do
     896  if (linit_cond.ge.1) then
     897    do j=1,numpart
     898      call initial_cond_calc(itime,j)
     899    end do
    899900
    900901! Transfer sum of init_cond field to root process, for output
    901   call mpif_tm_reduce_initcond
     902    call mpif_tm_reduce_initcond
     903  end if
    902904   
    903905  if (ipout.eq.2) then
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG