Changeset 580 for palm/trunk/SOURCE/subsidence.f90

Timestamp:

Oct 5, 2010 1:59:11 PM (14 years ago)

Author:

heinze

Message:

Renaming of ws_vertical_gradient to subs_vertical_gradient, ws_vertical_gradient_level to subs_vertical_gradient_level and ws_vertical_gradient_level_ind to subs_vertical_gradient_level_i

File:

• palm/trunk/SOURCE/subsidence.f90 (modified) (3 diffs)

palm/trunk/SOURCE/subsidence.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! Renaming of ws_vertical_gradient to subs_vertical_gradient,
+! ws_vertical_gradient_level to subs_vertical_gradient_level and
+! ws_vertical_gradient_level_ind to subs_vertical_gradient_level_i
 !
 ! Former revisions:
@@ -70 +72 @@
       
 
-      ws_vertical_gradient_level_ind(1) = 0
+      subs_vertical_gradient_level_i(1) = 0
       DO  k = 1, nzt+1
          IF ( i < 11 ) THEN
-            IF ( ws_vertical_gradient_level(i) < zu(k)  .AND. &
-                 ws_vertical_gradient_level(i) >= 0.0 )  THEN
-               gradient = ws_vertical_gradient(i) / 100.0
-               ws_vertical_gradient_level_ind(i) = k - 1
+            IF ( subs_vertical_gradient_level(i) < zu(k)  .AND. &
+                 subs_vertical_gradient_level(i) >= 0.0 )  THEN
+               gradient = subs_vertical_gradient(i) / 100.0
+               subs_vertical_gradient_level_i(i) = k - 1
                i = i + 1
             ENDIF
@@ -94 +96 @@
 !--   In case of no given gradients for the subsidence/ascent velocity,
 !--   choose zero gradient
-      IF ( ws_vertical_gradient_level(1) == -9999999.9 )  THEN
-         ws_vertical_gradient_level(1) = 0.0
+      IF ( subs_vertical_gradient_level(1) == -9999999.9 )  THEN
+         subs_vertical_gradient_level(1) = 0.0
       ENDIF