Changeset f06b72a in flexpart.git
- Timestamp:
- Nov 19, 2020, 10:11:13 AM (3 years ago)
- Branches:
- GFS_025, dev
- Children:
- 5635973
- Parents:
- f04024b
- Location:
- src
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
src/FLEXPART_MPI.f90
r92fab65 rf06b72a 73 73 ! FLEXPART version string 74 74 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)' 76 76 verbosity=0 77 77 -
src/par_mod.f90
ra803521 rf06b72a 205 205 !************************************************** 206 206 207 integer,parameter :: maxpart=1000000 0207 integer,parameter :: maxpart=1000000 208 208 integer,parameter :: maxspec=6 209 209 -
src/plumetraj.f90
rf04024b rf06b72a 216 216 !****************************************** 217 217 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,& 219 219 &5(2f8.3,f7.0,f6.1,f8.1))')& 220 220 &j,itime-(ireleasestart(j)+ireleaseend(j))/2, & -
src/timemanager_mpi.f90
ra803521 rf06b72a 894 894 !***************************************************************************** 895 895 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 899 900 900 901 ! 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 902 904 903 905 if (ipout.eq.2) then
Note: See TracChangeset
for help on using the changeset viewer.