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

palm/trunk/SOURCE/header.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:
@@ -1412 +1414 @@
        coordinates = '   0.0'
        i = 1
-       DO  WHILE ( ws_vertical_gradient_level_ind(i) /= -9999 )
+       DO  WHILE ( subs_vertical_gradient_level_i(i) /= -9999 )
 
           WRITE (coor_chr,'(E10.2,7X)')  &
-                                w_subs(ws_vertical_gradient_level_ind(i))
+                                w_subs(subs_vertical_gradient_level_i(i))
           temperatures = TRIM( temperatures ) // ' ' // TRIM( coor_chr )
 
-          WRITE (coor_chr,'(E10.2,7X)')  ws_vertical_gradient(i)
+          WRITE (coor_chr,'(E10.2,7X)')  subs_vertical_gradient(i)
           gradients = TRIM( gradients ) // ' ' // TRIM( coor_chr )
 
-          WRITE (coor_chr,'(I10,7X)')  ws_vertical_gradient_level_ind(i)
+          WRITE (coor_chr,'(I10,7X)')  subs_vertical_gradient_level_i(i)
           slices = TRIM( slices ) // ' ' // TRIM( coor_chr )
 
-          WRITE (coor_chr,'(F10.2,7X)')  ws_vertical_gradient_level(i)
+          WRITE (coor_chr,'(F10.2,7X)')  subs_vertical_gradient_level(i)
           coordinates = TRIM( coordinates ) // ' '  // TRIM( coor_chr )