Changeset 4180 for palm/trunk/SOURCE/netcdf_interface_mod.f90

Timestamp:

Aug 21, 2019 2:37:54 PM (5 years ago)

Author:

scharf

Message:

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

File:

• palm/trunk/SOURCE/netcdf_interface_mod.f90 (modified) (1 diff)

palm/trunk/SOURCE/netcdf_interface_mod.f90

@@ -79 +79 @@
 ! Move the control parameter "salsa" from salsa_mod to control_parameters
 ! (M. Kurppa)
-!
-! 3582 2018-11-29 19:16:36Z suehring
-! dom_dwd_user, Schrempf:
-! Remove uv exposure model code, this is now part of biometeorology_mod
-!
-! 3529 2018-11-15 21:03:15Z gronemeier
-! - set time units
-! - add additional global attributes,
-! - add additinal variable attributes
-! - move definition of UTM and geographic coordinates into subroutine
-! - change fill_value
-!
-! 3525 2018-11-14 16:06:14Z kanani
-! Changes related to clean-up of biometeorology (dom_dwd_user)
-!
-! 3485 2018-11-03 17:09:40Z gronemeier
-! Write geographic coordinates as global attributes to file.
-!
-! 3467 2018-10-30 19:05:21Z suehring
-! - Salsa implemented
-! - Bugfix convert_utm_to...
-!
-! 3464 2018-10-30 18:08:55Z kanani
-! - Add variable crs to output files
-! - Add long_name to UTM coordinates
-! - Add latitude/longitude coordinates. For 3d and xy output, lon and lat are
-!   only written if parallel output is used.
-!
-! 3459 2018-10-30 15:04:11Z gronemeier
-! Adjustment of biometeorology calls
-!
-! 3435 2018-10-26 18:25:44Z gronemeier
-! Bugfix: corrected order of calls to define_netcdf_grid for masked output
-! Add vertical dimensions to masked output in case of terrain-following output
-!
-! 3421 2018-10-24 18:39:32Z gronemeier
-! Bugfix: move ocean output variables to ocean_mod
-! Renamed output variables
-! Add UTM coordinates to mask, 3d, xy, xz, yz output
-!
-! 3337 2018-10-12 15:17:09Z kanani
-! (from branch resler)
-! Add biometeorology
-!
-! 3294 2018-10-01 02:37:10Z raasch
-! changes concerning modularization of ocean option
-!
-! 3274 2018-09-24 15:42:55Z knoop
-! Modularization of all bulk cloud physics code components
-!
-! 3241 2018-09-12 15:02:00Z raasch
-! unused variables removed
-!
-! 3235 2018-09-07 14:06:15Z sward
-! Changed MAS output dimension id_dim_agtnum to be of defined size and no longer
-! unlimited. Also changed some MAS output variables to be of type float
-!
-! 3198 2018-08-15 09:23:10Z sward
-! Redefined MAS limited time dimension to fit usage of multi_agent_system_end
-!
-! 3187 2018-07-31 10:32:34Z sward
-! Changed agent output to precision NF90_DOUBLE
-!
-! 3165 2018-07-24 13:12:42Z sward
-! Added agent ID output
-!
-! 3159 2018-07-20 11:20:01Z sward
-! Added multi agent system
-!
-! 3049 2018-05-29 13:52:36Z Giersch
-! Error messages revised
-!
-! 3045 2018-05-28 07:55:41Z Giersch
-! Error messages revised, code adjusted to PALMs coding standards, CASE pt_ext
-! pt_new disabled, comment revised
-!
-! 3004 2018-04-27 12:33:25Z Giersch
-! .NOT. found in if-query added to account for variables found in tcm
-!
-! 2964 2018-04-12 16:04:03Z Giersch
-! Calculation of fixed number of output time levels for parallel netcdf output
-! has been moved completely to check_parameters
-!
-! 2932 2018-03-26 09:39:22Z maronga
-! Renamed inipar to initialization_parameters.
-!
-! 2817 2018-02-19 16:32:21Z knoop
-! Preliminary gust module interface implemented
-!
-! 2769 2018-01-25 09:22:24Z raasch
-! bugfix for calculating number of required output time levels in case of output
-! at the beginning of a restart run
-!
-! 2766 2018-01-22 17:17:47Z kanani
-! Removed preprocessor directive __chem
-!
-! 2746 2018-01-15 12:06:04Z suehring
-! Move flag plant canopy to modules
-!
-! 2718 2018-01-02 08:49:38Z maronga
-! Corrected "Former revisions" section
-!
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-! Implementation of uv exposure model (FK)
-! Implemented checks for turbulence_closure_mod (TG)
-! Implementation of chemistry module (FK)
-! Bugfix in setting netcdf grids for LSM variables
-! Enable setting of _FillValue attribute in output files (MS)
-!
-! 2512 2017-10-04 08:26:59Z raasch
-! upper bounds of cross section and 3d output changed from nx+1,ny+1 to nx,ny
-! no output of ghost layer data any more
-!
-! 2302 2017-07-03 14:07:20Z suehring
-! Reading of 3D topography using NetCDF data type NC_BYTE
-!
-! 2292 2017-06-20 09:51:42Z schwenkel
-! Implementation of new microphysic scheme: cloud_scheme = 'morrison'
-! includes two more prognostic equations for cloud drop concentration (nc)
-! and cloud water content (qc).
-!
-! 2270 2017-06-09 12:18:47Z maronga
-! Removed 2 timeseries (shf_eb + qsws_eb). Removed _eb suffixes
-!
-! 2265 2017-06-08 16:58:28Z schwenkel
-! Unused variables removed.
-!
-! 2239 2017-06-01 12:04:51Z suehring
-! Bugfix xy-output of land-surface variables
-!
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! Adjustments to new topography and surface concept
-!
-! Topograpyh height arrays (zu_s_inner, zw_w_inner) are defined locally, output
-! only if parallel netcdf.
-!
-! Build interface for topography input:
-! - open file in read-only mode
-! - read global attributes
-! - read variables
-!
-! Bugfix in xy output (land-surface case)
-!
-! 2209 2017-04-19 09:34:46Z kanani
-! Added support for plant canopy model output
-!
-! 2189 2017-03-21 09:29:52Z raasch
-! bugfix: rho renamed rho_ocean for the cross section output
-!
-! 2109 2017-01-10 12:18:08Z raasch
-! bugfix: length of character string netcdf_var_name extended to avoid problems
-!         which appeared in restart runs due to truncation
-!
-! 2040 2016-10-26 16:58:09Z gronemeier
-! Increased number of possible statistic_regions to 99
-!
-! 2037 2016-10-26 11:15:40Z knoop
-! Anelastic approximation implemented
-!
-! 2031 2016-10-21 15:11:58Z knoop
-! renamed variable rho to rho_ocean
-!
-! 2011 2016-09-19 17:29:57Z kanani
-! Flag urban_surface is now defined in module control_parameters,
-! changed prefix for urban surface model output to "usm_",
-! introduced control parameter varnamelength for LEN of trimvar.
-!
-! 2007 2016-08-24 15:47:17Z kanani
-! Added support for new urban surface model (temporary modifications of
-! SELECT CASE ( ) necessary, see variable trimvar),
-! increased DIMENSION of do2d_unit, do3d_unit, id_var_do2d, id_var_do3d,
-! increased LEN of char_cross_profiles, var_list, var_list_old
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-!
-! 1990 2016-08-12 09:54:36Z gronemeier
-! Bugfix: variable list was not written for time series output
-!
-! 1980 2016-07-29 15:51:57Z suehring
-! Bugfix, in order to steer user-defined output, setting flag found explicitly
-! to .F.
-!
-! 1976 2016-07-27 13:28:04Z maronga
-! Removed remaining 2D land surface quantities. Definition of radiation
-! quantities is now done directly in the respective module
-!
-! 1972 2016-07-26 07:52:02Z maronga
-! Bugfix: wrong units for lsm quantities.
-! Definition of grids for land surface quantities is now done directly in the
-! respective module.
-!
-! 1960 2016-07-12 16:34:24Z suehring
-! Additional labels and units for timeseries output of passive scalar-related
-! quantities
-!
-! 1957 2016-07-07 10:43:48Z suehring
-! flight module added
-!
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-!
-!
-! 1833 2016-04-07 14:23:03Z raasch
-! spectrum renamed spectra_mod
-!
-! 1786 2016-03-08 05:49:27Z raasch
-! Bugfix: id_var_time_sp made public
-!
-! 1783 2016-03-06 18:36:17Z raasch
-! netcdf interface has been modularized, former file netcdf renamed to
-! netcdf_interface, creation of netcdf-dimensions and -variables moved to
-! specific new subroutines create_netcdf_dim and create_netcdf_var,
-! compression (deflation) of variables implemented,
-! ibmy special cpp directive removed
-!
-! 1745 2016-02-05 13:06:51Z gronemeier
-! Bugfix: recalculating ntdim_3d, ntdim_2d_xy/xz/yz when checking the
-!         extensibility of an existing file (only when using parallel NetCDF).
-!
-! 1691 2015-10-26 16:17:44Z maronga
-! Added output of radiative heating rates for RRTMG. Corrected output of
-! radiative fluxes
-!
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable
-!
-! 1596 2015-05-21 09:34:28Z gronemeier
-! Bugfix in masked data output. Read 'zu_3d' when trying to extend masked data
-!
-! 1551 2015-03-03 14:18:16Z maronga
-! Added support for land surface model and radiation model output. In the course
-! of this action a new vertical grid zs (soil) was introduced.
-!
-! 1353 2014-04-08 15:21:23Z heinze
-! REAL constants provided with KIND-attribute
-!
-! 1322 2014-03-20 16:38:49Z raasch
-! Forgotten ONLY-attribute added to USE-statements
-!
-! 1320 2014-03-20 08:40:49Z raasch
-! ONLY-attribute added to USE-statements,
-! kind-parameters added to all INTEGER and REAL declaration statements,
-! kinds are defined in new module kinds,
-! revision history before 2012 removed,
-! comment fields (!:) to be used for variable explanations added to
-! all variable declaration statements
-!
-! 1308 2014-03-13 14:58:42Z fricke
-! +ntime_count, oldmode
-! Adjust NF90_CREATE and NF90_OPEN statement for parallel output
-! To increase the performance for parallel output, the following is done:
-! - Limit time dimension
-! - Values of axis data are only written by PE0
-! - No fill is set for all variables
-! Check the number of output time levels for restart jobs
-!
-! 1206 2013-07-18 12:49:16Z witha
-! Bugfix: typo in preprocessor directive in subroutine open_write_netcdf_file
-!
-! 1092 2013-02-02 11:24:22Z raasch
-! unused variables removed
-!
-! 1053 2012-11-13 17:11:03Z hoffmann
-! +qr, nr, prr
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 1031 2012-10-19 14:35:30Z raasch
-! netCDF4 without parallel file support implemented, new routines
-! create_netcdf_file and open_write_netcdf_file at end
-!
-! 992 2012-09-05 15:08:26Z hoffmann
-! Removal of the informative messages PA0352 and PA0353.
-!
-! 983 2012-08-21 14:17:57Z hoffmann
-! Bugfix in cross_profiles.
-!
-! 964 2012-07-26 09:14:24Z raasch
-! rev 951 and 959 reformatted
-!
-! 959 2012-07-24 13:13:41Z hoffmann
-! Bugfix in cross_profiles. It is not allowed to arrange more than 100
-! profiles with cross_profiles.
-!
-! 951 2012-07-19 14:22:52Z hoffmann
-! cross_profiles, profile_rows, profile_columns are written to netCDF header
-!
-! Revision 1.1  2005/05/18 15:37:16  raasch
-! Initial revision
 !
 !