Changeset 580 for palm/trunk/SOURCE/modules.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/modules.f90 (modified) (3 diffs)

palm/trunk/SOURCE/modules.f90

@@ -5 +5 @@
 ! 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:
@@ -402 +404 @@
                 ug_vertical_gradient_level_ind(10) = -9999, &
                 vg_vertical_gradient_level_ind(10) = -9999, &
-                ws_vertical_gradient_level_ind(10) = -9999
+                subs_vertical_gradient_level_i(10) = -9999
 
     INTEGER, DIMENSION(:), ALLOCATABLE ::  grid_level_count
@@ -549 +551 @@
              wall_humidityflux(0:4) = 0.0, wall_qflux(0:4) = 0.0, &
              wall_salinityflux(0:4) = 0.0, wall_scalarflux(0:4) = 0.0, &
-             ws_vertical_gradient(10) = 0.0, &
-             ws_vertical_gradient_level(10) = -9999999.9
+             subs_vertical_gradient(10) = 0.0, &
+             subs_vertical_gradient_level(10) = -9999999.9
 
     REAL, DIMENSION(:), ALLOCATABLE ::  dp_smooth_factor