Changeset 6ecb30a in flexpart.git for src/writeheader_surf.f90


Ignore:
Timestamp:
Aug 17, 2017, 4:39:17 PM (7 years ago)
Author:
Espen Sollum ATMOS <eso@…>
Branches:
master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
Children:
5b34509
Parents:
61e07ba
Message:

Merged changes from CTBTO project

File:
1 edited

Legend:

Unmodified
Added
Removed
  • src/writeheader_surf.f90

    rf13406c r6ecb30a  
    3535  !*****************************************************************************
    3636  !                                                                            *
     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  !                                                                            *
    3745  ! Variables:                                                                 *
    3846  !                                                                            *
     
    6775
    6876  if (ldirect.eq.1) then
    69     write(unitheader) ibdate,ibtime, trim(flexversion)
     77    write(unitheader) ibdate,ibtime, flexversion
    7078  else
    71     write(unitheader) iedate,ietime, trim(flexversion)
     79    write(unitheader) iedate,ietime, flexversion
    7280  endif
    7381
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG