Changeset 4180 for palm/trunk/SOURCE/pmc_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/pmc_interface_mod.f90 (modified) (1 diff)

palm/trunk/SOURCE/pmc_interface_mod.f90

@@ -142 +142 @@
 ! Remove unused variable simulated_time
 ! 
-! 3636 2018-12-19 13:48:34Z raasch
-! nopointer option removed
-! 
-! 3592 2018-12-03 12:38:40Z suehring
-! Number of coupled arrays is determined dynamically (instead of a fixed value
-! of 32)
-! 
-! 3524 2018-11-14 13:36:44Z raasch
-! declaration statements rearranged to avoid compile time errors
-! 
-! 3484 2018-11-02 14:41:25Z hellstea
-! Introduction of reversibility correction to the interpolation routines in order to 
-! guarantee mass and scalar conservation through the nest boundaries. Several errors 
-! are corrected and pmci_ensure_nest_mass_conservation is permanently removed. 
-! 
-! 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
-! 
-! 3217 2018-08-29 12:53:59Z suehring
-! Revise calculation of index bounds for array index_list, prevent compiler 
-! (cray) to delete the loop at high optimization level.  
-! 
-! 3215 2018-08-29 09:58:59Z suehring
-! Apply an additional switch controlling the nesting of chemical species
-! 
-! 3209 2018-08-27 16:58:37Z suehring
-! Variable names for nest_bound_x replaced by bc_dirichlet_x.
-! Remove commented prints into debug files.
-! 
-! 3182 2018-07-27 13:36:03Z suehring
-! dz was replaced by dz(1)
-! 
-! 3049 2018-05-29 13:52:36Z Giersch
-! Error messages revised
-! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! Error messages revised
-! 
-! 3022 2018-05-18 11:12:35Z suehring
-! Minor fix - working precision added to real number
-! 
-! 3021 2018-05-16 08:14:20Z maronga
-! Bugfix: variable lcr was defined as INTENT(OUT) instead of INTENT(INOUT)
-! 
-! 3020 2018-05-14 10:45:48Z hellstea
-! Bugfix in pmci_define_loglaw_correction_parameters
-! 
-! 3001 2018-04-20 12:27:13Z suehring
-! Bugfix, replace MERGE function by an if-condition in the anterpolation (in 
-! order to avoid floating-point exceptions).
-! 
-! 2997 2018-04-19 13:35:17Z suehring
-! Mask topography grid points in anterpolation
-! 
-! 2984 2018-04-18 11:51:30Z hellstea
-! Bugfix in the log-law correction initialization. Pivot node cannot any more be 
-! selected from outside the subdomain in order to prevent array under/overflows.
-! 
-! 2967 2018-04-13 11:22:08Z raasch
-! bugfix: missing parallel cpp-directives added
-! 
-! 2951 2018-04-06 09:05:08Z kanani
-! Add log_point_s for pmci_model_configuration
-! 
-! 2938 2018-03-27 15:52:42Z suehring
-! - Nesting for RANS mode implemented
-!    - Interpolation of TKE onto child domain only if both parent and child are 
-!      either in LES mode or in RANS mode
-!    - Interpolation of dissipation if both parent and child are in RANS mode
-!      and TKE-epsilon closure is applied
-!    - Enable anterpolation of TKE and dissipation rate in case parent and 
-!      child operate in RANS mode
-!
-! - Some unused variables removed from ONLY list
-! - Some formatting adjustments for particle nesting
-! 
-! 2936 2018-03-27 14:49:27Z suehring
-! Control logics improved to allow nesting also in cases with
-! constant_flux_layer = .F. or constant_diffusion = .T.
-! 
-! 2895 2018-03-15 10:26:12Z hellstea
-! Change in the nest initialization (pmci_interp_tril_all). Bottom wall BC is no
-! longer overwritten.
-! 
-! 2868 2018-03-09 13:25:09Z hellstea
-! Local conditional Neumann conditions for one-way coupling removed.  
-! 
-! 2853 2018-03-05 14:44:20Z suehring
-! Bugfix in init log-law correction.
-! 
-! 2841 2018-02-27 15:02:57Z knoop
-! Bugfix: wrong placement of include 'mpif.h' corrected
-! 
-! 2812 2018-02-16 13:40:25Z hellstea
-! Bugfixes in computation of the interpolation loglaw-correction parameters
-! 
-! 2809 2018-02-15 09:55:58Z schwenkel
-! Bugfix for gfortran: Replace the function C_SIZEOF with STORAGE_SIZE
-! 
-! 2806 2018-02-14 17:10:37Z thiele
-! Bugfixing Write statements
-! 
-! 2804 2018-02-14 16:57:03Z thiele
-! preprocessor directive for c_sizeof in case of __gfortran added
-! 
-! 2803 2018-02-14 16:56:32Z thiele
-! Introduce particle transfer in nested models.
-! 
-! 2795 2018-02-07 14:48:48Z hellstea
-! Bugfix in computation of the anterpolation under-relaxation functions. 
-! 
-! 2773 2018-01-30 14:12:54Z suehring
-! - Nesting for chemical species
-! - Bugfix in setting boundary condition at downward-facing walls for passive
-!   scalar
-! - Some formatting adjustments
-! 
-! 2718 2018-01-02 08:49:38Z maronga
-! Corrected "Former revisions" section
-! 
-! 2701 2017-12-15 15:40:50Z suehring
-! Changes from last commit documented
-! 
-! 2698 2017-12-14 18:46:24Z suehring
-! Bugfix in get_topography_top_index
-!
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-! - Bugfix in init_tke_factor (MS)
-! 
-! 2669 2017-12-06 16:03:27Z raasch
-! file extension for nested domains changed to "_N##",
-! created flag file in order to enable combine_plot_fields to process nest data
-! 
-! 2663 2017-12-04 17:40:50Z suehring
-! Bugfix, wrong coarse-grid index in init_tkefactor used.
-! 
-! 2602 2017-11-03 11:06:41Z hellstea
-! Index-limit related bug (occurred with nesting_mode='vertical') fixed in
-! pmci_interp_tril_t. Check for too high nest domain added in pmci_setup_parent.   
-! Some cleaning up made. 
-! 
-! 2582 2017-10-26 13:19:46Z hellstea
-! Resetting of e within buildings / topography in pmci_parent_datatrans removed
-! as unnecessary since e is not anterpolated, and as incorrect since it overran
-! the default Neumann condition (bc_e_b). 
-! 
-! 2359 2017-08-21 07:50:30Z hellstea
-! A minor indexing error in pmci_init_loglaw_correction is corrected. 
-! 
-! 2351 2017-08-15 12:03:06Z kanani
-! Removed check (PA0420) for nopointer version
-! 
-! 2350 2017-08-15 11:48:26Z kanani
-! Bugfix and error message for nopointer version.
-! 
-! 2318 2017-07-20 17:27:44Z suehring
-! Get topography top index via Function call 
-! 
-! 2317 2017-07-20 17:27:19Z suehring
-! Set bottom boundary condition after anterpolation.
-! Some variable description added.
-! 
-! 2293 2017-06-22 12:59:12Z suehring
-! In anterpolation, exclude grid points which are used for interpolation. 
-! This avoids the accumulation of numerical errors leading to increased 
-! variances for shallow child domains.  
-! 
-! 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). 
-! 
-! 2285 2017-06-15 13:15:41Z suehring
-! Consider multiple pure-vertical nest domains in overlap check
-! 
-! 2283 2017-06-14 10:17:34Z suehring
-! Bugfixes in inititalization of log-law correction concerning 
-! new topography concept
-! 
-! 2281 2017-06-13 11:34:50Z suehring
-! Bugfix, add pre-preprocessor directives to enable non-parrallel mode
-! 
-! 2241 2017-06-01 13:46:13Z hellstea
-! A minor indexing error in pmci_init_loglaw_correction is corrected.
-! 
-! 2240 2017-06-01 13:45:34Z hellstea
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! Adjustments to new topography concept
-! 
-! 2229 2017-05-30 14:52:52Z hellstea
-! A minor indexing error in pmci_init_anterp_tophat is corrected.
-! 
-! 2174 2017-03-13 08:18:57Z maronga
-! Added support for cloud physics quantities, syntax layout improvements. Data
-! transfer of qc and nc is prepared but currently deactivated until both
-! quantities become prognostic variables.
-! Some bugfixes.
-! 
-! 2019 2016-09-30 13:40:09Z hellstea
-! Bugfixes mainly in determining the anterpolation index bounds. These errors 
-! were detected when first time tested using 3:1 grid-spacing.
-! 
-! 2003 2016-08-24 10:22:32Z suehring
-! Humidity and passive scalar also separated in nesting mode 
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1938 2016-06-13 15:26:05Z hellstea
-! Minor clean-up.
-! 
-! 1901 2016-05-04 15:39:38Z raasch
-! Initial version of purely vertical nesting introduced.
-! Code clean up. The words server/client changed to parent/child.
-!
-! 1900 2016-05-04 15:27:53Z raasch
-! unused variables removed
-!
-! 1894 2016-04-27 09:01:48Z raasch
-! bugfix: pt interpolations are omitted in case that the temperature equation is
-! switched off
-!
-! 1892 2016-04-26 13:49:47Z raasch
-! bugfix: pt is not set as a data array in case that the temperature equation is
-! switched off with neutral = .TRUE.
-!
-! 1882 2016-04-20 15:24:46Z hellstea
-! The factor ijfc for nfc used in anterpolation is redefined as 2-D array 
-! and precomputed in pmci_init_anterp_tophat. 
-! 
-! 1878 2016-04-19 12:30:36Z hellstea
-! Synchronization rewritten, logc-array index order changed for cache
-! optimization
-!
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-!
-!
-! 1808 2016-04-05 19:44:00Z raasch
-! MPI module used by default on all machines
-!
-! 1801 2016-04-05 13:12:47Z raasch
-! bugfix for r1797: zero setting of temperature within topography does not work
-! and has been disabled
-!
-! 1797 2016-03-21 16:50:28Z raasch
-! introduction of different datatransfer modes,
-! further formatting cleanup, parameter checks added (including mismatches
-! between root and nest model settings),
-! +routine pmci_check_setting_mismatches
-! comm_world_nesting introduced
-!
-! 1791 2016-03-11 10:41:25Z raasch
-! routine pmci_update_new removed,
-! pmc_get_local_model_info renamed pmc_get_model_info, some keywords also
-! renamed,
-! filling up redundant ghost points introduced,
-! some index bound variables renamed,
-! further formatting cleanup
-!
-! 1783 2016-03-06 18:36:17Z raasch
-! calculation of nest top area simplified,
-! interpolation and anterpolation moved to seperate wrapper subroutines
-!
-! 1781 2016-03-03 15:12:23Z raasch
-! _p arrays are set zero within buildings too, t.._m arrays and respective
-! settings within buildings completely removed
-!
-! 1779 2016-03-03 08:01:28Z raasch
-! only the total number of PEs is given for the domains, npe_x and npe_y
-! replaced by npe_total, two unused elements removed from array
-! parent_grid_info_real,
-! array management changed from linked list to sequential loop
-!
-! 1766 2016-02-29 08:37:15Z raasch
-! modifications to allow for using PALM's pointer version,
-! +new routine pmci_set_swaplevel
-!
-! 1764 2016-02-28 12:45:19Z raasch
-! +cpl_parent_id,
-! cpp-statements for nesting replaced by __parallel statements,
-! errors output with message-subroutine,
-! index bugfixes in pmci_interp_tril_all,
-! some adjustments to PALM style
-!
-! 1762 2016-02-25 12:31:13Z hellstea
-! Initial revision by A. Hellsten
 !
 ! Description: