Changeset 1327 for palm/trunk/SOURCE/data_output_spectra.f90
- Timestamp:
- Mar 21, 2014 11:00:16 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/data_output_spectra.f90
r1325 r1327 19 19 ! 20 20 ! Current revisions: 21 ! ----------------- 21 ! ------------------ 22 ! -netcdf output queries 22 23 ! 23 24 ! Former revisions: … … 62 63 USE control_parameters, & 63 64 ONLY: average_count_sp, averaging_interval_sp, dosp_time_count, & 64 message_string, netcdf_output, run_description_header,&65 message_string, run_description_header, & 65 66 time_since_reference_point 66 67 … … 99 100 ! 100 101 !-- Open file for spectra output in NetCDF format 101 IF ( netcdf_output )CALL check_open( 107 )102 CALL check_open( 107 ) 102 103 103 104 ! … … 161 162 ! 162 163 !-- Output of spectra in NetCDF format 163 IF ( netcdf_output ) THEN 164 ! 165 !-- Output of x-spectra 166 IF ( INDEX( spectra_direction(m), 'x' ) /= 0 ) THEN 167 CALL output_spectra_netcdf( m, 'x' ) 168 ENDIF 169 ! 170 !-- Output of y-spectra 171 IF ( INDEX( spectra_direction(m), 'y' ) /= 0 ) THEN 172 CALL output_spectra_netcdf( m, 'y' ) 173 ENDIF 164 !-- Output of x-spectra 165 IF ( INDEX( spectra_direction(m), 'x' ) /= 0 ) THEN 166 CALL output_spectra_netcdf( m, 'x' ) 167 ENDIF 168 ! 169 !-- Output of y-spectra 170 IF ( INDEX( spectra_direction(m), 'y' ) /= 0 ) THEN 171 CALL output_spectra_netcdf( m, 'y' ) 174 172 ENDIF 175 173
Note: See TracChangeset
for help on using the changeset viewer.