Changeset 1320 for palm/trunk/SOURCE/check_parameters.f90

Timestamp:

Mar 20, 2014 8:40:49 AM (10 years ago)

Author:

raasch

Message:

ONLY-attribute added to USE-statements,
kind-parameters added to all INTEGER and REAL declaration statements,
kinds are defined in new module kinds,
old module precision_kind is removed,
revision history before 2012 removed,
comment fields (!:) to be used for variable explanations added to all variable declaration statements

File:

• palm/trunk/SOURCE/check_parameters.f90 (modified) (4 diffs)

palm/trunk/SOURCE/check_parameters.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! ONLY-attribute added to USE-statements,
+! kind-parameters added to all INTEGER and REAL declaration statements,
+! kinds are defined in new module kinds,
+! old module precision_kind is removed,
+! revision history before 2012 removed,
+! comment fields (!:) to be used for variable explanations added to
+! all variable declaration statements
 !
 ! Former revisions:
@@ -167 +173 @@
 ! New cpp directive "__check" implemented which is used by check_namelist_files
 !
-! 774 2011-10-27 13:34:16Z letzel
-! bugfix for prescribed u,v-profiles
-!
-! 767 2011-10-14 06:39:12Z raasch
-! Calculating u,v-profiles from given profiles by linear interpolation.
-! bugfix: dirichlet_0 conditions for ug/vg moved from init_3d_model to here
-!
-! 707 2011-03-29 11:39:40Z raasch
-! setting of bc_lr/ns_dirrad/raddir
-!
-! 689 2011-02-20 19:31:12z gryschka
-! Bugfix for some logical expressions 
-! (syntax was not compatible with all compilers)
-!
-! 680 2011-02-04 23:16:06Z gryschka 
-! init_vortex is not allowed with volume_flow_control
-!
-! 673 2011-01-18 16:19:48Z suehring
-! Declaration of ws_scheme_sca and ws_scheme_mom added (moved from advec_ws).
-!
-! 667 2010-12-23 12:06:00Z suehring/gryschka
-! Exchange of parameters between ocean and atmosphere via PE0
-! Check for illegal combination of ws-scheme and timestep scheme.
-! Check for topography and ws-scheme.
-! Check for not cyclic boundary conditions in combination with ws-scheme and
-! loop_optimization = 'vector'.
-! Check for call_psolver_at_all_substeps and ws-scheme for momentum_advec.
-! Different processor/grid topology in atmosphere and ocean is now allowed!
-! Bugfixes in checking for conserve_volume_flow_mode
-! 600 2010-11-24 16:10:51Z raasch
-! change due to new default value of surface_waterflux
-! 580 2010-10-05 13:59:11Z heinze
-! renaming of ws_vertical_gradient_level to subs_vertical_gradient_level
-!
-! 567 2010-10-01 10:46:30Z helmke
-! calculating masks changed
-!
-! 564 2010-09-30 13:18:59Z helmke
-! palm message identifiers of masked output changed, 20 replaced by max_masks 
-!
-! 553 2010-09-01 14:09:06Z weinreis
-! masks is calculated and removed from inipar
-! 
-! 531 2010-04-21 06:47:21Z heinze
-! Bugfix: unit of hyp changed to dbar 
-!
-! 524 2010-03-30 02:04:51Z raasch
-! Bugfix: "/" in netcdf profile variable names replaced by ":"
-!
-! 493 2010-03-01 08:30:24Z raasch
-! netcdf_data_format is checked
-!
-! 411 2009-12-11 14:15:58Z heinze
-! Enabled passive scalar/humidity wall fluxes for non-flat topography
-! Initialization of large scale vertical motion (subsidence/ascent)
-!
-! 410 2009-12-04 17:05:40Z letzel
-! masked data output
-!
-! 388 2009-09-23 09:40:33Z raasch
-! Check profiles fpr prho and hyp.
-! Bugfix: output of averaged 2d/3d quantities requires that an avaraging
-! interval has been set, respective error message is included
-! bc_lr_cyc and bc_ns_cyc are set,
-! initializing_actions='read_data_for_recycling' renamed to 'cyclic_fill'
-! Check for illegal entries in section_xy|xz|yz that exceed nz+1|ny+1|nx+1
-! Coupling with independent precursor runs.
-! Check particle_color, particle_dvrpsize, color_interval, dvrpsize_interval
-! Bugfix: pressure included for profile output
-! Check pressure gradient conditions
-! topography_grid_convention moved from user_check_parameters
-! 'single_street_canyon'
-! Added shf* and qsws* to the list of available output data
-!
-! 222 2009-01-12 16:04:16Z letzel
-! +user_check_parameters
-! Output of messages replaced by message handling routine.
-! Implementation of an MPI-1 coupling: replaced myid with target_id, 
-! deleted __mpi2 directives
-! Check that PALM is called with mrun -K parallel for coupling
-!
-! 197 2008-09-16 15:29:03Z raasch
-! Bug fix: Construction of vertical profiles when 10 gradients have been 
-! specified in the parameter list (ug, vg, pt, q, sa, lad)
-!   
-! Strict grid matching along z is not needed for mg-solver.
-! Leaf area density (LAD) explicitly set to its surface value at k=0
-! Case of reading data for recycling included in initializing_actions,
-! check of turbulent_inflow and calculation of recycling_plane.
-! q*2 profile added
-!
-! 138 2007-11-28 10:03:58Z letzel
-! Plant canopy added
-! Allow new case bc_uv_t = 'dirichlet_0' for channel flow.
-! Multigrid solver allows topography, checking of dt_sort_particles
-! Bugfix: initializing u_init and v_init in case of ocean runs
-!
-! 109 2007-08-28 15:26:47Z letzel
-! Check coupling_mode and set default (obligatory) values (like boundary
-! conditions for temperature and fluxes) in case of coupled runs.
-! +profiles for w*p* and w"e
-! Bugfix: Error message concerning output of particle concentration (pc)
-! modified
-! More checks and more default values for coupled runs
-! allow data_output_pr= q, wq, w"q", w*q* for humidity = .T. (instead of 
-! cloud_physics = .T.)
-! Rayleigh damping for ocean fixed.
-! Check and, if necessary, set default value for dt_coupling
-!
-! 97 2007-06-21 08:23:15Z raasch
-! Initial salinity profile is calculated, salinity boundary conditions are
-! checked,
-! z_max_do1d is checked only in case of ocean = .f.,
-! +initial temperature and geostrophic velocity profiles for the ocean version,
-! use_pt_reference renamed use_reference
-!
-! 89 2007-05-25 12:08:31Z raasch
-! Check for user-defined profiles
-!
-! 75 2007-03-22 09:54:05Z raasch
-! "by_user" allowed as initializing action, -data_output_ts,
-! leapfrog with non-flat topography not allowed any more, loop_optimization
-! and pt_reference are checked, moisture renamed humidity,
-! output of precipitation amount/rate and roughnes length + check
-! possible negative humidities are avoided in initial profile,
-! dirichlet/neumann changed to dirichlet/radiation, etc.,
-! revision added to run_description_header
-!
-! 20 2007-02-26 00:12:32Z raasch
-! Temperature and humidity gradients at top are now calculated for nzt+1,
-! top_heatflux and respective boundary condition bc_pt_t is checked
-!
-! RCS Log replace by Id keyword, revision history cleaned up
-!
-! Revision 1.61  2006/08/04 14:20:25  raasch
-! do2d_unit and do3d_unit now defined as 2d-arrays, check of
-! use_upstream_for_tke, default value for dt_dopts,
-! generation of file header moved from routines palm and header to here
-!
 ! Revision 1.1  1997/08/26 06:29:23  raasch
 ! Initial revision
