Changeset 3469 for palm/trunk/SOURCE/init_3d_model.f90
- Timestamp:
- Oct 30, 2018 8:05:07 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_3d_model.f90
r3467 r3469 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Add indoor model (kanani, srissman, tlang) 28 ! 29 ! 3467 2018-10-30 19:05:21Z suehring 27 30 ! Implementation of a new aerosol module salsa. 28 31 ! … … 567 570 568 571 USE indices 569 572 573 USE indoor_model_mod, & 574 ONLY: im_init 575 570 576 USE kinds 571 577 … … 2447 2453 2448 2454 ! 2455 !-- If required, initialize indoor model 2456 IF ( indoor_model ) THEN 2457 CALL location_message( 'initializing indoor model', .FALSE. ) 2458 CALL im_init 2459 CALL location_message( 'finished', .TRUE. ) 2460 ENDIF 2461 2462 ! 2449 2463 !-- Initialize the ws-scheme. 2450 2464 IF ( ws_scheme_sca .OR. ws_scheme_mom ) CALL ws_init
Note: See TracChangeset
for help on using the changeset viewer.