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

Timestamp:

Oct 21, 2016 3:11:58 PM (7 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_mask.f90 (modified) (3 diffs)

palm/trunk/SOURCE/data_output_mask.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! renamed variable rho to rho_ocean and rho_av to rho_ocean_av
 ! 
 ! Former revisions:
@@ -102 +102 @@
 #if defined( __netcdf )
     USE arrays_3d,                                                             &
-        ONLY:  e, nr, p, pt, q, qc, ql, ql_c, ql_v, qr, rho, s, sa, tend, u,   &
+        ONLY:  e, nr, p, pt, q, qc, ql, ql_c, ql_v, qr, rho_ocean, s, sa, tend, u,   &
                v, vpt, w
     
     USE averaging,                                                             &
         ONLY:  e_av, lpt_av, nr_av, p_av, pc_av, pr_av, pt_av, q_av, qc_av,    &
-               ql_av, ql_c_av, ql_v_av, ql_vp_av, qv_av, qr_av, rho_av, s_av,  &
+               ql_av, ql_c_av, ql_v_av, ql_vp_av, qv_av, qr_av, rho_ocean_av, s_av,  &
                sa_av, u_av, v_av, vpt_av, w_av 
     
@@ -436 +436 @@
              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