@@ -322 +189 @@
     USE grid_variables
     USE indices
+    USE kinds
     USE model_1d
     USE netcdf_control
@@ -335 +203 @@
     IMPLICIT NONE
 
-    CHARACTER (LEN=1)   ::  sq
-    CHARACTER (LEN=6)   ::  var
-    CHARACTER (LEN=7)   ::  unit
-    CHARACTER (LEN=8)   ::  date
-    CHARACTER (LEN=10)  ::  time
-    CHARACTER (LEN=40)  ::  coupling_string
-    CHARACTER (LEN=100) ::  action
-
-    INTEGER ::  i, ilen, iremote = 0, j, k, kk, netcdf_data_format_save, &
-                position, prec
-    LOGICAL ::  found, ldum
-    REAL    ::  gradient, remote = 0.0, simulation_time_since_reference
+    CHARACTER (LEN=1)   ::  sq                       !: 
+    CHARACTER (LEN=6)   ::  var                      !: 
+    CHARACTER (LEN=7)   ::  unit                     !: 
+    CHARACTER (LEN=8)   ::  date                     !: 
+    CHARACTER (LEN=10)  ::  time                     !: 
+    CHARACTER (LEN=40)  ::  coupling_string          !: 
+    CHARACTER (LEN=100) ::  action                   !: 
+
+    INTEGER(iwp) ::  i                               !: 
+    INTEGER(iwp) ::  ilen                            !: 
+    INTEGER(iwp) ::  iremote = 0                     !: 
+    INTEGER(iwp) ::  j                               !: 
+    INTEGER(iwp) ::  k                               !: 
+    INTEGER(iwp) ::  kk                              !: 
+    INTEGER(iwp) ::  netcdf_data_format_save         !: 
+    INTEGER(iwp) ::  position                        !:
+    INTEGER(iwp) ::  prec                            !: 
+    
+    LOGICAL     ::  found                            !: 
+    LOGICAL     ::  ldum                             !: 
+    
+    REAL(wp)    ::  gradient                         !: 
+    REAL(wp)    ::  remote = 0.0                     !: 
+    REAL(wp)    ::  simulation_time_since_reference  !: 
 
 !