Ignore:
Timestamp:
Feb 2, 2013 11:24:22 AM (8 years ago)
Author:
raasch
Message:

unused variables remove from several routines

File:
1 edited

Legend:

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

    r1054 r1092  
    2020! Current revisions:
    2121! ------------------
     22! unused variables removed
    2223!
    2324! Former revisions:
     
    9192    INTEGER ::  i, j, k, u_max_cfl_ijk(3), v_max_cfl_ijk(3)
    9293
    93     REAL ::  div, dt_diff, dt_diff_l, dt_plant_canopy,                 &
    94              dt_plant_canopy_l,                                        &
    95              dt_plant_canopy_u, dt_plant_canopy_v, dt_plant_canopy_w,  &
    96              dt_u, dt_v, dt_w, lad_max,                                &
    97              u_gtrans_l, u_max_cfl, vabs_max, value, v_gtrans_l, v_max_cfl
     94    REAL ::  div, dt_diff, dt_diff_l, dt_plant_canopy, dt_plant_canopy_l,  &
     95             dt_plant_canopy_u, dt_plant_canopy_v, dt_plant_canopy_w,      &
     96             dt_u, dt_v, dt_w, u_max_cfl, value, v_max_cfl
    9897
    9998    REAL, DIMENSION(2)         ::  uv_gtrans, uv_gtrans_l
Note: See TracChangeset for help on using the changeset viewer.