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

    r83 r87  
    44! Actual revisions:
    55! -----------------
    6 !
     6! var_hom renamed pr_palm
    77!
    88! Former revisions:
     
    8686                          simulated_time-INT( simulated_time ), dt_3d,         &
    8787                          timestep_reason, change_chr, u_max, disturb_chr,     &
    88                           v_max, disturb_chr, w_max, hom(nzb,1,var_hom,0),     &
    89                           hom(nzb+8,1,var_hom,0), hom(nzb+3,1,var_hom,0),      &
    90                           hom(nzb+6,1,var_hom,0), hom(nzb+4,1,var_hom,0),      &
    91                           hom(nzb+5,1,var_hom,0), hom(nzb+9,1,var_hom,0),      &
    92                           hom(nzb+10,1,var_hom,0), u_max_ijk(1:3),             &
     88                          v_max, disturb_chr, w_max, hom(nzb,1,pr_palm,0),     &
     89                          hom(nzb+8,1,pr_palm,0), hom(nzb+3,1,pr_palm,0),      &
     90                          hom(nzb+6,1,pr_palm,0), hom(nzb+4,1,pr_palm,0),      &
     91                          hom(nzb+5,1,pr_palm,0), hom(nzb+9,1,pr_palm,0),      &
     92                          hom(nzb+10,1,pr_palm,0), u_max_ijk(1:3),             &
    9393                          v_max_ijk(1:3), w_max_ijk(1:3),                      &
    9494                          advected_distance_x/1000.0,                          &
Note: See TracChangeset for help on using the changeset viewer.