Changes in / [1a04fab:b012d4d] in flexpart.git
- Location:
- src
- Files:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
src/com_mod.f90
r62e65c7 r05cf28d 373 373 !ZHG Sep 2015 374 374 ! real :: icloud_stats(0:nxmax-1,0:nymax-1,5,numwfmem) 375 real :: ctwc(0:nxmax-1,0:nymax-1,numwfmem) ! ESO: =icloud_stats(:,:,4,:)375 real :: ctwc(0:nxmax-1,0:nymax-1,numwfmem) ! eso: =icloud_stats(:,:,4,:) 376 376 377 377 -
src/ecmwf_mod.f90
r62e65c7 r8ed5f11 51 51 !********************************************* 52 52 53 integer,parameter :: maxnests=0,nxmaxn=361,nymaxn=181 53 integer,parameter :: maxnests=1,nxmaxn=361,nymaxn=181 54 ! integer,parameter :: maxnests=1,nxmaxn=86,nymaxn=31 54 55 55 56 ! nxmax,nymax maximum dimension of wind fields in x and y -
src/gfs_mod.f90
r62e65c7 r8ed5f11 49 49 !********************************************* 50 50 51 integer,parameter :: maxnests= 0,nxmaxn=361,nymaxn=18151 integer,parameter :: maxnests=1,nxmaxn=361,nymaxn=181 52 52 53 53 ! nxmax,nymax maximum dimension of wind fields in x and y -
src/mpi_mod.f90
r62e65c7 r341f4b7 103 103 logical :: lmp_use_reader=.false. ! true if separate readwind process is used 104 104 105 ! .true. if only using synchronous MPI send/recv (default)105 ! true if only using synchronous MPI send/recv: 106 106 ! If setting this to .false., numwfmem must be set to 3 107 107 !=============================================================================== … … 208 208 !********************************************* 209 209 210 if (.not.lmp_sync.and.numwfmem.ne.3) then 211 if (lroot) then 212 write(*,FMT='(80("#"))') 213 write(*,*) '#### mpi_mod::mpif_init> ERROR: ', & 214 & 'numwfmem must be set to 3 for asyncronous reading ####' 215 write(*,FMT='(80("#"))') 216 end if 217 call MPI_FINALIZE(mp_ierr) 210 if (.not.lmp_sync.and.numwfmem.ne.3.and.lroot) then 211 write(*,FMT='(80("#"))') 212 write(*,*) '#### mpi_mod::mpif_init> ERROR: ', & 213 & 'numwfmem must be set to 3 for asyncronous reading ####' 214 write(*,FMT='(80("#"))') 218 215 stop 219 216 else if (lmp_sync.and.numwfmem.ne.2.and.lroot) then … … 221 218 write(*,*) '#### mpi_mod::mpif_init> WARNING: ', & 222 219 & 'numwfmem should be set to 2 for syncronous' 223 write(*,*) ' reading. Results will still be valid, but unneccesary memory &224 &isallocated.'220 write(*,*) ' reading. Results will still be valid, but unneccesary ' 221 write(*,*) 'amount of memory is being allocated.' 225 222 write(*,FMT='(80("#"))') 226 223 ! Force "syncronized" version if all processes will call getfields -
src/par_mod.f90
r62e65c7 r05cf28d 89 89 real,parameter :: rho_water=1000. !ZHG 2015 [kg/m3] 90 90 !ZHG MAR2016 91 real,parameter :: incloud_ratio= 6.291 real,parameter :: incloud_ratio=2.2 92 92 93 93 ! karman Karman's constant … … 186 186 !************************************************** 187 187 188 integer,parameter :: maxpart= 20000000189 integer,parameter :: maxspec= 6188 integer,parameter :: maxpart=1000000 189 integer,parameter :: maxspec=1 190 190 real,parameter :: minmass=0.0001 191 191 -
src/readpaths.f90
r62e65c7 r5f9d14a 82 82 83 83 do i=1,maxnests 84 ! ESO 2016 Added 'end'/'err' in case user forgot '====' at end of file and 85 ! maxnests > numbnests 86 read(unitpath,'(a)', end=30, err=30) path(numpath+2*(i-1)+1) 87 read(unitpath,'(a)', end=30, err=30) path(numpath+2*(i-1)+2) 84 read(unitpath,'(a)') path(numpath+2*(i-1)+1) 85 read(unitpath,'(a)') path(numpath+2*(i-1)+2) 88 86 if (path(numpath+2*(i-1)+1)(1:5).eq.'=====') goto 30 89 87 length(numpath+2*(i-1)+1)=index(path(numpath+2*(i-1)+1),' ')-1 -
src/readspecies.f90
r62e65c7 r05cf28d 223 223 224 224 if (lroot) then 225 ! ZHG 2016.04.07 Start of changes226 write(*,*) ' '227 if (dquer(pos_spec) .gt.0) write(*,'(a,i3,a,a,a)') ' SPECIES: ', &228 &id_spec,' ', species(pos_spec),' (AEROSOL) '229 if (dquer(pos_spec) .le.0) write(*,'(a,i3,a,a,a)') ' SPECIES: ', &230 &id_spec,' ', species(pos_spec),' (GAS) '231 232 225 ! Particles 233 226 !**********
Note: See TracChangeset
for help on using the changeset viewer.