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/land_surface_model_mod.f90

    r4118 r4180  
    107107! nopointer option removed
    108108!
    109 ! 3620 2018-12-11 12:29:43Z moh.hefny
    110 ! update the 3d rad_lw_out array
    111 !
    112 ! 3597 2018-12-04 08:40:18Z maronga
    113 ! Added pt_2m / theta_2m. Removed unncessary _eb strings.
    114 !
    115 ! 3486 2018-11-05 06:20:18Z maronga
    116 ! Bugfix for liquid water treatment on pavements
    117 !
    118 ! 3361 2018-10-16 20:39:37Z knoop
    119 ! Bugfix in initialization of soil properties from dynamic input file
    120 !
    121 ! 3347 2018-10-15 14:21:08Z suehring
    122 ! Assign real value instead of integer
    123 !
    124 ! 3341 2018-10-15 10:31:27Z suehring
    125 ! Modularization of all bulk cloud physics code components
    126 !
    127 ! 3271 2018-09-24 08:20:34Z suehring
    128 ! Several bugfixes:
    129 ! - Initialization of pt_surface array with soil temperature in the uppermost
    130 !   soil layer, else heat fluxes at the very first time step become quite large
    131 ! - Default initialization of vertical surface elements in special case terrain
    132 !   height changes are larger than adjacent building heights.
    133 !
    134 ! 3256 2018-09-17 12:20:07Z suehring
    135 ! Enable initialization of z0q for vegetation, pavement and water surfaces via
    136 ! namelist input.
    137 !
    138 ! 3248 2018-09-14 09:42:06Z sward
    139 ! Minor formating changes
    140 !
    141 ! 3246 2018-09-13 15:14:50Z sward
    142 ! Added error handling for input namelist via parin_fail_message
    143 !
    144 ! 3241 2018-09-12 15:02:00Z raasch
    145 ! unused variables removed
    146 !
    147 ! 3233 2018-09-07 13:21:24Z schwenkel
    148 ! Adapted for the use of cloud_droplets
    149 !
    150 ! 3222 2018-08-30 13:35:35Z suehring
    151 ! - Introduction of surface array for type and its names
    152 ! - Bugfix in intialization of pavement surfaces
    153 !
    154 ! 3215 2018-08-29 09:58:59Z suehring
    155 ! Enable optional initialization of soil properties directly from dynamic
    156 ! input file.
    157 !
    158 ! 3209 2018-08-27 16:58:37Z suehring
    159 ! Added maximum aerodynamic resistance of 300.
    160 !
    161 ! 3161 2018-07-23 09:30:10Z maronga
    162 ! Increased roughness of asphalt surfaces to account for turbulence production
    163 ! by traffic and other obstacles
    164 !
    165 ! 3152 2018-07-19 13:26:52Z suehring
    166 ! Further adjustments for q_surface
    167 !
    168 ! 3147 2018-07-18 22:38:11Z maronga
    169 ! Adjustments for new surface structure
    170 !
    171 ! 3146 2018-07-18 22:36:19Z maronga
    172 ! Modified calculation of the surface resistance r_s
    173 !
    174 ! 3142 2018-07-17 15:27:45Z suehring
    175 ! Minor bugfix for last commit.
    176 !
    177 ! 3138 2018-07-17 08:21:20Z maronga
    178 ! Bugfix: limit roughness lengths in case of sea surface with constant_roughness
    179 ! = .F.
    180 !
    181 ! 3136 2018-07-16 14:48:21Z suehring
    182 ! Limit also roughness length for heat and moisture where necessary;
    183 ! Limit surface resistance to positive values
    184 !
    185 ! 3133 2018-07-16 11:46:50Z maronga
    186 ! Bugfix for last commit.
    187 !
    188 ! Some adjustments for pavement parameters
    189 ! Limit magnus formula to avoid negative q_s (leads to model crash)
    190 !
    191 ! 3091 2018-06-28 16:20:35Z suehring
    192 ! Add check for local roughness length not exceeding surface-layer height and
    193 ! limit roughness length where necessary.
    194 !
    195 ! 3051 2018-05-30 17:43:55Z suehring
    196 ! Bugfix in surface-element loops for pavement surfaces
    197 !
    198 ! 3045 2018-05-28 07:55:41Z Giersch
    199 ! Error messages revised
    200 !
    201 ! 3045 2018-05-28 07:55:41Z Giersch
    202 ! Error messages revised and added
    203 !
    204 ! 3026 2018-05-22 10:30:53Z schwenkel
    205 ! Changed the name specific humidity to mixing ratio, since we are computing
    206 ! mixing ratios.
    207 !
    208 ! 3014 2018-05-09 08:42:38Z maronga
    209 ! Bugfix: set some initial values
    210 ! Bugfix: domain bounds of local_pf corrected
    211 !
    212 ! 3004 2018-04-27 12:33:25Z Giersch
    213 ! Further allocation checks implemented (averaged data will be assigned to fill
    214 ! values if no allocation happened so far)
    215 !
    216 ! 2968 2018-04-13 11:52:24Z suehring
    217 ! Bugfix in initialization in case of elevated model surface
    218 !
    219 ! 2963 2018-04-12 14:47:44Z suehring
    220 ! - In initialization of surface types, consider the case that surface_fractions
    221 !   is not given in static input file.
    222 ! - Introduce index for vegetation/wall, pavement/green-wall and water/window
    223 !   surfaces, for clearer access of surface fraction, albedo, emissivity, etc. .
    224 !
    225 ! 2938 2018-03-27 15:52:42Z suehring
    226 ! Initialization of soil moisture and temperature via Inifor-provided data also
    227 ! in nested child domains, even if no dynamic input file is available for
    228 ! child domain. 1D soil profiles are received from parent model. 
    229 !
    230 ! 2936 2018-03-27 14:49:27Z suehring
    231 ! renamed lsm_par to land_surface_parameters. Bugfix in message calls
    232 !
    233 ! 2921 2018-03-22 15:05:23Z Giersch
    234 ! The activation of spinup has been moved to parin
    235 !
    236 ! 2894 2018-03-15 09:17:58Z Giersch
    237 ! Calculations of the index range of the subdomain on file which overlaps with
    238 ! the current subdomain are already done in read_restart_data_mod,
    239 ! lsm_read/write_restart_data was renamed to lsm_r/wrd_local, USE kinds has
    240 ! been removed in several routines, variable named found has been
    241 ! introduced for checking if restart data was found, reading of restart strings
    242 ! has been moved completely to read_restart_data_mod, lsm_rrd_local is already
    243 ! inside the overlap loop programmed in read_restart_data_mod, the marker ***
    244 ! end lsm *** is not necessary anymore, strings and their respective lengths
    245 ! are written out and read now in case of restart runs to get rid of prescribed
    246 ! character lengths, SAVE attribute added where necessary, deallocation and
    247 ! allocation of some arrays have been changed to take care of different restart
    248 ! files that can be opened (index i)
    249 !
    250 ! 2881 2018-03-13 16:24:40Z suehring
    251 ! Bugfix: wrong loop structure for soil moisture calculation
    252 !
    253 ! 2805 2018-02-14 17:00:09Z suehring
    254 ! Bugfix in initialization of roughness over water surfaces
    255 !
    256 ! 2798 2018-02-09 17:16:39Z suehring
    257 ! Minor bugfix for initialization of pt_surface
    258 !
    259 ! 2797 2018-02-08 13:24:35Z suehring
    260 ! Move output of ghf to general 2D output to output ghf also at urban-type
    261 ! surfaces.
    262 ! Move restart data of ghf_av to read/write_3d_binary, as this is not a
    263 ! exclusively LSM variable anymore.   
    264 !
    265 ! 2765 2018-01-22 11:34:58Z maronga
    266 ! Major bugfix in calculation of f_shf for vertical surfaces
    267 !
    268 ! 2735 2018-01-11 12:01:27Z suehring
    269 ! output of r_a moved from land-surface to consider also urban-type surfaces
    270 !
    271 ! 2729 2018-01-09 11:22:28Z maronga
    272 ! Separated deep soil temperature from soil_temperature array
    273 !
    274 ! 2724 2018-01-05 12:12:38Z maronga
    275 ! Added security check for insufficient soil_temperature values
    276 !
    277 ! 2723 2018-01-05 09:27:03Z maronga
    278 ! Bugfix for spinups (end_time was increased twice in case of LSM + USM runs)
    279 !
    280 ! 2718 2018-01-02 08:49:38Z maronga
    281 ! Corrected "Former revisions" section
    282 !
    283 ! 2707 2017-12-18 18:34:46Z suehring
    284 ! Changes from last commit documented
    285 !
    286 ! 2706 2017-12-18 18:33:49Z suehring
    287 ! Bugfix, read surface temperature in case of restart runs.
    288 !
    289 ! 2705 2017-12-18 11:26:23Z maronga
    290 ! Bugfix in binary output (wrong sequence)
    291 !
    292 ! 2696 2017-12-14 17:12:51Z kanani
    293 ! Change in file header (GPL part)
    294 ! Bugfix: missing USE statement for calc_mean_profile
    295 ! do not write surface temperatures onto pt array as this might cause
    296 ! problems with nesting (MS)
    297 ! Revised calculation of pt1 and qv1 (now done in surface_layer_fluxes). Bugfix
    298 ! in calculation of surface density (cannot be done via an surface non-air
    299 ! temperature) (BM)
    300 ! Bugfix: g_d was NaN for non-vegetaed surface types (BM)
    301 ! Bugfix initialization of c_veg and lai
    302 ! Revise data output to enable _FillValues
    303 ! Bugfix in calcultion of r_a and rad_net_l (MS)
    304 ! Bugfix: rad_net is not updated in case of radiation_interaction and must thu
    305 ! be calculated again from the radiative fluxes
    306 ! Temporary fix for cases where no soil model is used on some PEs (BM)
    307 ! Revised input and initialization of soil and surface paramters
    308 ! pavement_depth is variable for each surface element
    309 ! radiation quantities belong to surface type now
    310 ! surface fractions initialized
    311 ! Rename lsm_last_actions into lsm_wrd_subdomain (MS)
    312 !
    313 ! 2608 2017-11-13 14:04:26Z schwenkel
    314 ! Calculation of magnus equation in external module (diagnostic_quantities_mod).
    315 ! Adjust calculation of vapor pressure and saturation mixing ratio that it is
    316 ! consistent with formulations in other parts of PALM.
    317 !
    318 ! 2575 2017-10-24 09:57:58Z maronga
    319 ! Pavement parameterization revised
    320 !
    321 ! 2573 2017-10-20 15:57:49Z scharf
    322 ! bugfixes in last_actions
    323 !
    324 ! 2548 2017-10-16 13:18:20Z suehring
    325 ! extended by cloud_droplets option
    326 !
    327 ! 2532 2017-10-11 16:00:46Z scharf
    328 ! bugfixes in data_output_3d
    329 !
    330 ! 2516 2017-10-04 11:03:04Z suehring
    331 ! Remove tabs
    332 !
    333 ! 2514 2017-10-04 09:52:37Z suehring
    334 ! upper bounds of cross section and 3d output changed from nx+1,ny+1 to nx,ny
    335 ! no output of ghost layer data
    336 !
    337 ! 2504 2017-09-27 10:36:13Z maronga
    338 ! Support roots and water under pavement. Added several pavement types.
    339 !
    340 ! 2476 2017-09-18 07:54:32Z maronga
    341 ! Bugfix for last commit
    342 !
    343 ! 2475 2017-09-18 07:42:36Z maronga
    344 ! Bugfix: setting of vegetation_pars for bare soil corrected.
    345 !
    346 ! 2354 2017-08-17 10:49:36Z schwenkel
    347 ! minor bugfixes
    348 !
    349 ! 2340 2017-08-07 17:11:13Z maronga
    350 ! Revised root_distribution tabel and implemented a pseudo-generic root fraction
    351 ! calculation
    352 !
    353 ! 2333 2017-08-04 09:08:26Z maronga
    354 ! minor bugfixes
    355 !
    356 ! 2332 2017-08-03 21:15:22Z maronga
    357 ! bugfix in pavement_pars
    358 !
    359 ! 2328 2017-08-03 12:34:22Z maronga
    360 ! Revised skin layer concept.
    361 ! Bugfix for runs with pavement surface and humidity
    362 ! Revised some standard values in vegetation_pars
    363 ! Added emissivity and default albedo_type as variable to tables
    364 ! Changed default surface type to vegetation
    365 ! Revised input of soil layer configuration
    366 !
    367 ! 2307 2017-07-07 11:32:10Z suehring
    368 ! Bugfix, variable names corrected
    369 !
    370 ! 2299 2017-06-29 10:14:38Z maronga
    371 ! Removed pt_p from USE statement. Adjusted call to lsm_soil_model to allow
    372 ! spinups without soil moisture prediction
    373 !
    374 ! 2298 2017-06-29 09:28:18Z raasch
    375 ! type of write_binary changed from CHARACTER to LOGICAL
    376 !
    377 ! 2296 2017-06-28 07:53:56Z maronga
    378 ! Bugfix in calculation of bare soil heat capacity.
    379 ! Bugfix in calculation of shf
    380 ! Added support for spinups
    381 !
    382 ! 2282 2017-06-13 11:38:46Z schwenkel
    383 ! Bugfix for check of saturation moisture
    384 !
    385 ! 2273 2017-06-09 12:46:06Z sward
    386 ! Error number changed
    387 !
    388 ! 2270 2017-06-09 12:18:47Z maronga
    389 ! Revised parameterization of heat conductivity between skin layer and soil.
    390 ! Temperature and moisture are now defined at the center of the layers.
    391 ! Renamed veg_type to vegetation_type and pave_type to pavement_type_name
    392 ! Renamed and reduced the number of look-up tables (vegetation_pars, soil_pars)
    393 ! Revised land surface model initialization
    394 ! Removed output of shf_eb and qsws_eb and removed _eb throughout code
    395 ! Removed Clapp & Hornberger parameterization
    396 !
    397 ! 2249 2017-06-06 13:58:01Z sward
    398 !
    399 ! 2248 2017-06-06 13:52:54Z sward $
    400 ! Error no changed
    401 !
    402 ! 2246 2017-06-06 13:09:34Z sward
    403 ! Error no changed
    404 !
    405 ! Changed soil configuration to 8 layers. The number of soil layers is now
    406 ! freely adjustable via the NAMELIST.
    407 !
    408 ! 2237 2017-05-31 10:34:53Z suehring
    409 ! Bugfix in write restart data
    410 !
    411 ! 2233 2017-05-30 18:08:54Z suehring
    412 !
    413 ! 2232 2017-05-30 17:47:52Z suehring
    414 ! Adjustments to new topography and surface concept
    415 !   - now, also vertical walls are possible
    416 !   - for vertical walls, parametrization of r_a (aerodynamic resisistance) is
    417 !     implemented.
    418 !
    419 ! Add check for soil moisture, it must not exceed its saturation value.
    420 !
    421 ! 2149 2017-02-09 16:57:03Z scharf
    422 ! Land surface parameters II corrected for vegetation_type 18 and 19
    423 !
    424 ! 2031 2016-10-21 15:11:58Z knoop
    425 ! renamed variable rho to rho_ocean
    426 !
    427 ! 2000 2016-08-20 18:09:15Z knoop
    428 ! Forced header and separation lines into 80 columns
    429 !
    430 ! 1978 2016-07-29 12:08:31Z maronga
    431 ! Bugfix: initial values of pave_surface and water_surface were not set.
    432 !
    433 ! 1976 2016-07-27 13:28:04Z maronga
    434 ! Parts of the code have been reformatted. Use of radiation model output is
    435 ! generalized and simplified. Added more output quantities due to modularization
    436 !
    437 ! 1972 2016-07-26 07:52:02Z maronga
    438 ! Further modularization: output of cross sections and 3D data is now done in this
    439 ! module. Moreover, restart data is written and read directly within this module.
    440 !
    441 !
    442 ! 1966 2016-07-18 11:54:18Z maronga
    443 ! Bugfix: calculation of m_total in soil model was not set to zero at model start
    444 !
    445 ! 1949 2016-06-17 07:19:16Z maronga
    446 ! Bugfix: calculation of qsws_soil_eb with precipitation = .TRUE. gave
    447 ! qsws_soil_eb = 0 due to a typo
    448 !
    449 ! 1856 2016-04-13 12:56:17Z maronga
    450 ! Bugfix: for water surfaces, the initial water surface temperature is set equal
    451 ! to the intital skin temperature. Moreover, the minimum value of r_a is now
    452 ! 1.0 to avoid too large fluxes at the first model time step
    453 !
    454 ! 1849 2016-04-08 11:33:18Z hoffmann
    455 ! prr moved to arrays_3d
    456 !
    457 ! 1826 2016-04-07 12:01:39Z maronga
    458 ! Cleanup after modularization
    459 !
    460 ! 1817 2016-04-06 15:44:20Z maronga
    461 ! Added interface for lsm_init_arrays. Added subroutines for check_parameters,
    462 ! header, and parin. Renamed some subroutines.
    463 !
    464 ! 1788 2016-03-10 11:01:04Z maronga
    465 ! Bugfix: calculate lambda_surface based on temperature gradient between skin
    466 ! layer and soil layer instead of Obukhov length
    467 ! Changed: moved calculation of surface specific humidity to energy balance solver
    468 ! New: water surfaces are available by using a fixed sea surface temperature.
    469 ! The roughness lengths are calculated dynamically using the Charnock
    470 ! parameterization. This involves the new roughness length for moisture z0q.
    471 ! New: modified solution of the energy balance solver and soil model for
    472 ! paved surfaces (i.e. asphalt concrete).
    473 ! Syntax layout improved.
    474 ! Changed: parameter dewfall removed.
    475 !
    476 ! 1783 2016-03-06 18:36:17Z raasch
    477 ! netcdf variables moved to netcdf module
    478 !
    479 ! 1757 2016-02-22 15:49:32Z maronga
    480 ! Bugfix: set tm_soil_m to zero after allocation. Added parameter
    481 ! unscheduled_radiation_calls to control calls of the radiation model based on
    482 ! the skin temperature change during one time step (preliminary version). Set
    483 ! qsws_soil_eb to zero at model start (previously set to qsws_eb). Removed MAX
    484 ! function as it cannot be vectorized.
    485 !
    486 ! 1709 2015-11-04 14:47:01Z maronga
    487 ! Renamed pt_1 and qv_1 to pt1 and qv1.
    488 ! Bugfix: set initial values for t_surface_p in case of restart runs
    489 ! Bugfix: zero resistance caused crash when using radiation_scheme = 'clear-sky'
    490 ! Bugfix: calculation of rad_net when using radiation_scheme = 'clear-sky'
    491 ! Added todo action
    492 !
    493 ! 1697 2015-10-28 17:14:10Z raasch
    494 ! bugfix: misplaced cpp-directive
    495 !
    496 ! 1695 2015-10-27 10:03:11Z maronga
    497 ! Bugfix: REAL constants provided with KIND-attribute in call of
    498 ! Replaced rif with ol
    499 !
    500 ! 1691 2015-10-26 16:17:44Z maronga
    501 ! Added skip_time_do_lsm to allow for spin-ups without LSM. Various bugfixes:
    502 ! Soil temperatures are now defined at the edges of the layers, calculation of
    503 ! shb_eb corrected, prognostic equation for skin temperature corrected. Surface
    504 ! fluxes are now directly transfered to atmosphere
    505 !
    506 ! 1682 2015-10-07 23:56:08Z knoop
    507 ! Code annotations made doxygen readable
    508 !
    509 ! 1590 2015-05-08 13:56:27Z maronga
    510 ! Bugfix: definition of character strings requires same length for all elements
    511 !
    512 ! 1585 2015-04-30 07:05:52Z maronga
    513 ! Modifications for RRTMG. Changed tables to PARAMETER type.
    514 !
    515 ! 1571 2015-03-12 16:12:49Z maronga
    516 ! Removed upper-case variable names. Corrected distribution of precipitation to
    517 ! the liquid water reservoir and the bare soil fractions.
    518 !
    519 ! 1555 2015-03-04 17:44:27Z maronga
    520 ! Added output of r_a and r_s
    521 !
    522 ! 1553 2015-03-03 17:33:54Z maronga
    523 ! Improved better treatment of roughness lengths. Added default soil temperature
    524 ! profile
    525 !
    526 ! 1551 2015-03-03 14:18:16Z maronga
    527 ! Flux calculation is now done in prandtl_fluxes. Added support for data output.
    528 ! Vertical indices have been replaced. Restart runs are now possible. Some
    529 ! variables have beem renamed. Bugfix in the prognostic equation for the surface
    530 ! temperature. Introduced z0_eb and z0h_eb, which overwrite the setting of
    531 ! roughness_length and z0_factor. Added Clapp & Hornberger parametrization for
    532 ! the hydraulic conductivity. Bugfix for root fraction and extraction
    533 ! calculation
    534 !
    535 ! intrinsic function MAX and MIN
    536 !
    537 ! 1500 2014-12-03 17:42:41Z maronga
    538 ! Corrected calculation of aerodynamic resistance (r_a).
    539 ! Precipitation is now added to liquid water reservoir using LE_liq.
    540 ! Added support for dry runs.
    541 !
    542 ! 1496 2014-12-02 17:25:50Z maronga
    543 ! Initial revision
    544 !
    545109!
    546110! Description:
Note: See TracChangeset for help on using the changeset viewer.