Changeset 175 for palm/trunk/SOURCE/netcdf.f90
- Timestamp:
- Jul 8, 2008 8:29:06 AM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/netcdf.f90
r144 r175 7 7 ! Current revisions: 8 8 ! ------------------ 9 ! bug fix in the determination of the number of output heights for spectra 10 ! 9 11 ! user-defined spectra 10 12 ! … … 3057 3059 !-- shall be output 3058 3060 ns = 1 3059 DO WHILE ( comp_spectra_level(ns) /= 999999 .AND. ns <= 10 0)3061 DO WHILE ( comp_spectra_level(ns) /= 999999 .AND. ns <= 10 ) 3060 3062 ns = ns + 1 3061 3063 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.