Ignore:
Timestamp:
May 22, 2007 3:46:47 PM (14 years ago)
Author:
raasch
Message:

Preliminary update for user defined profiles

File:
1 edited

Legend:

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

    r77 r87  
    44! Actual revisions:
    55! -----------------
    6 !
     6! var_hom renamed pr_palm
    77!
    88! Former revisions:
     
    187187             time_disturb = time_disturb + dt_3d
    188188             IF ( time_disturb >= dt_disturb )  THEN
    189                 IF ( hom(nzb+5,1,var_hom,0) < disturbance_energy_limit )  THEN
     189                IF ( hom(nzb+5,1,pr_palm,0) < disturbance_energy_limit )  THEN
    190190                   CALL disturb_field( nzb_u_inner, tend, u )
    191191                   CALL disturb_field( nzb_v_inner, tend, v )
Note: See TracChangeset for help on using the changeset viewer.