Changeset 3241 for palm/trunk/SOURCE/palm.f90

Timestamp:

Sep 12, 2018 3:02:00 PM (6 years ago)

Author:

raasch

Message:

various changes to avoid compiler warnings (mainly removal of unused variables)

File:

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

palm/trunk/SOURCE/palm.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 3235 2018-09-07 14:06:15Z sward
 ! Added mas_last_actions call and multi_agent_system_mod dependency
 ! 
@@ -239 +242 @@
 
     USE control_parameters,                                                    &
-        ONLY:  air_chemistry,                                                  &
-               cloud_physics, constant_diffusion, child_domain, coupling_char, &
-               coupling_mode,                                                  &
-               do2d_at_begin, do3d_at_begin, humidity, initializing_actions,   &
-               io_blocks, io_group, large_scale_forcing,                       &
+        ONLY:  air_chemistry, cloud_physics, constant_diffusion, child_domain, &
+               coupling_char, coupling_mode, do2d_at_begin, do3d_at_begin,     &
+               humidity, initializing_actions, io_blocks, io_group,            &
                message_string, microphysics_morrison, microphysics_seifert,    &
-               neutral, nudging, passive_scalar, runnr,                        &
-               simulated_time, simulated_time_chr, spinup,                     &
-               time_since_reference_point,                                     &
-               user_interface_current_revision,                                &
-               user_interface_required_revision, version, wall_heatflux,       &
-               write_binary
+               neutral, passive_scalar, runnr, simulated_time_chr, spinup,     &
+               time_since_reference_point, user_interface_current_revision,    &
+               user_interface_required_revision, version, write_binary
 
     USE cpulog,                                                                &
@@ -276 +274 @@
 
     USE pmc_interface,                                                         &
-        ONLY:  cpl_id, nested_run, pmci_child_initialize, pmci_init,           &
+        ONLY:  nested_run, pmci_child_initialize, pmci_init,                   &
                pmci_modelconfiguration, pmci_parent_initialize,                &
                pmci_ensure_nest_mass_conservation
@@ -288 +286 @@
 !
 !-- Local variables
-    CHARACTER(LEN=9)  ::  time_to_string  !<
-    CHARACTER(LEN=10) ::  env_string      !< to store string of environment var
-    INTEGER(iwp)      ::  env_stat        !< to hold status of GET_ENV
-    INTEGER(iwp)      ::  i               !<
-    INTEGER(iwp)      ::  myid_openmpi    !< OpenMPI local rank for CUDA aware MPI
+    CHARACTER(LEN=9) ::  time_to_string  !<
+    INTEGER(iwp)     ::  i               !< loop counter for blocked I/O
 
     version = 'PALM 5.0'