Changeset 87 for palm/trunk/SOURCE/run_control.f90

Timestamp:

May 22, 2007 3:46:47 PM (17 years ago)

Author:

raasch

Message:

Preliminary update for user defined profiles

File:

• palm/trunk/SOURCE/run_control.f90 (modified) (2 diffs)

palm/trunk/SOURCE/run_control.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! var_hom renamed pr_palm
 !
 ! Former revisions:
@@ -86 +86 @@
                           simulated_time-INT( simulated_time ), dt_3d,         &
                           timestep_reason, change_chr, u_max, disturb_chr,     &
-                          v_max, disturb_chr, w_max, hom(nzb,1,var_hom,0),     &
-                          hom(nzb+8,1,var_hom,0), hom(nzb+3,1,var_hom,0),      &
-                          hom(nzb+6,1,var_hom,0), hom(nzb+4,1,var_hom,0),      &
-                          hom(nzb+5,1,var_hom,0), hom(nzb+9,1,var_hom,0),      &
-                          hom(nzb+10,1,var_hom,0), u_max_ijk(1:3),             &
+                          v_max, disturb_chr, w_max, hom(nzb,1,pr_palm,0),     &
+                          hom(nzb+8,1,pr_palm,0), hom(nzb+3,1,pr_palm,0),      &
+                          hom(nzb+6,1,pr_palm,0), hom(nzb+4,1,pr_palm,0),      &
+                          hom(nzb+5,1,pr_palm,0), hom(nzb+9,1,pr_palm,0),      &
+                          hom(nzb+10,1,pr_palm,0), u_max_ijk(1:3),             &
                           v_max_ijk(1:3), w_max_ijk(1:3),                      &
                           advected_distance_x/1000.0,                          &