Changeset 4677 for palm/trunk/SOURCE/mod_kinds.f90
- Timestamp:
- Sep 14, 2020 7:55:28 AM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/mod_kinds.f90
r4360 r4677 1 1 !> @file mod_kinds.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 16 ! Copyright 1997-2020 Leibniz Universitaet Hannover 18 !------------------------------------------------------------------------------ !17 !--------------------------------------------------------------------------------------------------! 19 18 ! 20 19 ! Current revisions: 21 20 ! ------------------ 22 ! 23 ! 21 ! 22 ! 24 23 ! Former revisions: 25 24 ! ----------------- 26 25 ! $Id$ 26 ! file re-formatted to follow the PALM coding standard 27 ! 28 ! 4360 2020-01-07 11:25:50Z suehring 27 29 ! Corrected "Former revisions" section 28 ! 30 ! 29 31 ! 4000 2019-05-24 07:20:44Z raasch 30 32 ! preprocessor switch added for choosing the real precision 31 ! 33 ! 32 34 ! 3655 2019-01-07 16:51:22Z knoop 33 35 ! Corrected "Former revisions" section 34 ! 36 ! 35 37 ! 1306 2014-03-13 14:30:59Z raasch 36 38 ! Initial revision … … 39 41 ! ------------ 40 42 !> Standard kind definitions 41 !> wp (working precision) and iwp (integer working precision) are the kinds 42 !> used by default in allvariable declarations.43 !> wp (working precision) and iwp (integer working precision) are the kinds used by default in all 44 !> variable declarations. 43 45 !> By default, PALM is using wp = dp (64bit), and iwp = isp (32bit). 44 !> If you like to switch to other precision, then please set wp/iwp 45 !> appropriately by assigning otherkinds below.46 !------------------------------------------------------------------------------ !46 !> If you like to switch to other precision, then please set wp/iwp appropriately by assigning other 47 !> kinds below. 48 !--------------------------------------------------------------------------------------------------! 47 49 MODULE kinds 48 50 49 51 50 52 IMPLICIT NONE
Note: See TracChangeset
for help on using the changeset viewer.