Ignore:
Timestamp:
Aug 21, 2019 2:37:54 PM (2 years ago)
Author:
scharf
Message:

removed comments in 'Former revisions' section that are older than 01.01.2019

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/advec_ws.f90

    r4110 r4180  
    7777! OpenACC port for SPEC
    7878!
    79 ! 3589 2018-11-30 15:09:51Z suehring
    80 ! Move the control parameter "salsa" from salsa_mod to control_parameters
    81 ! (M. Kurppa)
    82 !
    83 ! 3582 2018-11-29 19:16:36Z suehring
    84 ! - Computation of vertical fluxes separated from computation of horizontal
    85 !   fluxes. Loops are splitted in order to avoid indirect indexing and allow
    86 !   for better vectorization.
    87 ! - Accelerate code by remove type-conversions of ibits
    88 ! - replace pointer definition in scalar routine by simple explicit definition
    89 !   of the passed array
    90 !
    91 ! 3547 2018-11-21 13:21:24Z suehring
    92 ! variables documented
    93 !
    94 ! 3467 2018-10-30 19:05:21Z suehring
    95 ! Implementation of a new aerosol module salsa.
    96 !
    97 ! 3302 2018-10-03 02:39:40Z raasch
    98 ! Stokes drift velocity added in scalar advection
    99 !
    100 ! 3298 2018-10-02 12:21:11Z kanani
    101 ! Add formatted note from ketelsen about statistics for chemistry
    102 !
    103 ! 3294 2018-10-01 02:37:10Z raasch
    104 ! ocean renamed ocean_mode
    105 !
    106 ! 3274 2018-09-24 15:42:55Z knoop
    107 ! Modularization of all bulk cloud physics code components
    108 !
    109 ! 3241 2018-09-12 15:02:00Z raasch
    110 ! unused variables removed
    111 !
    112 ! 3183 2018-07-27 14:25:55Z suehring
    113 ! Rename variables for boundary-condition flags and for offline nesting mode
    114 !
    115 ! 3182 2018-07-27 13:36:03Z suehring
    116 ! Bugfix in calculation of left-sided fluxes for u-component in OpenMP case.
    117 !
    118 ! 2731 2018-01-09 17:44:02Z suehring
    119 ! Enable loop vectorization by splitting the k-loop
    120 !
    121 ! 2718 2018-01-02 08:49:38Z maronga
    122 ! Corrected "Former revisions" section
    123 !
    124 ! 2696 2017-12-14 17:12:51Z kanani
    125 ! Change in file header (GPL part)
    126 ! Implement advection for TKE-dissipation in case of RANS-TKE-e closure (TG)
    127 ! Allocate advc_flags_1/2 within ws_init_flags instead of init_grid
    128 ! Change argument list for exchange_horiz_2d_int (MS)
    129 !
    130 ! 2329 2017-08-03 14:24:56Z knoop
    131 ! Bugfix concerning density in divergence correction close to buildings
    132 !
    133 ! 2292 2017-06-20 09:51:42Z schwenkel
    134 ! Implementation of new microphysic scheme: cloud_scheme = 'morrison'
    135 ! includes two more prognostic equations for cloud drop concentration (nc) 
    136 ! and cloud water content (qc).
    137 !
    138 ! 2233 2017-05-30 18:08:54Z suehring
    139 !
    140 ! 2232 2017-05-30 17:47:52Z suehring
    141 ! Rename wall_flags_0 and wall_flags_00 into advc_flags_m and advc_flags_1,
    142 ! respectively.
    143 ! Set advc_flags_1/2 on basis of wall_flags_0/00 instead of nzb_s/u/v/w_inner.
    144 ! Setting advc_flags_1/2 also for downward-facing walls
    145 !
    146 ! 2200 2017-04-11 11:37:51Z suehring
    147 ! monotonic_adjustment removed
    148 !
    149 ! 2118 2017-01-17 16:38:49Z raasch
    150 ! OpenACC version of subroutines removed
    151 !
    152 ! 2037 2016-10-26 11:15:40Z knoop
    153 ! Anelastic approximation implemented
    154 !
    155 ! 2000 2016-08-20 18:09:15Z knoop
    156 ! Forced header and separation lines into 80 columns
    157 !
    158 ! 1996 2016-08-18 11:42:29Z suehring
    159 ! Bugfix concerning calculation of turbulent of turbulent fluxes
    160 !
    161 ! 1960 2016-07-12 16:34:24Z suehring
    162 ! Separate humidity and passive scalar
    163 !
    164 ! 1942 2016-06-14 12:18:18Z suehring
    165 ! Initialization of flags for ws-scheme moved from init_grid.
    166 !
    167 ! 1873 2016-04-18 14:50:06Z maronga
    168 ! Module renamed (removed _mod)
    169 !
    170 !
    171 ! 1850 2016-04-08 13:29:27Z maronga
    172 ! Module renamed
    173 !
    174 !
    175 ! 1822 2016-04-07 07:49:42Z hoffmann
    176 ! icloud_scheme removed, microphysics_seifert added
    177 !
    178 ! 1682 2015-10-07 23:56:08Z knoop
    179 ! Code annotations made doxygen readable
    180 !
    181 ! 1630 2015-08-26 16:57:23Z suehring
    182 !
    183 !
    184 ! 1629 2015-08-26 16:56:11Z suehring
    185 ! Bugfix concerning wall_flags at left and south PE boundaries
    186 !
    187 ! 1581 2015-04-10 13:45:59Z suehring
    188 !
    189 !
    190 ! 1580 2015-04-10 13:43:49Z suehring
    191 ! Bugfix: statistical evaluation of scalar fluxes in case of monotonic limiter
    192 !
    193 ! 1567 2015-03-10 17:57:55Z suehring
    194 ! Bugfixes in monotonic limiter.
    195 !
    196 ! 2015-03-09 13:10:37Z heinze
    197 ! Bugfix: REAL constants provided with KIND-attribute in call of
    198 ! intrinsic functions like MAX and MIN
    199 !
    200 ! 1557 2015-03-05 16:43:04Z suehring
    201 ! Enable monotone advection for scalars using monotonic limiter
    202 !
    203 ! 1374 2014-04-25 12:55:07Z raasch
    204 ! missing variables added to ONLY list
    205 !
    206 ! 1361 2014-04-16 15:17:48Z hoffmann
    207 ! accelerator and vector version for qr and nr added
    208 !
    209 ! 1353 2014-04-08 15:21:23Z heinze
    210 ! REAL constants provided with KIND-attribute,
    211 ! module kinds added
    212 ! some formatting adjustments
    213 !
    214 ! 1322 2014-03-20 16:38:49Z raasch
    215 ! REAL constants defined as wp-kind
    216 !
    217 ! 1320 2014-03-20 08:40:49Z raasch
    218 ! ONLY-attribute added to USE-statements,
    219 ! kind-parameters added to all INTEGER and REAL declaration statements,
    220 ! kinds are defined in new module kinds,
    221 ! old module precision_kind is removed,
    222 ! revision history before 2012 removed,
    223 ! comment fields (!:) to be used for variable explanations added to
    224 ! all variable declaration statements
    225 !
    226 ! 1257 2013-11-08 15:18:40Z raasch
    227 ! accelerator loop directives removed
    228 !
    229 ! 1221 2013-09-10 08:59:13Z raasch
    230 ! wall_flags_00 introduced, which holds bits 32-...
    231 !
    232 ! 1128 2013-04-12 06:19:32Z raasch
    233 ! loop index bounds in accelerator version replaced by i_left, i_right, j_south,
    234 ! j_north
    235 !
    236 ! 1115 2013-03-26 18:16:16Z hoffmann
    237 ! calculation of qr and nr is restricted to precipitation
    238 !
    239 ! 1053 2012-11-13 17:11:03Z hoffmann
    240 ! necessary expansions according to the two new prognostic equations (nr, qr)
    241 ! of the two-moment cloud physics scheme:
    242 ! +flux_l_*, flux_s_*, diss_l_*, diss_s_*, sums_ws*s_ws_l
    243 !
    244 ! 1036 2012-10-22 13:43:42Z raasch
    245 ! code put under GPL (PALM 3.9)
    246 !
    247 ! 1027 2012-10-15 17:18:39Z suehring
    248 ! Bugfix in calculation indices k_mm, k_pp in accelerator version
    249 !
    250 ! 1019 2012-09-28 06:46:45Z raasch
    251 ! small change in comment lines
    252 !
    253 ! 1015 2012-09-27 09:23:24Z raasch
    254 ! accelerator versions (*_acc) added
    255 !
    256 ! 1010 2012-09-20 07:59:54Z raasch
    257 ! cpp switch __nopointer added for pointer free version
    258 !
    259 ! 888 2012-04-20 15:03:46Z suehring
    260 ! Number of REAL( IBITS() calls with identical arguments is reduced.
    261 !
    262 ! 862 2012-03-26 14:21:38Z suehring
    263 ! ws-scheme also work with topography in combination with vector version.
    264 ! ws-scheme also work with outflow boundaries in combination with
    265 ! vector version.
    266 ! Degradation of the applied order of scheme is now steered by multiplying with
    267 ! Integer advc_flags_1. 2nd order scheme, WS3 and WS5 are calculated on each
    268 ! grid point and mulitplied with the appropriate flag.
    269 ! 2nd order numerical dissipation term changed. Now the appropriate 2nd order
    270 ! term derived according to the 4th and 6th order terms is applied. It turns
    271 ! out that diss_2nd does not provide sufficient dissipation near walls.
    272 ! Therefore, the function diss_2nd is removed.
    273 ! Near walls a divergence correction is necessary to overcome numerical
    274 ! instabilities due to too less divergence reduction of the velocity field.
    275 ! boundary_flags and logicals steering the degradation are removed.
    276 ! Empty SUBROUTINE local_diss removed.
    277 ! Further formatting adjustments.
    278 !
    279 ! 801 2012-01-10 17:30:36Z suehring
    280 ! Bugfix concerning OpenMP parallelization. Summation of sums_wsus_ws_l,
    281 ! sums_wsvs_ws_l, sums_us2_ws_l, sums_vs2_ws_l, sums_ws2_ws_l, sums_wspts_ws_l,
    282 ! sums_wsqs_ws_l, sums_wssas_ws_l is now thread-safe by adding an additional
    283 ! dimension.
    284 !
    285 ! Initial revision
    286 !
    287 ! 411 2009-12-11 12:31:43 Z suehring
    288 !
    289 !
    290 !
    291 ! @author Matthias Suehring
    292 !
    29379!
    29480! Description:
Note: See TracChangeset for help on using the changeset viewer.