Changeset 6ecb30a in flexpart.git for src/writeheader_surf.f90
- Timestamp:
- Aug 17, 2017, 4:39:17 PM (7 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
- Children:
- 5b34509
- Parents:
- 61e07ba
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/writeheader_surf.f90
rf13406c r6ecb30a 35 35 !***************************************************************************** 36 36 ! * 37 ! Modified to remove TRIM around the output of flexversion so that * 38 ! it will be a constant length (defined in com_mod.f90) in output header * 39 ! * 40 ! Don Morton, Boreal Scientific Computing * 41 ! 07 May 2017 * 42 ! * 43 !***************************************************************************** 44 ! * 37 45 ! Variables: * 38 46 ! * … … 67 75 68 76 if (ldirect.eq.1) then 69 write(unitheader) ibdate,ibtime, trim(flexversion)77 write(unitheader) ibdate,ibtime, flexversion 70 78 else 71 write(unitheader) iedate,ietime, trim(flexversion)79 write(unitheader) iedate,ietime, flexversion 72 80 endif 73 81
Note: See TracChangeset
for help on using the changeset viewer.