Changeset 767 for palm/trunk/SOURCE/header.f90
- Timestamp:
- Oct 14, 2011 6:39:12 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/header.f90
r760 r767 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! 6 ! Output of given initial u,v-profiles 7 7 ! 8 8 ! Former revisions: … … 1317 1317 WRITE ( io, 424 ) TRIM( coordinates ), TRIM( vgcomponent ), & 1318 1318 TRIM( gradients ), TRIM( slices ) 1319 1320 ! 1321 !-- Initial wind profiles 1322 IF ( u_profile(1) /= 9999999.9 ) WRITE ( io, 427 ) 1319 1323 1320 1324 ! … … 1925 1929 ' Gradient: ',A,' (m/s)/100m'/ & 1926 1930 ' Gridpoint: ',A) 1931 427 FORMAT (/' Initial wind profiles (u,v) are interpolated from given'// & 1932 ' profiles') 1927 1933 450 FORMAT (//' LES / Turbulence quantities:'/ & 1928 1934 ' ---------------------------'/)
Note: See TracChangeset
for help on using the changeset viewer.