Changeset 4497 for palm/trunk/SOURCE/user_init_urban_surface.f90
- Timestamp:
- Apr 15, 2020 10:20:51 AM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/user_init_urban_surface.f90
r4481 r4497 1 1 !> @file user_init_urban_surface.f90 2 !------------------------------------------------------------------------------ !2 !--------------------------------------------------------------------------------------------------! 3 3 ! This file is part of the PALM model system. 4 4 ! 5 ! PALM is free software: you can redistribute it and/or modify it under the 6 ! terms of the GNU General Public License as published by the Free Software 7 ! Foundation, either version 3 of the License, or (at your option) any later 8 ! version. 5 ! PALM is free software: you can redistribute it and/or modify it under the terms of the GNU General 6 ! Public License as published by the Free Software Foundation, either version 3 of the License, or 7 ! (at your option) any later version. 9 8 ! 10 ! PALM is distributed in the hope that it will be useful, but WITHOUT ANY 11 ! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR12 ! A PARTICULAR PURPOSE. See the GNU GeneralPublic License for more details.9 ! PALM is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the 10 ! implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General 11 ! Public License for more details. 13 12 ! 14 ! You should have received a copy of the GNU General Public License along with 15 ! PALM. If not, see<http://www.gnu.org/licenses/>.13 ! You should have received a copy of the GNU General Public License along with PALM. If not, see 14 ! <http://www.gnu.org/licenses/>. 16 15 ! 17 ! Copyright 2015-2020 Technical University in Prague18 16 ! Copyright 1997-2020 Leibniz Universitaet Hannover 19 !--------------------------------------------------------------------------------! 17 !--------------------------------------------------------------------------------------------------! 18 ! 20 19 ! 21 20 ! Current revisions: … … 26 25 ! ----------------- 27 26 ! $Id$ 27 ! file re-formatted to follow the PALM coding standard 28 ! 29 ! 30 ! 4481 2020-03-31 18:55:54Z maronga 28 31 ! Corrected "Former revisions" section 29 ! 32 ! 30 33 ! 3768 2019-02-27 14:35:58Z raasch 31 34 ! unused variables commented out to avoid compiler warnings 32 ! 35 ! 33 36 ! 3655 2019-01-07 16:51:22Z knoop 34 37 ! Corrected "Former revisions" section 35 ! 38 ! 36 39 ! 2007 2016-08-24 15:47:17Z kanani 37 40 ! Initial revision … … 41 44 ! ------------ 42 45 !> Execution of user-defined actions to initiate the urban surface model 43 !------------------------------------------------------------------------------ !46 !--------------------------------------------------------------------------------------------------! 44 47 SUBROUTINE user_init_urban_surface 45 48 46 49 USE arrays_3d 47 48 ! USE control_parameters, &50 51 ! USE control_parameters, & 49 52 ! ONLY: urban_surface 50 53 51 54 USE indices 52 55 53 56 USE kinds 54 57 55 58 USE urban_surface_mod 56 59 57 USE surface_mod 58 60 USE surface_mod 61 59 62 USE user 60 63
Note: See TracChangeset
for help on using the changeset viewer.