Changeset 4339 for palm/trunk/SOURCE/header.f90
- Timestamp:
- Dec 13, 2019 6:18:30 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/header.f90
r4309 r4339 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Bugfix, character length too short, caused crash on NEC. 28 ! 29 ! 4309 2019-11-26 18:49:59Z suehring 27 30 ! replaced recycling_yshift by y_shift 28 31 ! … … 138 141 CHARACTER (LEN=5) :: section_chr !< string indicating grid information where to output 2D slices 139 142 140 CHARACTER (LEN=10) :: coor_chr !< string for subsidence velocities in large-scale forcing141 143 CHARACTER (LEN=10) :: host_chr !< string for hostname 142 144 143 145 CHARACTER (LEN=16) :: begin_chr !< string indication start time for the data output 146 CHARACTER (LEN=16) :: coor_chr !< dummy string 144 147 145 148 CHARACTER (LEN=26) :: ver_rev !< string for run identification
Note: See TracChangeset
for help on using the changeset viewer.