Changeset 2031 for palm/trunk/SOURCE/prognostic_equations.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/prognostic_equations.f90 (modified) (5 diffs)

palm/trunk/SOURCE/prognostic_equations.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! renamed variable rho to rho_ocean
 ! 
 ! Former revisions:
@@ -215 +215 @@
                nr, nr_p, nrsws, nrswst, pt, ptdf_x, ptdf_y, pt_init, pt_p,     &
                prho, q, q_init, q_p, qsws, qswst, qr, qr_p, qrsws, qrswst, rdf,&
-               rdf_sc, ref_state, rho, s, s_init, s_p, sa, sa_init, sa_p,      &
+               rdf_sc, ref_state, rho_ocean, s, s_init, s_p, sa, sa_init, sa_p,      &
                saswsb, saswst, shf, ssws, sswst, tend,                         &
                te_m, tnr_m, tpt_m, tq_m, tqr_m, ts_m, tsa_m, tswst, tu_m, tv_m,&
@@ -562 +562 @@
           IF ( .NOT. neutral )  THEN
              IF ( ocean )  THEN
-                CALL buoyancy( i, j, rho, 3 )
+                CALL buoyancy( i, j, rho_ocean, 3 )
              ELSE
                 IF ( .NOT. humidity )  THEN
@@ -1267 +1267 @@
     IF ( .NOT. neutral )  THEN
        IF ( ocean )  THEN
-          CALL buoyancy( rho, 3 )
+          CALL buoyancy( rho_ocean, 3 )
        ELSE
           IF ( .NOT. humidity )  THEN
@@ -2205 +2205 @@
     IF ( .NOT. neutral )  THEN
        IF ( ocean )  THEN
-          CALL buoyancy( rho, 3 )
+          CALL buoyancy( rho_ocean, 3 )
        ELSE
           IF ( .NOT. humidity )  THEN