Ignore:
Timestamp:
Dec 23, 2013, 6:23:38 PM (9 years ago)
Author:
igpis
Message:

move version 9.1.8 form branches to trunk. Contributions from HSO, saeck, pesei, NIK, RT, XKF, IP and others

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/src/readpartpositions.f90

    r4 r20  
    7777
    7878  read(unitpartin) numpointin
    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
     79  if (numpointin.ne.numpoint) goto 995
     80999 continue
    8681  do i=1,numpointin
    8782    read(unitpartin)
     
    152147  stop
    153148
     149!995   write(*,*) ' #### FLEXPART MODEL ERROR IN READPARTPOSITIONS#### '
     150995   write(*,*) ' #### FLEXPART MODEL WARNING IN READPARTPOSITIONS#### '
     151  write(*,*) ' #### NUMBER OF RELEASE LOCATIONS DOES NOT     #### '
     152  write(*,*) ' #### AGREE WITH CURRENT SETTINGS!             #### '
     153!  stop
     154  goto 999
    154155
    155156996   write(*,*) ' #### FLEXPART MODEL ERROR IN READPARTPOSITIONS#### '
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG