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/openouttraj.f90

    r4 r20  
    5454
    5555  if (ldirect.eq.1) then
    56   write(unitouttraj,'(i8,1x,i6,1x,a)') ibdate,ibtime,'FLEXPART V8.2'
     56  write(unitouttraj,'(i8,1x,i6,1x,a)') ibdate,ibtime, trim(flexversion)
    5757  else
    58   write(unitouttraj,'(i8,1x,i6,1x,a)') iedate,ietime,'FLEXPART V8.2'
     58  write(unitouttraj,'(i8,1x,i6,1x,a)') iedate,ietime, trim(flexversion)
    5959  endif
    6060  write(unitouttraj,*) method,lsubgrid,lconvection
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG