Ignore:
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:
1 edited

Legend:

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

    r2718 r3241  
    2525! -----------------
    2626! $Id$
     27! unused variables removed
     28!
     29! 2718 2018-01-02 08:49:38Z maronga
    2730! Corrected "Former revisions" section
    2831!
     
    8285
    8386    USE indices,                                                               &
    84         ONLY:  nbgp, ngp_2dh_outer, nxl, nxr, nyn, nys, nzb,                   &
    85                nzb_s_outer, nzt, wall_flags_0
     87        ONLY:  nbgp, ngp_2dh_outer, nxl, nxr, nyn, nys, nzb, nzt, wall_flags_0
    8688
    8789    USE kinds
     
    222224             DO  k = nzb, nzt+1
    223225!
    224 !--             Flag indicate nzb_s_outer
     226!--             Flag indicating vicinity of wall
    225227                flag1 = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_0(k,j,i), 24 ) )
    226228
     
    262264             DO  k = nzb, nzt+1
    263265!
    264 !--             Flag indicate nzb_s_outer
     266!--             Flag indicating vicinity of wall
    265267                flag1 = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_0(k,j,i), 24 ) )
    266268
Note: See TracChangeset for help on using the changeset viewer.