Changeset 4559 for palm/trunk/SOURCE/data_output_flight.f90
- Timestamp:
- Jun 11, 2020 8:51:48 AM (4 years ago)
- File:
-
- 1 edited
-
palm/trunk/SOURCE/data_output_flight.f90 (modified) (6 diffs)
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/data_output_flight.f90
r4360 r4559 1 1 !> @file data_output_flight.f90 2 !------------------------------------------------------------------------------ !2 !--------------------------------------------------------------------------------------------------! 3 3 ! This file is part of the PALM model system. 4 4 ! 5 ! PALM is free software: you can redistribute it and/or modify it under the 6 ! terms of the GNU General Public License as published by the Free Software 7 ! Foundation, either version 3 of the License, or (at your option) any later 8 ! version. 5 ! PALM is free software: you can redistribute it and/or modify it under the terms of the GNU General 6 ! Public License as published by the Free Software Foundation, either version 3 of the License, or 7 ! (at your option) any later version. 9 8 ! 10 ! PALM is distributed in the hope that it will be useful, but WITHOUT ANY 11 ! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR12 ! A PARTICULAR PURPOSE. See the GNU GeneralPublic License for more details.9 ! PALM is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the 10 ! implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General 11 ! Public License for more details. 13 12 ! 14 ! You should have received a copy of the GNU General Public License along with 15 ! PALM. If not, see<http://www.gnu.org/licenses/>.13 ! You should have received a copy of the GNU General Public License along with PALM. If not, see 14 ! <http://www.gnu.org/licenses/>. 16 15 ! 17 16 ! Copyright 1997-2020 Leibniz Universitaet Hannover 18 !------------------------------------------------------------------------------ !17 !--------------------------------------------------------------------------------------------------! 19 18 ! 20 19 ! Current revisions: … … 25 24 ! ----------------- 26 25 ! $Id$ 26 ! file re-formatted to follow the PALM coding standard 27 ! 28 ! 4360 2020-01-07 11:25:50Z suehring 27 29 ! Corrected "Former revisions" section 28 ! 30 ! 29 31 ! 3655 2019-01-07 16:51:22Z knoop 30 32 ! unused variables removed 31 ! 33 ! 32 34 ! 1957 2016-07-07 10:43:48Z suehring 33 35 ! Initial revision … … 37 39 ! ------------ 38 40 !> Writing data from flight measurements on file. 39 !------------------------------------------------------------------------------ !41 !--------------------------------------------------------------------------------------------------! 40 42 SUBROUTINE data_output_flight 41 43 42 44 #if defined( __netcdf ) 43 USE control_parameters, &45 USE control_parameters, & 44 46 ONLY: num_leg, num_var_fl, time_since_reference_point, virtual_flight 45 47 46 USE cpulog, &48 USE cpulog, & 47 49 ONLY: cpu_log, log_point 48 50 49 USE flight_mod, &51 USE flight_mod, & 50 52 ONLY: sensor, x_pos, y_pos, z_pos 51 53 … … 54 56 USE NETCDF 55 57 56 USE netcdf_interface, & 57 ONLY: dofl_time_count, id_set_fl, id_var_dofl, id_var_time_fl, & 58 id_var_x_fl, id_var_y_fl, id_var_z_fl, netcdf_handle_error, & 59 nc_stat 60 58 USE netcdf_interface, & 59 ONLY: dofl_time_count, id_set_fl, id_var_dofl, id_var_time_fl, id_var_x_fl, id_var_y_fl, & 60 id_var_z_fl, nc_stat, netcdf_handle_error 61 61 62 USE pegrid 62 63 … … 87 88 ! 88 89 !-- Update the flight-output time and spatial coordinates 89 nc_stat = NF90_PUT_VAR( id_set_fl, id_var_time_fl, &90 (/ time_since_reference_point /), &91 start = (/ dofl_time_count /), &90 nc_stat = NF90_PUT_VAR( id_set_fl, id_var_time_fl, & 91 (/ time_since_reference_point /), & 92 start = (/ dofl_time_count /), & 92 93 count = (/ 1 /) ) 93 94 CALL netcdf_handle_error( 'data_output_flight', 554 ) 94 95 95 96 DO l = 1, num_leg 96 nc_stat = NF90_PUT_VAR( id_set_fl, id_var_x_fl(l), &97 (/ x_pos(l) /), &98 start = (/ dofl_time_count /), &97 nc_stat = NF90_PUT_VAR( id_set_fl, id_var_x_fl(l), & 98 (/ x_pos(l) /), & 99 start = (/ dofl_time_count /), & 99 100 count = (/ 1 /) ) 100 nc_stat = NF90_PUT_VAR( id_set_fl, id_var_y_fl(l), &101 (/ y_pos(l) /), &102 start = (/ dofl_time_count /), &101 nc_stat = NF90_PUT_VAR( id_set_fl, id_var_y_fl(l), & 102 (/ y_pos(l) /), & 103 start = (/ dofl_time_count /), & 103 104 count = (/ 1 /) ) 104 nc_stat = NF90_PUT_VAR( id_set_fl, id_var_z_fl(l), &105 (/ z_pos(l) /), &106 start = (/ dofl_time_count /), &105 nc_stat = NF90_PUT_VAR( id_set_fl, id_var_z_fl(l), & 106 (/ z_pos(l) /), & 107 start = (/ dofl_time_count /), & 107 108 count = (/ 1 /) ) 108 109 CALL netcdf_handle_error( 'data_output_flight', 555 ) … … 113 114 DO l = 1, num_leg 114 115 DO i = 1, num_var_fl 115 nc_stat = NF90_PUT_VAR( id_set_fl, id_var_dofl(k), &116 (/ sensor(i,l) /), &117 start = (/ dofl_time_count /), &116 nc_stat = NF90_PUT_VAR( id_set_fl, id_var_dofl(k), & 117 (/ sensor(i,l) /), & 118 start = (/ dofl_time_count /), & 118 119 count = (/ 1 /) ) 119 120 120 121 CALL netcdf_handle_error( 'data_output_flight', 556 ) 121 122 122 123 k = k + 1 123 124 ENDDO 124 125 ENDDO 125 126 ENDIF 126 127 127 128 CALL cpu_log( log_point(64), 'data_output_flight', 'stop' ) 128 129 129 130 #endif 130 131 END SUBROUTINE data_output_flight
Note: See TracChangeset
for help on using the changeset viewer.
