Changeset 4180 for palm/trunk/SOURCE/model_1d_mod.f90
- Timestamp:
- Aug 21, 2019 2:37:54 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/model_1d_mod.f90
r3655 r4180 27 27 ! Modularization of all bulk cloud physics code components 28 28 ! 29 ! 3135 2018-07-16 14:43:04Z gronemeier30 ! Bugfix: add +1 to c_3 according to Sogachev et al. (2012)31 !32 ! 3126 2018-07-13 15:13:54Z gronemeier33 ! Bugfix: define c_0 = 0.03^0.25 = 0.41617914534 !35 ! 3083 2018-06-19 14:03:12Z gronemeier36 ! Bugfixes:37 ! - preset te_diss and te_e to avoid runtime errors38 ! - implementation of buoyancy term to dissipation39 ! according to Sogachev et al. (2012)40 ! - where diss_p < 0 set diss_p = 0.1 diss41 ! - calculate progn eq(diss) starting from nzb+142 ! Changes:43 ! - add sig_e to TKE equation44 ! - adjust prognostic equation of diss45 ! - set model constants according to Koblitz (2013)46 ! - renamed c_m to c_047 ! - rename l_black into l1d_init48 ! - calculate l_grid within init_1d_model and save it as l1d_init49 ! - calculate l1d according to DE85 if dissipation is a prognostic value50 ! - made annotations doxygen-readable51 !52 ! 3049 2018-05-29 13:52:36Z Giersch53 ! Error messages revised54 !55 ! 3045 2018-05-28 07:55:41Z Giersch56 ! Error message revised57 !58 ! 2965 2018-04-13 07:37:25Z scharf59 ! adjusted format string for 1D run control output60 !61 ! 2918 2018-03-21 15:52:14Z gronemeier62 ! - rename l_black into l1d_init63 ! - calculate l_grid within init_1d_model and save it as l1d_init64 !65 ! 2718 2018-01-02 08:49:38Z maronga66 ! Corrected "Former revisions" section67 !68 ! 2696 2017-12-14 17:12:51Z kanani69 ! Change in file header (GPL part)70 ! implement TKE-e closure71 ! modification of dissipation production according to Detering and Etling72 ! reduced factor for timestep criterion to 0.125 and first dt to 1s (TG)73 !74 ! 2339 2017-08-07 13:55:26Z gronemeier75 ! corrected timestamp in header76 !77 ! 2338 2017-08-07 12:15:38Z gronemeier78 ! renamed init_1d_model to model_1d_mod and and formatted it as a module;79 ! reformatted output of profiles80 !81 ! 2337 2017-08-07 08:59:53Z gronemeier82 ! revised calculation of mixing length83 ! removed rounding of time step84 ! corrected calculation of virtual potential temperature85 !86 ! 2334 2017-08-04 11:57:04Z gronemeier87 ! set c_m = 0.4 according to Detering and Etling (1985)88 !89 ! 2299 2017-06-29 10:14:38Z maronga90 ! Removed german text91 !92 ! 2101 2017-01-05 16:42:31Z suehring93 !94 ! 2059 2016-11-10 14:20:40Z maronga95 ! Corrected min/max values of Rif.96 !97 ! 2000 2016-08-20 18:09:15Z knoop98 ! Forced header and separation lines into 80 columns99 !100 ! 1960 2016-07-12 16:34:24Z suehring101 ! Remove passive_scalar from IF-statements, as 1D-scalar profile is effectively102 ! not used.103 ! Formatting adjustment104 !105 ! 1808 2016-04-05 19:44:00Z raasch106 ! routine local_flush replaced by FORTRAN statement107 !108 ! 1709 2015-11-04 14:47:01Z maronga109 ! Set initial time step to 10 s to avoid instability of the 1d model for small110 ! grid spacings111 !112 ! 1697 2015-10-28 17:14:10Z raasch113 ! small E- and F-FORMAT changes to avoid informative compiler messages about114 ! insufficient field width115 !116 ! 1691 2015-10-26 16:17:44Z maronga117 ! Renamed prandtl_layer to constant_flux_layer. rif is replaced by ol and zeta.118 !119 ! 1682 2015-10-07 23:56:08Z knoop120 ! Code annotations made doxygen readable121 !122 ! 1353 2014-04-08 15:21:23Z heinze123 ! REAL constants provided with KIND-attribute124 !125 ! 1346 2014-03-27 13:18:20Z heinze126 ! Bugfix: REAL constants provided with KIND-attribute especially in call of127 ! intrinsic function like MAX, MIN, SIGN128 !129 ! 1322 2014-03-20 16:38:49Z raasch130 ! REAL functions provided with KIND-attribute131 !132 ! 1320 2014-03-20 08:40:49Z raasch133 ! ONLY-attribute added to USE-statements,134 ! kind-parameters added to all INTEGER and REAL declaration statements,135 ! kinds are defined in new module kinds,136 ! revision history before 2012 removed,137 ! comment fields (!:) to be used for variable explanations added to138 ! all variable declaration statements139 !140 ! 1036 2012-10-22 13:43:42Z raasch141 ! code put under GPL (PALM 3.9)142 !143 ! 1015 2012-09-27 09:23:24Z raasch144 ! adjustment of mixing length to the Prandtl mixing length at first grid point145 ! above ground removed146 !147 ! 1001 2012-09-13 14:08:46Z raasch148 ! all actions concerning leapfrog scheme removed149 !150 ! 996 2012-09-07 10:41:47Z raasch151 ! little reformatting152 !153 ! 978 2012-08-09 08:28:32Z fricke154 ! roughness length for scalar quantities z0h1d added155 !156 ! Revision 1.1 1998/03/09 16:22:10 raasch157 ! Initial revision158 !159 29 ! 160 30 ! Description:
Note: See TracChangeset
for help on using the changeset viewer.