Changeset 3744 for palm/trunk/SOURCE/module_interface.f90
- Timestamp:
- Feb 15, 2019 6:38:58 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/module_interface.f90
r3739 r3744 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! Add indoor model 23 23 ! 24 24 ! Former revisions: … … 174 174 USE indoor_model_mod, & 175 175 ONLY: im_parin, & 176 im_check_data_output, & 177 im_check_parameters, & 178 im_data_output_3d, & 176 179 im_init 177 180 … … 497 500 IF ( air_chemistry ) CALL chem_check_parameters 498 501 IF ( gust_module_enabled ) CALL gust_check_parameters 502 IF ( indoor_model ) CALL im_check_parameters 499 503 IF ( land_surface ) CALL lsm_check_parameters 500 504 IF ( large_scale_forcing .OR. nudging ) CALL lsf_nudging_check_parameters ! ToDo: create single module switch … … 647 651 ENDIF 648 652 653 IF ( unit == 'illegal' .AND. indoor_model ) THEN 654 CALL im_check_data_output( variable, unit ) 655 ENDIF 656 649 657 IF ( unit == 'illegal' .AND. urban_surface & 650 658 .AND. variable(1:4) == 'usm_' ) THEN ! ToDo: remove aditional conditions … … 1022 1030 IF ( .NOT. found .AND. gust_module_enabled ) THEN 1023 1031 CALL gust_data_output_3d( av, variable, found, local_pf, fill_value, nzb_do, nzt_do ) 1032 resorted = .TRUE. 1033 ENDIF 1034 1035 IF ( .NOT. found .AND. indoor_model ) THEN 1036 CALL im_data_output_3d( av, variable, found, local_pf, fill_value, nzb_do, nzt_do ) 1024 1037 resorted = .TRUE. 1025 1038 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.