Changeset 4180 for palm/trunk/SOURCE/poismg_noopt_mod.f90
- Timestamp:
- Aug 21, 2019 2:37:54 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/poismg_noopt_mod.f90
r3655 r4180 27 27 ! unused variables removed 28 28 ! 29 ! 3183 2018-07-27 14:25:55Z suehring30 ! Rename variables in mesoscale-offline nesting mode31 !32 ! 3182 2018-07-27 13:36:03Z suehring33 ! Set lateral boundary conditions for divergence34 !35 ! 2793 2018-02-07 10:54:33Z suehring36 ! Corrected "Former revisions" section37 !38 ! 2696 2017-12-14 17:12:51Z kanani39 ! - Change in file header (GPL part)40 ! - Rename file into poismg_noopt_mod41 ! - Modularize poismg_noopt - initialization of masking flags moved from42 ! init_grid43 ! - Masking of downward-facing walls walls44 ! - Large-scale forcing implemented (MS)45 !46 ! 2591 2017-10-30 08:07:25Z maronga47 !48 ! 2586 2017-10-27 13:03:50Z kanani49 !50 ! 2232 2017-05-30 17:47:52Z suehring51 ! Bugfixes OpenMP52 !53 ! 2037 2016-10-26 11:15:40Z knoop54 ! Anelastic approximation implemented55 !56 ! 2021 2016-10-07 14:08:57Z suehring57 ! Bugfix: restore nest_bound_(l/r/s/n) in case of mg_switch_to_pe058 !59 ! 2000 2016-08-20 18:09:15Z knoop60 ! Forced header and separation lines into 80 columns61 !62 ! 1934 2016-06-13 09:46:57Z hellstea63 ! Rename subroutines and cpu-measure log points to indicate _noopt version64 !65 ! 1762 2016-02-25 12:31:13Z hellstea66 ! Introduction of nested domain feature67 !68 ! 1682 2015-10-07 23:56:08Z knoop69 ! Code annotations made doxygen readable70 !71 ! 1353 2014-04-08 15:21:23Z heinze72 ! REAL constants provided with KIND-attribute73 !74 ! 1322 2014-03-20 16:38:49Z raasch75 ! REAL constants defined as wp-kind76 !77 ! 1320 2014-03-20 08:40:49Z raasch78 ! ONLY-attribute added to USE-statements,79 ! kind-parameters added to all INTEGER and REAL declaration statements,80 ! kinds are defined in new module kinds,81 ! old module precision_kind is removed,82 ! revision history before 2012 removed,83 ! comment fields (!:) to be used for variable explanations added to84 ! all variable declaration statements85 !86 ! 1318 2014-03-17 13:35:16Z raasch87 ! module interfaces removed88 !89 ! 1159 2013-05-21 11:58:22Z fricke90 ! bc_lr/ns_dirneu/neudir removed91 !92 ! 1092 2013-02-02 11:24:22Z raasch93 ! unused variables removed94 !95 ! 1056 2012-11-16 15:28:04Z raasch96 ! Bugfix: all ghost points have to be used for allocating p397 ! arrays p2, f2, and f2_l changed from allocatable to automatic98 !99 ! 1036 2012-10-22 13:43:42Z raasch100 ! code put under GPL (PALM 3.9)101 !102 ! 996 2012-09-07 10:41:47Z raasch103 ! little reformatting104 !105 ! 978 2012-08-09 08:28:32Z fricke106 ! bc_lr/ns_dirneu/neudir added107 !108 ! 880 2012-04-13 06:28:59Z raasch109 ! Bugfix: preprocessor statements for parallel execution added110 !111 ! 778 2011-11-07 14:18:25Z fricke112 ! Allocation of p3 changes when multigrid is used and the collected field on PE0113 ! has more grid points than the subdomain of an PE.114 !115 ! 707 2011-03-29 11:39:40Z raasch116 ! p_loc is used instead of p in the main routine (poismg).117 ! On coarse grid levels, gathered data are identically processed on all PEs118 ! (before, on PE0 only), so that the subsequent scattering of data is not119 ! neccessary any more.120 ! bc_lr/ns replaced by bc_lr/ns_cyc/dirrad/raddir121 ! Bugfix: bottom (nzb) and top (nzt+1) boundary conditions set in routines122 ! resid and restrict. They were missed before which may have led to123 ! unpredictable results.124 !125 ! 667 2010-12-23 12:06:00Z suehring/gryschka126 ! Calls of exchange_horiz are modified.127 !128 ! 622 2010-12-10 08:08:13Z raasch129 ! optional barriers included in order to speed up collective operations130 !131 ! 257 2009-03-11 15:17:42Z heinze132 ! Output of messages replaced by message handling routine.133 !134 ! 181 2008-07-30 07:07:47Z raasch135 ! Bugfix: grid_level+1 has to be used in restrict for flags-array136 !137 ! 114 2007-10-10 00:03:15Z raasch138 ! Boundary conditions at walls are implicitly set using flag arrays. Only139 ! Neumann BC is allowed. Upper walls are still not realized.140 ! Bottom and top BCs for array f_mg in restrict removed because boundary141 ! values are not needed (right hand side of SOR iteration).142 !143 ! 75 2007-03-22 09:54:05Z raasch144 ! 2nd+3rd argument removed from exchange horiz145 !146 ! RCS Log replace by Id keyword, revision history cleaned up147 !148 ! Revision 1.6 2005/03/26 20:55:54 raasch149 ! Implementation of non-cyclic (Neumann) horizontal boundary conditions,150 ! routine prolong simplified (one call of exchange_horiz spared)151 !152 ! Revision 1.1 2001/07/20 13:10:51 raasch153 ! Initial revision154 !155 29 ! 156 30 ! Description:
Note: See TracChangeset
for help on using the changeset viewer.