Changeset 1914 for palm/trunk/SOURCE/init_3d_model.f90
- Timestamp:
- May 26, 2016 2:44:07 PM (8 years ago)
- Location:
- palm/trunk
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk
- Property svn:mergeinfo changed
/palm/branches/forwind (added) merged: 1564,1578,1617,1687,1689,1803,1819-1821,1839-1840,1843-1844,1847,1864-1865,1868-1870,1912-1913
- Property svn:mergeinfo changed
-
palm/trunk/SOURCE
- Property svn:mergeinfo changed
/palm/branches/forwind/SOURCE (added) merged: 1578,1617,1687,1689,1803,1819-1821,1839-1840,1843-1844,1864-1865,1868,1912-1913
- Property svn:mergeinfo changed
-
palm/trunk/SOURCE/init_3d_model.f90
- Property svn:mergeinfo changed
/palm/branches/forwind/SOURCE/init_3d_model.f90 (added) merged: 1578,1617,1687,1689,1803,1819,1821,1839-1840,1843,1864,1868,1912
r1879 r1914 37 37 ! nzb_2d replaced by nzb_u|v_inner 38 38 ! 39 ! 1839 2016-04-07 18:48:14Z witha 40 ! Renamed calls for wind turbine model 41 ! 39 42 ! 1833 2016-04-07 14:23:03Z raasch 40 43 ! initialization of spectra quantities moved to spectra_mod … … 50 53 ! icloud_scheme replaced by microphysics_* 51 54 ! 55 ! 1819 2016-04-06 21:05:15Z witha 56 ! Added initialization of the wind turbine model 57 ! 52 58 ! 1817 2016-04-06 15:44:20Z maronga 53 59 ! Renamed lsm calls. … … 331 337 332 338 USE transpose_indices 339 340 USE wind_turbine_model_mod, & 341 ONLY: wtm_init, wtm_init_arrays, wind_turbine 333 342 334 343 IMPLICIT NONE … … 688 697 689 698 ! 699 !-- Allocate wind turbine model arrays 700 IF ( wind_turbine ) THEN 701 CALL wtm_init_arrays 702 ENDIF 703 704 ! 690 705 !-- Allocate arrays containing the RK coefficient for calculation of 691 706 !-- perturbation pressure and turbulent fluxes. At this point values are … … 1675 1690 CALL location_message( 'finished', .TRUE. ) 1676 1691 ENDIF 1692 1693 ! 1694 !-- If required, initialize quantities needed for the wind turbine model 1695 IF ( wind_turbine ) THEN 1696 CALL location_message( 'initializing wind turbine model', .FALSE. ) 1697 CALL wtm_init 1698 CALL location_message( 'finished', .TRUE. ) 1699 ENDIF 1700 1677 1701 1678 1702 ! - Property svn:mergeinfo changed
Note: See TracChangeset
for help on using the changeset viewer.