Changeset 3685 for palm/trunk/SOURCE/module_interface.f90
- Timestamp:
- Jan 21, 2019 1:02:11 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/module_interface.f90
r3684 r3685 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Some interface calls moved to module_interface + cleanup 28 ! 29 ! 3684 2019-01-20 20:20:58Z knoop 27 30 ! Bugfix: made unit intend INOUT 28 31 ! … … 59 62 ONLY: biometeorology, & 60 63 air_chemistry, & 64 indoor_model, & 61 65 land_surface, & 62 66 large_scale_forcing, & … … 70 74 urban_surface, & 71 75 virtual_flight, & 76 virtual_measurement, & 72 77 wind_turbine 73 78 … … 78 83 bio_check_parameters, & 79 84 bio_check_data_output, & 85 bio_init, & 80 86 bio_header, & 81 87 bio_3d_data_averaging, & … … 93 99 bcm_check_data_output_pr, & 94 100 bcm_check_data_output, & 101 bcm_init_arrays, & 102 bcm_init, & 95 103 bcm_header, & 96 104 bcm_swap_timelevel, & … … 108 116 chem_check_data_output_pr, & 109 117 chem_check_data_output, & 118 chem_init_arrays, & 119 chem_init, & 110 120 chem_header, & 111 121 chem_swap_timelevel, & … … 120 130 ONLY: flight_parin, & 121 131 flight_header, & 132 flight_init, & 122 133 flight_rrd_global, & 123 134 flight_wrd_global … … 129 140 gust_check_data_output_pr, & 130 141 gust_check_data_output, & 142 gust_init_arrays, & 143 gust_init, & 131 144 gust_header, & 132 145 gust_actions, & … … 142 155 143 156 USE indoor_model_mod, & 144 ONLY: im_parin 157 ONLY: im_parin, & 158 im_init 145 159 146 160 USE land_surface_model_mod, & … … 149 163 lsm_check_data_output_pr, & 150 164 lsm_check_data_output, & 165 lsm_init_arrays, & 166 lsm_init, & 151 167 lsm_header, & 152 168 lsm_swap_timelevel, & … … 159 175 ONLY: lsf_nudging_check_parameters, & 160 176 lsf_nudging_check_data_output_pr, & 177 lsf_init, & 178 nudge_init, & 161 179 lsf_nudging_header 162 180 … … 174 192 ocean_check_data_output_pr, & 175 193 ocean_check_data_output, & 194 ocean_init_arrays, & 195 ocean_init, & 176 196 ocean_header, & 177 197 ocean_swap_timelevel, & … … 188 208 pcm_check_parameters, & 189 209 pcm_check_data_output, & 210 pcm_init, & 190 211 pcm_header, & 191 212 pcm_data_output_3d … … 197 218 radiation_check_data_output_pr, & 198 219 radiation_check_data_output, & 220 radiation_init, & 199 221 radiation_header, & 200 222 radiation_3d_data_averaging, & … … 208 230 salsa_check_parameters, & 209 231 salsa_check_data_output, & 232 salsa_init_arrays, & 233 salsa_init, & 210 234 salsa_header, & 211 235 salsa_swap_timelevel, & … … 237 261 usm_check_parameters, & 238 262 usm_check_data_output, & 263 usm_init_arrays, & 264 usm_init, & 239 265 usm_swap_timelevel, & 240 266 usm_3d_data_averaging, & … … 254 280 255 281 USE virtual_measurement_mod, & 256 ONLY: vm_parin 282 ONLY: vm_parin, & 283 vm_init 257 284 258 285 USE wind_turbine_model_mod, & 259 286 ONLY: wtm_parin, & 260 287 wtm_check_parameters, & 288 wtm_init_arrays, & 289 wtm_init, & 261 290 wtm_rrd_global, & 262 291 wtm_wrd_global … … 584 613 585 614 615 IF ( bulk_cloud_model ) CALL bcm_init_arrays 616 IF ( air_chemistry ) CALL chem_init_arrays 617 IF ( gust_module_enabled ) CALL gust_init_arrays 618 IF ( land_surface ) CALL lsm_init_arrays 619 IF ( ocean_mode ) CALL ocean_init_arrays 620 IF ( salsa ) CALL salsa_init_arrays 621 IF ( urban_surface ) CALL usm_init_arrays 622 IF ( wind_turbine ) CALL wtm_init_arrays 623 624 586 625 END SUBROUTINE module_interface_init_arrays 587 626 … … 593 632 !------------------------------------------------------------------------------! 594 633 SUBROUTINE module_interface_init 634 635 636 IF ( biometeorology ) CALL bio_init 637 IF ( bulk_cloud_model ) CALL bcm_init 638 IF ( air_chemistry ) CALL chem_init 639 IF ( virtual_flight ) CALL flight_init 640 IF ( gust_module_enabled ) CALL gust_init 641 IF ( indoor_model ) CALL im_init 642 IF ( large_scale_forcing ) CALL lsf_init 643 IF ( land_surface ) CALL lsm_init 644 IF ( nudging ) CALL nudge_init 645 IF ( ocean_mode ) CALL ocean_init 646 IF ( plant_canopy ) CALL pcm_init 647 IF ( salsa ) CALL salsa_init 648 IF ( urban_surface ) CALL usm_init 649 IF ( virtual_measurement ) CALL vm_init 650 IF ( wind_turbine ) CALL wtm_init 651 IF ( radiation ) CALL radiation_init 595 652 596 653
Note: See TracChangeset
for help on using the changeset viewer.