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

    r3183 r3241  
    2525! -----------------
    2626! $Id$
     27! unused variables removed
     28!
     29! 3183 2018-07-27 14:25:55Z suehring
    2730! Rename variables for boundary-condition flags and for offline nesting mode
    2831!
     
    11691172       INTEGER(iwp) ::  k     !<
    11701173       INTEGER(iwp) ::  k_mm  !<
    1171        INTEGER(iwp) ::  k_mmm !<
    11721174       INTEGER(iwp) ::  k_pp  !<
    11731175       INTEGER(iwp) ::  k_ppp !<
     
    17121714
    17131715       USE indices,                                                           &
    1714            ONLY:  nxl, nxlu, nxr, nyn, nys, nzb, nzb_max, nzt, advc_flags_1
     1716           ONLY:  nxlu, nys, nzb, nzb_max, nzt, advc_flags_1
    17151717
    17161718       USE kinds
     
    22102212
    22112213       USE indices,                                                            &
    2212            ONLY:  nxl, nxr, nyn, nys, nysv, nzb, nzb_max, nzt, advc_flags_1
     2214           ONLY:  nysv, nzb, nzb_max, nzt, advc_flags_1
    22132215
    22142216       USE kinds
     
    27152717
    27162718       USE indices,                                                           &
    2717            ONLY:  nxl, nxr, nyn, nys, nzb, nzb_max, nzt, advc_flags_1,        &
    2718                   advc_flags_2
     2719           ONLY:  nys, nzb, nzb_max, nzt, advc_flags_1, advc_flags_2
    27192720
    27202721       USE kinds
     
    32233224       INTEGER(iwp) ::  k      !<
    32243225       INTEGER(iwp) ::  k_mm   !<
    3225        INTEGER(iwp) ::  k_mmm  !<
    32263226       INTEGER(iwp) ::  k_pp   !<
    32273227       INTEGER(iwp) ::  k_ppp  !<
     
    37503750
    37513751       USE indices,                                                            &
    3752            ONLY:  nxl, nxlu, nxr, nyn, nys, nzb, nzb_max, nzt, advc_flags_1
     3752           ONLY:  nxlu, nxr, nyn, nys, nzb, nzb_max, nzt, advc_flags_1
    37533753           
    37543754       USE kinds
Note: See TracChangeset for help on using the changeset viewer.