Changeset 189 for palm/trunk/SOURCE/netcdf.f90
- Timestamp:
- Aug 13, 2008 5:09:26 PM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/netcdf.f90
r175 r189 7 7 ! Current revisions: 8 8 ! ------------------ 9 ! consistently allow 100 spectra levels instead of 10 9 10 ! bug fix in the determination of the number of output heights for spectra 10 11 ! … … 3059 3060 !-- shall be output 3060 3061 ns = 1 3061 DO WHILE ( comp_spectra_level(ns) /= 999999 .AND. ns <= 10 )3062 DO WHILE ( comp_spectra_level(ns) /= 999999 .AND. ns <= 100 ) 3062 3063 ns = ns + 1 3063 3064 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.