Changeset f13406c in flexpart.git for src/openouttraj.f90
- Timestamp:
- Dec 23, 2013, 6:23:38 PM (10 years ago)
- Branches:
- master, 10.4.1_pesei, FPv9.3.1, FPv9.3.1b_testing, FPv9.3.2, GFS_025, NetCDF, bugfixes+enhancements, deposition, dev, fp9.3.1-20161214-nc4, grib2nc4_repair, inputlist, laptop, release-10, release-10.4.1, scaling-bug, svn-petra, svn-trunk, univie
- Children:
- 4fbe7a5
- Parents:
- e200b7a
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/openouttraj.f90
re200b7a rf13406c 54 54 55 55 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) 57 57 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) 59 59 endif 60 60 write(unitouttraj,*) method,lsubgrid,lconvection
Note: See TracChangeset
for help on using the changeset viewer.