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/random_generator_parallel_mod.f90

    r2718 r3241  
    2525! -----------------
    2626! $Id$
     27! unused variable removed
     28!
     29! 2718 2018-01-02 08:49:38Z maronga
    2730! Corrected "Former revisions" section
    2831!
     
    140143!> Initialize the parallel random number generator for a specific subdomain
    141144!------------------------------------------------------------------------------!
    142    SUBROUTINE init_parallel_random_generator(nx, ny, nys, nyn, nxl, nxr)
     145   SUBROUTINE init_parallel_random_generator( nx, nys, nyn, nxl, nxr )
    143146
    144147      USE kinds
     
    150153
    151154      INTEGER(isp), INTENT(IN) ::  nx    !<
    152       INTEGER(isp), INTENT(IN) ::  ny    !<
    153155      INTEGER(isp), INTENT(IN) ::  nys   !<
    154156      INTEGER(isp), INTENT(IN) ::  nyn   !<
Note: See TracChangeset for help on using the changeset viewer.