Changeset 1691 for palm/trunk/SOURCE/netcdf.f90
- Timestamp:
- Oct 26, 2015 4:17:44 PM (9 years ago)
- File:
-
- 1 edited
-
palm/trunk/SOURCE/netcdf.f90 (modified) (18 diffs)
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/netcdf.f90
r1683 r1691 14 14 ! PALM. If not, see <http://www.gnu.org/licenses/>. 15 15 ! 16 ! Copyright 1997-201 4Leibniz Universitaet Hannover16 ! Copyright 1997-2015 Leibniz Universitaet Hannover 17 17 !--------------------------------------------------------------------------------! 18 18 ! 19 19 ! Current revisions: 20 20 ! ------------------ 21 ! 21 ! Added output of radiative heating rates for RRTMG. Corrected output of 22 ! radiative fluxes 22 23 ! 23 24 ! Former revisions: … … 116 117 #if defined( __netcdf ) 117 118 118 USE arrays_3d, 119 USE arrays_3d, & 119 120 ONLY: zu, zw 120 121 121 USE constants, 122 USE constants, & 122 123 ONLY: pi 123 124 124 USE control_parameters, & 125 ONLY: averaging_interval, averaging_interval_pr, averaging_interval_sp,& 126 data_output_pr, domask, dopr_n,dopr_time_count, dopts_time_count, & 127 dots_time_count, dosp_time_count, do2d, do2d_xz_time_count, do3d, & 128 do2d_yz_time_count, mask_size, do2d_xy_time_count, do3d_time_count, & 129 domask_time_count, mask_i_global, mask_j_global,mask_k_global, & 130 message_string, mid, netcdf_data_format, netcdf_precision, ntdim_2d_xy, & 131 ntdim_2d_xz, ntdim_2d_yz, ntdim_3d, nz_do3d, prt_time_count, & 132 run_description_header, section, simulated_time, topography 133 134 USE grid_variables, & 125 USE control_parameters, & 126 ONLY: averaging_interval, averaging_interval_pr, & 127 averaging_interval_sp, data_output_pr, domask, dopr_n, & 128 dopr_time_count, dopts_time_count, dots_time_count, & 129 dosp_time_count, do2d, do2d_xz_time_count, do3d, & 130 do2d_yz_time_count, mask_size, do2d_xy_time_count, & 131 do3d_time_count, domask_time_count, mask_i_global, & 132 mask_j_global, mask_k_global, message_string, mid, & 133 netcdf_data_format, netcdf_precision, ntdim_2d_xy, & 134 ntdim_2d_xz, ntdim_2d_yz, ntdim_3d, nz_do3d, prt_time_count, & 135 run_description_header, section, simulated_time, topography 136 137 USE grid_variables, & 135 138 ONLY: dx, dy, zu_s_inner, zw_w_inner 136 139 137 USE indices, 140 USE indices, & 138 141 ONLY: nx, ny, nz ,nzb, nzt 139 142 … … 150 153 USE pegrid 151 154 152 USE particle_attributes, 155 USE particle_attributes, & 153 156 ONLY: maximum_number_of_particles, number_of_particle_groups 154 157 155 USE profil_parameter, & 156 ONLY: crmax, cross_profiles, dopr_index,profile_columns, profile_rows 157 158 USE radiation_model_mod, & 159 ONLY: rad_lw_in, rad_lw_out, rad_sw_in, rad_sw_out 160 161 USE spectrum, & 158 USE profil_parameter, & 159 ONLY: crmax, cross_profiles, dopr_index, profile_columns, profile_rows 160 161 USE radiation_model_mod, & 162 ONLY: rad_lw_in, rad_lw_out, rad_lw_cs_hr, rad_lw_hr, & 163 rad_sw_in, rad_sw_out, rad_sw_cs_hr, rad_sw_hr 164 165 166 USE spectrum, & 162 167 ONLY: comp_spectra_level, data_output_sp, spectra_direction 163 168 164 USE statistics, 169 USE statistics, & 165 170 ONLY: hom, statistic_regions 166 171 … … 531 536 ! 532 537 !-- Most variables are defined on the scalar grid 533 CASE ( 'e', 'lpt', 'nr', 'p', 'pc', 'pr', 'prr', 'pt', 'q', &534 'qc', 'ql', 'ql_c', 'ql_v', 'ql_vp', 'qr', 'qv', &535 'r ho', 's', 'sa', 'vpt', 'rad_lw_in', 'rad_lw_out',&536 'rad_sw_ in', 'rad_sw_out')538 CASE ( 'e', 'lpt', 'nr', 'p', 'pc', 'pr', 'prr', 'pt', 'q', & 539 'qc', 'ql', 'ql_c', 'ql_v', 'ql_vp', 'qr', 'qv', & 540 'rad_lw_cs_hr', 'rad_lw_hr', 'rad_sw_cs_hr', & 541 'rad_sw_hr', 'rho', 's', 'sa', 'vpt' ) 537 542 538 543 grid_x = 'x' … … 555 560 ! 556 561 !-- w grid 557 CASE ( 'w' ) 562 CASE ( 'rad_lw_in', 'rad_lw_out', 'rad_sw_in', 'rad_sw_out', & 563 'w' ) 558 564 559 565 grid_x = 'x' … … 562 568 ! 563 569 !-- soil grid 564 CASE ( ' t_soil', 'm_soil' )570 CASE ( 'm_soil', 't_soil' ) 565 571 566 572 grid_x = 'x' … … 1112 1118 ! 1113 1119 !-- Most variables are defined on the scalar grid 1114 CASE ( 'e', 'lpt', 'nr', 'p', 'pc', 'pr', 'prr', 'pt', 'q', &1115 'qc', 'ql', 'ql_c', 'ql_v', 'ql_vp', 'qr', 'qv', 'rho', &1116 's', 'sa', 'vpt' , 'rad_lw_ in', 'rad_lw_out',&1117 'rad_sw_ in', 'rad_sw_out' )1120 CASE ( 'e', 'lpt', 'nr', 'p', 'pc', 'pr', 'prr', 'pt', 'q', & 1121 'qc', 'ql', 'ql_c', 'ql_v', 'ql_vp', 'qr', 'qv', 'rho', & 1122 's', 'sa', 'vpt' , 'rad_lw_cs_hr', 'rad_lw_hr', & 1123 'rad_sw_cs_hr', 'rad_sw_hr' ) 1118 1124 1119 1125 grid_x = 'x' … … 1136 1142 ! 1137 1143 !-- w grid 1138 CASE ( 'w' ) 1144 CASE ( 'rad_lw_in', 'rad_lw_out', 'rad_sw_in', 'rad_sw_out', & 1145 'w' ) 1139 1146 1140 1147 grid_x = 'x' … … 1143 1150 ! 1144 1151 !-- soil grid 1145 CASE ( ' t_soil', 'm_soil' )1152 CASE ( 'm_soil', 't_soil' ) 1146 1153 1147 1154 grid_x = 'x' … … 1765 1772 ! 1766 1773 !-- Most variables are defined on the zu grid 1767 CASE ( 'e_xy', 'lpt_xy', 'nr_xy', 'p_xy', 'pc_xy', 'pr_xy',& 1768 'prr_xy', 'pt_xy', 'q_xy', 'qc_xy', 'ql_xy', & 1769 'ql_c_xy', 'ql_v_xy', 'ql_vp_xy', 'qr_xy', 'qv_xy', & 1770 'rho_xy', 's_xy', 'sa_xy', 'vpt_xy', 'rad_lw_in_xy',& 1771 'rad_lw_out_xy', 'rad_sw_in_xy', 'rad_sw_out_xy' ) 1774 CASE ( 'e_xy', 'lpt_xy', 'nr_xy', 'p_xy', 'pc_xy', & 1775 'pr_xy', 'prr_xy', 'pt_xy', 'q_xy', 'qc_xy', & 1776 'ql_xy', 'ql_c_xy', 'ql_v_xy', 'ql_vp_xy', & 1777 'qr_xy', 'qv_xy', 'rad_lw_cs_hr_xy', & 1778 'rad_lw_hr_xy', 'rad_sw_cs_hr_xy', 'rad_sw_hr_xy',& 1779 'rho_xy', 's_xy', 'sa_xy', 'vpt_xy' ) 1772 1780 1773 1781 grid_x = 'x' … … 1790 1798 ! 1791 1799 !-- w grid 1792 CASE ( 'w_xy' ) 1800 CASE ( 'rad_lw_in_xy', 'rad_lw_out_xy', 'rad_sw_in_xy', & 1801 'rad_sw_out_xy' , 'w_xy' ) 1793 1802 1794 1803 grid_x = 'x' … … 1797 1806 ! 1798 1807 !-- soil grid 1799 CASE ( ' t_soil_xy', 'm_soil_xy' )1808 CASE ( 'm_soil_xy', 't_soil_xy' ) 1800 1809 grid_x = 'x' 1801 1810 grid_y = 'y' … … 2452 2461 'prr_xz', 'pt_xz', 'q_xz', 'qc_xz', 'ql_xz', & 2453 2462 'ql_c_xz', 'ql_v_xz', 'ql_vp_xz', 'qr_xz', 'qv_xz', & 2454 'rho_xz', 's_xz', 'sa_xz', 'vpt_xz' , 'rad_lw_in_xz',& 2455 'rad_lw_out_xz', 'rad_sw_in_xz', 'rad_sw_out_xz' ) 2463 'rad_lw_cs_hr_xz', 'rad_lw_hr_xz', & 2464 'rad_sw_cs_hr_xz', 'rad_sw_hr_xz''rho_xz', 's_xz', & 2465 'sa_xz', 'vpt_xz' ) 2456 2466 2457 2467 grid_x = 'x' … … 2474 2484 ! 2475 2485 !-- w grid 2476 CASE ( 'w_xz' ) 2486 CASE ( 'rad_lw_in_xz', 'rad_lw_out_xz', 'rad_sw_in_xz', & 2487 'rad_sw_out_xz', 'w_xz' ) 2477 2488 2478 2489 grid_x = 'x' … … 2482 2493 ! 2483 2494 !-- soil grid 2484 CASE ( ' t_soil_xz', 'm_soil_xz' )2495 CASE ( 'm_soil_xz', 't_soil_xz' ) 2485 2496 2486 2497 grid_x = 'x' … … 3126 3137 ! 3127 3138 !-- Most variables are defined on the zu grid 3128 CASE ( 'e_yz', 'lpt_yz', 'nr_yz', 'p_yz', 'pc_yz', 'pr_yz',& 3129 'prr_yz', 'pt_yz', 'q_yz', 'qc_yz', 'ql_yz', & 3130 'ql_c_yz', 'ql_v_yz', 'ql_vp_yz', 'qr_yz', 'qv_yz', & 3131 'rho_yz', 's_yz', 'sa_yz', 'vpt_yz', 'rad_lw_in_yz',& 3132 'rad_lw_out_yz', 'rad_sw_in_yz', 'rad_sw_out_yz' ) 3139 CASE ( 'e_yz', 'lpt_yz', 'nr_yz', 'p_yz', 'pc_yz', 'pr_yz', & 3140 'prr_yz', 'pt_yz', 'q_yz', 'qc_yz', 'ql_yz', & 3141 'ql_c_yz', 'ql_v_yz', 'ql_vp_yz', 'qr_yz', 'qv_yz', & 3142 'rad_lw_cs_hr_yz', 'rad_lw_hr_yz', & 3143 'rad_sw_cs_hr_yz', 'rad_sw_hr_yz''rho_yz', 's_yz', & 3144 'sa_yz', 'vpt_yz' ) 3133 3145 3134 3146 grid_x = 'x' … … 3151 3163 ! 3152 3164 !-- w grid 3153 CASE ( 'w_yz' ) 3165 CASE ( 'rad_lw_in_yz', 'rad_lw_out_yz', 'rad_sw_in_yz', & 3166 'rad_sw_out_yz', 'w_yz' ) 3154 3167 3155 3168 grid_x = 'x' … … 3158 3171 ! 3159 3172 !-- soil grid 3160 CASE ( ' t_soil_yz', 'm_soil_yz' )3173 CASE ( 'm_soil_yz', 't_soil_yz' ) 3161 3174 3162 3175 grid_x = 'x'
Note: See TracChangeset
for help on using the changeset viewer.
