Ignore:
Timestamp:
Sep 12, 2018 3:02:00 PM (3 years ago)
Author:
raasch
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/palm.f90

    r3235 r3241  
    2525! -----------------
    2626! $Id$
     27! unused variables removed
     28!
     29! 3235 2018-09-07 14:06:15Z sward
    2730! Added mas_last_actions call and multi_agent_system_mod dependency
    2831!
     
    239242
    240243    USE control_parameters,                                                    &
    241         ONLY:  air_chemistry,                                                  &
    242                cloud_physics, constant_diffusion, child_domain, coupling_char, &
    243                coupling_mode,                                                  &
    244                do2d_at_begin, do3d_at_begin, humidity, initializing_actions,   &
    245                io_blocks, io_group, large_scale_forcing,                       &
     244        ONLY:  air_chemistry, cloud_physics, constant_diffusion, child_domain, &
     245               coupling_char, coupling_mode, do2d_at_begin, do3d_at_begin,     &
     246               humidity, initializing_actions, io_blocks, io_group,            &
    246247               message_string, microphysics_morrison, microphysics_seifert,    &
    247                neutral, nudging, passive_scalar, runnr,                        &
    248                simulated_time, simulated_time_chr, spinup,                     &
    249                time_since_reference_point,                                     &
    250                user_interface_current_revision,                                &
    251                user_interface_required_revision, version, wall_heatflux,       &
    252                write_binary
     248               neutral, passive_scalar, runnr, simulated_time_chr, spinup,     &
     249               time_since_reference_point, user_interface_current_revision,    &
     250               user_interface_required_revision, version, write_binary
    253251
    254252    USE cpulog,                                                                &
     
    276274
    277275    USE pmc_interface,                                                         &
    278         ONLY:  cpl_id, nested_run, pmci_child_initialize, pmci_init,           &
     276        ONLY:  nested_run, pmci_child_initialize, pmci_init,                   &
    279277               pmci_modelconfiguration, pmci_parent_initialize,                &
    280278               pmci_ensure_nest_mass_conservation
     
    288286!
    289287!-- Local variables
    290     CHARACTER(LEN=9)  ::  time_to_string  !<
    291     CHARACTER(LEN=10) ::  env_string      !< to store string of environment var
    292     INTEGER(iwp)      ::  env_stat        !< to hold status of GET_ENV
    293     INTEGER(iwp)      ::  i               !<
    294     INTEGER(iwp)      ::  myid_openmpi    !< OpenMPI local rank for CUDA aware MPI
     288    CHARACTER(LEN=9) ::  time_to_string  !<
     289    INTEGER(iwp)     ::  i               !< loop counter for blocked I/O
    295290
    296291    version = 'PALM 5.0'
Note: See TracChangeset for help on using the changeset viewer.