Changeset 87 for palm/trunk/SOURCE/time_integration.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/time_integration.f90 (modified) (2 diffs)

palm/trunk/SOURCE/time_integration.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! var_hom renamed pr_palm
 !
 ! Former revisions:
@@ -187 +187 @@
              time_disturb = time_disturb + dt_3d
              IF ( time_disturb >= dt_disturb )  THEN
-                IF ( hom(nzb+5,1,var_hom,0) < disturbance_energy_limit )  THEN
+                IF ( hom(nzb+5,1,pr_palm,0) < disturbance_energy_limit )  THEN
                    CALL disturb_field( nzb_u_inner, tend, u )
                    CALL disturb_field( nzb_v_inner, tend, v )