Changeset 2031 for palm/trunk/SOURCE/data_output_3d.f90

Timestamp:

Oct 21, 2016 3:11:58 PM (8 years ago)

Author:

knoop

Message:

Renamed variable rho to rho_ocean, rho_init to rho_ocean_init and rho_av to rho_ocean_av

File:

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

palm/trunk/SOURCE/data_output_3d.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! renamed variable rho to rho_ocean and rho_av to rho_ocean_av
 ! 
 ! Former revisions:
@@ -146 +146 @@
 
     USE arrays_3d,                                                             &
-        ONLY:  e, nr, p, pt, prr, q, qc, ql, ql_c, ql_v, qr, rho, s, sa, tend, &
+        ONLY:  e, nr, p, pt, prr, q, qc, ql, ql_c, ql_v, qr, rho_ocean, s, sa, tend, &
                u, v, vpt, w
         
@@ -531 +531 @@
              ENDIF
 
-          CASE ( 'rho' )
-             IF ( av == 0 )  THEN
-                to_be_resorted => rho
-             ELSE
-                to_be_resorted => rho_av
+          CASE ( 'rho_ocean' )
+             IF ( av == 0 )  THEN
+                to_be_resorted => rho_ocean
+             ELSE
+                to_be_resorted => rho_ocean_av
              ENDIF