Changeset 3637 for palm/trunk/SOURCE/sum_up_3d_data.f90
- Timestamp:
- Dec 20, 2018 1:51:36 AM (6 years ago)
- File:
-
- 1 edited
-
palm/trunk/SOURCE/sum_up_3d_data.f90 (modified) (7 diffs)
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/sum_up_3d_data.f90
r3597 r3637 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Implementation of the PALM module interface 28 ! 29 ! 3597 2018-12-04 08:40:18Z maronga 27 30 ! Added output of theta_2m 28 31 ! … … 259 262 ONLY: c_p, lv_d_cp, l_v 260 263 261 USE biometeorology_mod, &262 ONLY: bio_3d_data_averaging263 264 264 USE bulk_cloud_model_mod, & 265 ONLY: bulk_cloud_model, bcm_3d_data_averaging 266 267 USE chemistry_model_mod, & 268 ONLY: chem_3d_data_averaging 265 ONLY: bulk_cloud_model 269 266 270 267 USE control_parameters, & 271 ONLY: air_chemistry, average_count_3d, biometeorology, doav, doav_n, & 272 land_surface, ocean_mode, rho_surface, salsa, urban_surface, & 268 ONLY: average_count_3d, doav, doav_n, rho_surface, urban_surface, & 273 269 varnamelength 274 270 … … 276 272 ONLY: cpu_log, log_point 277 273 278 USE gust_mod, &279 ONLY: gust_3d_data_averaging, gust_module_enabled280 281 274 USE indices, & 282 275 ONLY: nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzt … … 284 277 USE kinds 285 278 286 USE land_surface_model_mod, & 287 ONLY: lsm_3d_data_averaging 288 289 USE ocean_mod, & 290 ONLY: ocean_3d_data_averaging 279 USE module_interface, & 280 ONLY: module_interface_3d_data_averaging 291 281 292 282 USE particle_attributes, & 293 283 ONLY: grid_particles, number_of_particles, particles, prt_count 294 295 USE radiation_model_mod, &296 ONLY: radiation, radiation_3d_data_averaging297 298 USE salsa_mod, &299 ONLY: salsa_3d_data_averaging300 284 301 285 USE surface_mod, & … … 307 291 308 292 USE urban_surface_mod, & 309 ONLY: usm_ average_3d_data293 ONLY: usm_3d_data_averaging 310 294 311 295 … … 535 519 536 520 ! 537 !-- Allocating and initializing data arrays for other modules 538 539 IF ( air_chemistry .AND. & 540 (trimvar(1:3) == 'kc_' .OR. trimvar(1:3) == 'em_') ) THEN 541 CALL chem_3d_data_averaging( 'allocate', doav(ii) ) 542 ENDIF 543 544 IF ( bulk_cloud_model ) THEN 545 CALL bcm_3d_data_averaging( 'allocate', doav(ii) ) 546 ENDIF 547 548 IF ( gust_module_enabled ) THEN 549 CALL gust_3d_data_averaging( 'allocate', doav(ii) ) 550 ENDIF 551 552 IF ( biometeorology ) THEN 553 CALL bio_3d_data_averaging( 'allocate', doav(ii) ) 554 ENDIF 555 556 IF ( land_surface ) THEN 557 CALL lsm_3d_data_averaging( 'allocate', doav(ii) ) 558 ENDIF 559 560 IF ( ocean_mode ) THEN 561 CALL ocean_3d_data_averaging( 'allocate', doav(ii) ) 562 ENDIF 563 564 IF ( radiation ) THEN 565 CALL radiation_3d_data_averaging( 'allocate', doav(ii) ) 566 ENDIF 567 568 IF ( salsa ) THEN 569 CALL salsa_3d_data_averaging( 'allocate', doav(ii) ) 570 ENDIF 571 572 CALL tcm_3d_data_averaging( 'allocate', doav(ii) ) 573 574 IF ( urban_surface .AND. trimvar(1:4) == 'usm_' ) THEN 575 CALL usm_average_3d_data( 'allocate', doav(ii) ) 576 ENDIF 577 578 ! 579 !-- User-defined quantities 580 CALL user_3d_data_averaging( 'allocate', doav(ii) ) 521 !-- Allocating and initializing data arrays for turbulence closure module 522 CALL tcm_3d_data_averaging( 'allocate', trimvar ) 523 524 ! 525 !-- Allocating and initializing data arrays for all other modules 526 CALL module_interface_3d_data_averaging( 'allocate', trimvar ) 527 581 528 582 529 END SELECT … … 1183 1130 1184 1131 CASE DEFAULT 1185 !1186 !-- Summing up data from other modules1187 IF ( bulk_cloud_model ) THEN1188 CALL bcm_3d_data_averaging( 'sum', doav(ii) )1189 ENDIF1190 1191 IF ( air_chemistry .AND. &1192 (trimvar(1:3) == 'kc_' .OR. trimvar(1:3) == 'em_') ) THEN1193 CALL chem_3d_data_averaging( 'sum',doav(ii) )1194 ENDIF1195 1196 IF ( gust_module_enabled ) THEN1197 CALL gust_3d_data_averaging( 'sum', doav(ii) )1198 ENDIF1199 1200 IF ( biometeorology ) THEN1201 CALL bio_3d_data_averaging( 'sum', doav(ii) )1202 ENDIF1203 1204 IF ( land_surface ) THEN1205 CALL lsm_3d_data_averaging( 'sum', doav(ii) )1206 ENDIF1207 1208 IF ( ocean_mode ) THEN1209 CALL ocean_3d_data_averaging( 'sum', doav(ii) )1210 ENDIF1211 1212 IF ( radiation ) THEN1213 CALL radiation_3d_data_averaging( 'sum', doav(ii) )1214 ENDIF1215 1216 IF ( salsa ) THEN1217 CALL salsa_3d_data_averaging( 'sum', doav(ii) )1218 ENDIF1219 1220 CALL tcm_3d_data_averaging( 'sum', doav(ii) )1221 1132 1222 1133 !-- In case of urban surface variables it should be always checked 1223 1134 !-- if respective arrays are allocated, at least in case of a restart 1224 1135 !-- run, as averaged usm arrays are not read from file at the moment. 1225 IF ( urban_surface .AND. trimvar(1:4) == 'usm_' ) THEN 1226 CALL usm_average_3d_data( 'allocate', doav(ii) ) 1227 CALL usm_average_3d_data( 'sum', doav(ii) ) 1228 ENDIF 1229 1230 ! 1231 !-- User-defined quantities 1232 CALL user_3d_data_averaging( 'sum', doav(ii) ) 1136 IF ( urban_surface ) THEN 1137 CALL usm_3d_data_averaging( 'allocate', trimvar ) 1138 ENDIF 1139 1140 ! 1141 !-- Summing up data from turbulence closure module 1142 CALL tcm_3d_data_averaging( 'sum', trimvar ) 1143 1144 ! 1145 !-- Summing up data from all other modules 1146 CALL module_interface_3d_data_averaging( 'sum', trimvar ) 1147 1233 1148 1234 1149 END SELECT
Note: See TracChangeset
for help on using the changeset viewer.
