Changeset 4180 for palm/trunk/SOURCE/parin.f90
- Timestamp:
- Aug 21, 2019 2:37:54 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/parin.f90
r4176 r4180 59 59 ! Delete debug-print statements 60 60 ! 61 ! 3646 2018-12-28 17:58:49Z kanani62 ! Bugfix: for restarts, reset data_output_during_spinup to FALSE to enable63 ! correct calculation of ntdim in check_parameters64 !65 ! 3637 2018-12-20 01:51:36Z knoop66 ! Implementation of the PALM module interface67 !68 ! 3569 2018-11-27 17:03:40Z kanani69 ! dom_dwd_user, Schrempf:70 ! Remove uv exposure model code, this is now part of biometeorology_mod.71 !72 ! 3545 2018-11-21 11:19:41Z gronemeier73 ! remove rans_mode from initialization_parameters74 !75 ! 3525 2018-11-14 16:06:14Z kanani76 ! Changes related to clean-up of biometeorology (dom_dwd_user)77 !78 ! 3473 2018-10-30 20:50:15Z suehring79 ! Add virtual measurement module80 !81 ! 3472 2018-10-30 20:43:50Z suehring82 ! Add indoor model (kanani, srissman, tlang),83 ! minor formatting84 !85 ! 3467 2018-10-30 19:05:21Z suehring86 ! Implementation of a new aerosol module salsa.87 !88 ! 3448 2018-10-29 18:14:31Z kanani89 ! Add biometeorology90 !91 ! 3435 2018-10-26 18:25:44Z gronemeier92 ! Add mask_k_over_surface93 !94 ! 3421 2018-10-24 18:39:32Z gronemeier95 ! Added module for data output at surfaces96 !97 ! 3355 2018-10-16 14:03:34Z knoop98 ! - offline nesting separated from large-scale forcing module99 ! - top boundary condition for pressure in offline nesting changed100 !101 ! 3343 2018-10-15 10:38:52Z suehring102 ! Introduced reading of date_init to inipar.(Russo)103 ! Add extra profiles for chemistry (basit)104 !105 ! 3294 2018-10-01 02:37:10Z raasch106 ! changes concerning modularization of ocean option107 !108 ! 3274 2018-09-24 15:42:55Z knoop109 ! Modularization of all bulk cloud physics code components110 !111 ! 3248 2018-09-14 09:42:06Z sward112 ! Minor formating changes113 !114 ! 3246 2018-09-13 15:14:50Z sward115 ! Added error handling for input namelist via parin_fail_message116 !117 ! 3240 2018-09-12 12:04:40Z Giersch118 ! A check that controls the number of user-defined profiles on the restart file119 ! with the one given for the current run has been added.120 !121 ! 3204 2018-08-23 10:49:05Z raasch122 ! additional check for nz123 !124 ! 3184 2018-07-27 17:13:09Z suehring125 ! Bugfix, comment setting of chemistry and passive scalar top boundary condition126 ! in case of offline nesting127 !128 ! 3183 2018-07-27 14:25:55Z suehring129 ! Rename variables and boundary conditions in mesoscale-offline nesting mode130 !131 ! 3182 2018-07-27 13:36:03Z suehring132 ! Added multi agent system133 !134 ! 3157 2018-07-19 21:08:49Z maronga135 ! added use_free_convection_scaling136 !137 ! 3083 2018-06-19 14:03:12Z gronemeier138 ! Added rans_const_c and rans_const_sigma as input parameters (TG)139 !140 ! 3065 2018-06-12 07:03:02Z Giersch141 ! New initialization parameters added142 !143 ! 3049 2018-05-29 13:52:36Z Giersch144 ! Error messages revised145 !146 ! 3045 2018-05-28 07:55:41Z Giersch147 ! z_max_do2d removed, error messages revised148 !149 ! 2995 2018-04-19 12:13:16Z Giersch150 ! time_since_reference_point must be calculated/initialized before the first151 ! call of functions related to the radiation model which occur in152 ! time_integration_spinup or time_integration153 !154 ! 2980 2018-04-17 15:19:27Z suehring155 ! Revise message call156 !157 ! 2975 2018-04-16 15:22:20Z suehring158 ! - Informative message when initializing_actions has been changed159 ! to set_constant_profile in child domain160 ! - Change location in message call161 !162 ! 2967 2018-04-13 11:22:08Z raasch163 ! bugfix: missing parallel cpp-directives added164 !165 ! 2941 2018-04-03 11:54:58Z kanani166 ! Fix for spinup in case of restart run167 !168 ! 2938 2018-03-27 15:52:42Z suehring169 ! Change initialization in case child domain should be initialized with Inifor.170 !171 ! 2936 2018-03-27 14:49:27Z suehring172 ! inipar renamed to initialization_parameters.173 ! d3par renamed to runtime_parameters.174 !175 ! 2921 2018-03-22 15:05:23Z Giersch176 ! Activation of spinup has been moved from lsm/usm_parin to parin itself177 !178 ! 2906 2018-03-19 08:56:40Z Giersch179 ! ENVIRONMENT variables read/write_svf has been added180 !181 ! 2894 2018-03-15 09:17:58Z Giersch182 ! read_var_list has been renamed to rrd_global, all module related _parin183 ! routines are called before reading the global restart data to overwrite them184 ! in case of restart runs185 !186 ! 2881 2018-03-13 16:24:40Z suehring187 ! Added flag for switching on/off calculation of soil moisture188 !189 ! 2849 2018-03-05 10:49:33Z Giersch190 ! Position of d3par namelist in parameter file is unimportant now191 !192 ! 2826 2018-02-21 12:39:28Z Giersch193 ! Bugfix in setting the default boundary conditions for nest domains194 !195 ! 2817 2018-02-19 16:32:21Z knoop196 ! Preliminary gust module interface implemented197 !198 ! 2773 2018-01-30 14:12:54Z suehring199 ! Nesting for chemical species implemented200 !201 ! 2766 2018-01-22 17:17:47Z kanani202 ! Removed preprocessor directive __chem203 !204 ! 2718 2018-01-02 08:49:38Z maronga205 ! Corrected "Former revisions" section206 !207 ! 2696 2017-12-14 17:12:51Z kanani208 ! Change in file header (GPL part)209 ! Implementation of uv exposure model (FK)210 ! Added rans_mode and turbulence_closure to inipar (TG)211 ! Implementation of chemistry module212 ! Sorting of USE list (FK)213 ! Forcing implemented, and initialization with inifor (MS)214 !215 ! 2600 2017-11-01 14:11:20Z raasch216 ! some comments added and variables renamed concerning r2599217 !218 ! 2599 2017-11-01 13:18:45Z hellstea219 ! The i/o grouping is updated to work correctly also in nested runs.220 !221 ! 2575 2017-10-24 09:57:58Z maronga222 ! Renamed phi -> latitude, added longitude223 !224 ! 2563 2017-10-19 15:36:10Z Giersch225 ! Changed position where restart files are closed.226 !227 ! 2550 2017-10-16 17:12:01Z boeske228 ! Added complex_terrain229 !230 ! 2544 2017-10-13 18:09:32Z maronga231 ! Moved day_of_year_init and time_utc_init to inipar.232 !233 ! 2397 2017-09-04 16:22:48Z suehring234 ! Enable initialization of 3d model by user in the child domain.235 !236 ! 2375 2017-08-29 14:10:28Z schwenkel237 ! Added aerosol initialization for bulk microphysics238 !239 ! 2372 2017-08-25 12:37:32Z sward240 ! y_shift added to namelist241 !242 ! 2365 2017-08-21 14:59:59Z kanani243 ! Vertical grid nesting: add vnest_start_time to d3par (SadiqHuq)244 !245 ! 2339 2017-08-07 13:55:26Z gronemeier246 ! corrected timestamp in header247 !248 ! 2338 2017-08-07 12:15:38Z gronemeier249 ! Modularize 1D model250 !251 ! 2310 2017-07-11 09:37:02Z gronemeier252 ! Bugfix: re-arranged call for error messages for ENVPAR file253 !254 ! 2304 2017-07-04 14:35:55Z suehring255 ! Bugfix, enable restarts for child domain.256 !257 ! 2298 2017-06-29 09:28:18Z raasch258 ! -return_addres, return_username in ENVPAR, -cross_ts_uymax, cross_ts_uymin in259 ! d3par260 !261 ! 2296 2017-06-28 07:53:56Z maronga262 ! Added parameters for model spinup263 !264 ! 2292 2017-06-20 09:51:42Z schwenkel265 ! Implementation of new microphysic scheme: cloud_scheme = 'morrison'266 ! includes two more prognostic equations for cloud drop concentration (nc)267 ! and cloud water content (qc).268 !269 ! 2267 2017-06-09 09:33:25Z gronemeier270 ! Bugfix: removed skipping of reading namelists in case of omitted d3par271 !272 ! 2259 2017-06-08 09:09:11Z gronemeier273 ! Implemented synthetic turbulence generator274 !275 ! 2233 2017-05-30 18:08:54Z suehring276 !277 ! 2232 2017-05-30 17:47:52Z suehring278 ! typo corrected279 ! +wall_salinityflux280 ! +tunnel_height, tunnel_lenght, tunnel_width_x, tunnel_width_y,281 ! tunnel_wall_depth282 !283 ! 2118 2017-01-17 16:38:49Z raasch284 ! -background_communication from inipar285 !286 ! 2050 2016-11-08 15:00:55Z gronemeier287 ! Implement turbulent outflow condition288 !289 ! 2037 2016-10-26 11:15:40Z knoop290 ! Anelastic approximation implemented291 !292 ! 2035 2016-10-24 15:06:17Z suehring293 ! Remove check for npex and npey in nesting case294 !295 ! 2011 2016-09-19 17:29:57Z kanani296 ! Added flag lsf_exception to allow explicit enabling of large scale forcing297 ! together with buildings on flat terrain.298 !299 ! 2007 2016-08-24 15:47:17Z kanani300 ! Added call to urban surface model for reading of &urban_surface_par301 !302 ! 2004 2016-08-24 10:25:59Z suehring303 ! Humidity and passive scalar treated separately in nesting mode304 !305 ! 2000 2016-08-20 18:09:15Z knoop306 ! Forced header and separation lines into 80 columns307 !308 ! 1992 2016-08-12 15:14:59Z suehring309 ! +top_scalarflux310 !311 ! 1960 2016-07-12 16:34:24Z suehring312 ! Allocation of s_init313 !314 ! 1957 2016-07-07 10:43:48Z suehring315 ! flight module added316 !317 ! 1955 2016-07-01 12:38:59Z hellstea318 ! The parameter intializating_actions is set to 'set_constant_profiles for319 ! all nest domains in order to make sure that diagnostic variables are properly320 ! initialized for nest domains. Prognostic variables are later initialized by321 ! interpolation from the parent domain.322 !323 ! 1917 2016-05-27 14:28:12Z witha324 ! Initial version of purely vertical nesting introduced.325 !326 ! 1914 2016-05-26 14:44:07Z witha327 ! Added call to wind turbine model for reading of &wind_turbine_par328 !329 ! 1849 2016-04-08 11:33:18Z hoffmann330 ! Adapted for modularization of microphysics331 !332 ! 1833 2016-04-07 14:23:03Z raasch333 ! call of spectra_parin334 !335 ! 1831 2016-04-07 13:15:51Z hoffmann336 ! turbulence renamed collision_turbulence, drizzle renamed337 ! cloud_water_sedimentation338 ! curvature_solution_effects removed339 !340 ! 1826 2016-04-07 12:01:39Z maronga341 ! Added call to radiation model for reading of &radiation_par.342 ! Added call to plant canopy model for reading of &canopy_par.343 !344 ! 1817 2016-04-06 15:44:20Z maronga345 ! Added call to land surface model for reading of &lsm_par346 !347 ! 1804 2016-04-05 16:30:18Z maronga348 ! Removed code for parameter file check (__check)349 !350 ! 1783 2016-03-06 18:36:17Z raasch351 ! +netcdf_deflate in d3par, netcdf module and variable names changed352 !353 ! 1764 2016-02-28 12:45:19Z raasch354 ! cpp-statements for nesting removed, explicit settings of boundary conditions355 ! in nest domains,356 ! bugfix: npex/npey message moved from inipar to d3par357 ! bugfix: check of lateral boundary conditions from check_parameters to here,358 ! because they will be already used in init_pegrid and init_grid359 !360 ! 1762 2016-02-25 12:31:13Z hellstea361 ! Introduction of nested domain feature362 !363 ! 1691 2015-10-26 16:17:44Z maronga364 ! Added parameter most_method. Renamed prandtl_layer to constant_flux_layer.365 !366 ! 1682 2015-10-07 23:56:08Z knoop367 ! Code annotations made doxygen readable368 !369 ! 1560 2015-03-06 10:48:54Z keck370 ! +recycling_yshift371 !372 ! 1496 2014-12-02 17:25:50Z maronga373 ! Renamed: "radiation -> "cloud_top_radiation"374 !375 ! 1484 2014-10-21 10:53:05Z kanani376 ! Changes due to new module structure of the plant canopy model:377 ! canopy-model related parameters moved to new package canopy_par in378 ! subroutine package_parin379 !380 ! 1429 2014-07-15 12:53:45Z knoop381 ! +ensemble_member_nr to prepare the random_generator for ensemble runs382 !383 ! 1402 2014-05-09 14:25:13Z raasch384 ! location messages modified, progress_bar_disabled included in envpar-NAMELIST385 !386 ! 1384 2014-05-02 14:31:06Z raasch387 ! location messages added388 !389 ! 1365 2014-04-22 15:03:56Z boeske390 ! Usage of large scale forcing enabled:391 ! +use_subsidence_tendencies392 !393 ! 1361 2014-04-16 15:17:48Z hoffmann394 ! +call_microphysics_at_all_substeps395 !396 ! 1359 2014-04-11 17:15:14Z hoffmann397 ! REAL constants provided with KIND-attribute398 !399 ! 1353 2014-04-08 15:21:23Z heinze400 ! REAL constants provided with KIND-attribute401 !402 ! 1327 2014-03-21 11:00:16Z raasch403 ! -data_output_format, do3d_compress, do3d_comp_prec404 !405 ! 1320 2014-03-20 08:40:49Z raasch406 ! ONLY-attribute added to USE-statements,407 ! kind-parameters added to all INTEGER and REAL declaration statements,408 ! kinds are defined in new module kinds,409 ! old module precision_kind is removed,410 ! revision history before 2012 removed,411 ! comment fields (!:) to be used for variable explanations added to412 ! all variable declaration statements413 !414 ! 1318 2014-03-17 13:35:16Z raasch415 ! +cpu_log_barrierwait in d3par416 !417 ! 1301 2014-03-06 13:29:46Z heinze418 ! +large_scale_subsidence419 !420 ! 1241 2013-10-30 11:36:58Z heinze421 ! +nudging422 ! +large_scale_forcing423 !424 ! 1216 2013-08-26 09:31:42Z raasch425 ! +transpose_compute_overlap in inipar426 !427 ! 1195 2013-07-01 12:27:57Z heinze428 ! Bugfix: allocate ref_state429 !430 ! 1179 2013-06-14 05:57:58Z raasch431 ! +reference_state in inipar432 !433 ! 1159 2013-05-21 11:58:22Z fricke434 ! +use_cmax435 !436 ! 1128 2013-04-12 06:19:32Z raasch437 ! +background_communication in inipar438 !439 ! 1115 2013-03-26 18:16:16Z hoffmann440 ! unused variables removed441 !442 ! 1092 2013-02-02 11:24:22Z raasch443 ! unused variables removed444 !445 ! 1065 2012-11-22 17:42:36Z hoffmann446 ! +nc, c_sedimentation, limiter_sedimentation, turbulence447 ! -mu_constant, mu_constant_value448 !449 ! 1053 2012-11-13 17:11:03Z hoffmann450 ! necessary expansions according to the two new prognostic equations (nr, qr)451 ! of the two-moment cloud physics scheme and steering parameters:452 ! +*_init, *_surface, *_surface_initial_change, *_vertical_gradient,453 ! +*_vertical_gradient_level, surface_waterflux_*,454 ! +cloud_scheme, drizzle, mu_constant, mu_constant_value, ventilation_effect455 !456 ! 1036 2012-10-22 13:43:42Z raasch457 ! code put under GPL (PALM 3.9)458 !459 ! 1015 2012-09-27 09:23:24Z raasch460 ! -adjust_mixing_length461 !462 ! 1003 2012-09-14 14:35:53Z raasch463 ! -grid_matching464 !465 ! 1001 2012-09-13 14:08:46Z raasch466 ! -cut_spline_overshoot, long_filter_factor, overshoot_limit_*, ups_limit_*467 !468 ! 996 2012-09-07 10:41:47Z raasch469 ! -use_prior_plot1d_parameters470 !471 ! 978 2012-08-09 08:28:32Z fricke472 ! -km_damp_max, outflow_damping_width473 ! +pt_damping_factor, pt_damping_width474 ! +z0h_factor475 !476 ! 964 2012-07-26 09:14:24Z raasch477 ! -cross_normalized_x, cross_normalized_y, cross_xtext, z_max_do1d,478 ! z_max_do1d_normalized479 !480 ! 940 2012-07-09 14:31:00Z raasch481 ! +neutral in inipar482 !483 ! 927 2012-06-06 19:15:04Z raasch484 ! +masking_method in inipar485 !486 ! 824 2012-02-17 09:09:57Z raasch487 ! +curvature_solution_effects in inipar488 !489 ! 809 2012-01-30 13:32:58Z maronga490 ! Bugfix: replaced .AND. and .NOT. with && and ! in the preprocessor directives491 !492 ! 807 2012-01-25 11:53:51Z maronga493 ! New cpp directive "__check" implemented which is used by check_namelist_files494 !495 ! Revision 1.1 1997/07/24 11:22:50 raasch496 ! Initial revision497 !498 61 ! 499 62 ! Description:
Note: See TracChangeset
for help on using the changeset viewer.