Changes in src/concoutput.f90 [20963b1:08a38b5] in flexpart.git
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/concoutput.f90
r20963b1 r08a38b5 140 140 close(unitdates) 141 141 142 ! Overwrite existing dates file on first call, later append to it143 ! This fixes a bug where the dates file kept growing across multiple runs144 142 IF (init) THEN 145 143 file_stat='OLD' … … 315 313 drygridsigma(ix,jy)* & 316 314 sqrt(real(nclassunc)) 317 315 125 drygridsigmatotal=drygridsigmatotal+ & 318 316 drygridsigma(ix,jy) 319 317 endif
Note: See TracChangeset
for help on using the changeset viewer.