Changeset 271 for palm/trunk/SOURCE


Ignore:
Timestamp:
Mar 26, 2009 12:47:14 AM (14 years ago)
Author:
raasch
Message:

some bugfixes for the previous revison

Location:
palm/trunk/SOURCE
Files:
3 edited

Legend:

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

    r264 r271  
    649649       ENDIF
    650650
    651        IF ( mode_dvrp(m) == 'particles' )  THEN
     651       IF ( mode_dvrp(m)(1:9) == 'particles' )  THEN
    652652!
    653653!--       Define a default colourtable for particles
     
    658658          ENDDO
    659659
    660           DO  j = 12, 22
     660          DO  i = 12, 22
    661661             interval_values_dvrp_prt(1,i) = i - 1.0
    662662             interval_values_dvrp_prt(2,i) = REAL( i )
  • palm/trunk/SOURCE/modules.f90

    r264 r271  
    587587                                  interval_values_dvrp_prt, interval_h_dvrp,  &
    588588                                  interval_h_dvrp_prt, interval_l_dvrp = 0.5, &
    589                                   interval_l_dvrp_prt, interval_s_dvrp = 1.0, &
    590                                   interval_s_dvrp_prt, interval_a_dvrp = 0.0, &
    591                                   interval_a_dvrp_prt
     589                                  interval_l_dvrp_prt = 0.5, interval_s_dvrp = 1.0, &
     590                                  interval_s_dvrp_prt = 1.0, interval_a_dvrp = 0.0, &
     591                                  interval_a_dvrp_prt = 0.0
    592592
    593593    DATA  slicer_range_limits_dvrp / -1.0, 1.0, -1.0, 1.0, -1.0, 1.0, &
     
    598598    DATA  interval_h_dvrp / 270.0, 225.0, 225.0, 180.0, 70.0, 25.0, &
    599599                            25.0, -25.0, 192 * 0.0 /
     600
     601    DATA  interval_h_dvrp_prt / 270.0, 225.0, 225.0, 180.0, 70.0, 25.0, &
     602                                25.0, -25.0, 192 * 0.0 /
    600603#endif
    601604
  • palm/trunk/SOURCE/set_particle_attributes.f90

    r268 r271  
    3737
    3838
    39     CALL cpu_log( log_point_s(49), 'set_particle_attributes', 'start' )
     39    CALL cpu_log( log_point_s(49), 'set_particle_attrib', 'start' )
    4040
    4141!
     
    262262    ENDIF
    263263
    264     CALL cpu_log( log_point_s(49), 'set_particle_attributes', 'stop' )
     264    CALL cpu_log( log_point_s(49), 'set_particle_attrib', 'stop' )
    265265
    266266
Note: See TracChangeset for help on using the changeset viewer.