Changes from branches/FLEXPART_9.1.3/src/readpartpositions.f90 at r13 to trunk/src/readpartpositions.f90 at r4
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/src/readpartpositions.f90
r13 r4 77 77 78 78 read(unitpartin) numpointin 79 if (numpointin.ne.numpoint) goto 995 79 if (numpointin.ne.numpoint) then 80 write(*,*) ' #### WARNING #### ' 81 write(*,*) ' #### NUMBER OF RELEASE LOCATIONS DOES NOT #### ' 82 write(*,*) ' #### AGREE WITH CURRENT SETTINGS! #### ' 83 write(*,*) ' #### THIS IS JUST A CHECK TO SEE IF YOU READ #### ' 84 write(*,*) ' #### THE CORRECT PARTICLE DUMP FILE. #### ' 85 endif 80 86 do i=1,numpointin 81 87 read(unitpartin) … … 146 152 stop 147 153 148 995 write(*,*) ' #### FLEXPART MODEL ERROR IN READPARTPOSITIONS#### '149 write(*,*) ' #### NUMBER OF RELEASE LOCATIONS DOES NOT #### '150 write(*,*) ' #### AGREE WITH CURRENT SETTINGS! #### '151 stop152 154 153 155 996 write(*,*) ' #### FLEXPART MODEL ERROR IN READPARTPOSITIONS#### '
Note: See TracChangeset
for help on using the changeset viewer.