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

palm/trunk/SOURCE/time_integration.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! renamed variable rho to rho_ocean
 ! 
 ! Former revisions:
@@ -242 +242 @@
     USE arrays_3d,                                                             &
         ONLY:  diss, dzu, e, e_p, nr_p, prho, pt, pt_p, pt_init, q_init, q,    &
-               ql, ql_c, ql_v, ql_vp, qr_p, q_p, ref_state, rho, s, s_p, sa_p, &
+               ql, ql_c, ql_v, ql_vp, qr_p, q_p, ref_state, rho_ocean, s, s_p, sa_p, &
                tend, u, u_p, v, vpt, v_p, w, w_p
 
@@ -482 +482 @@
              ENDIF
              IF ( ocean )  THEN
-                CALL calc_mean_profile( rho, 64 )
+                CALL calc_mean_profile( rho_ocean, 64 )
                 ref_state(:)  = hom(:,1,64,0)
              ENDIF
@@ -552 +552 @@
                 IF ( ocean )  THEN
                    CALL exchange_horiz( sa_p, nbgp )
-                   CALL exchange_horiz( rho, nbgp )
+                   CALL exchange_horiz( rho_ocean, nbgp )
                    CALL exchange_horiz( prho, nbgp )
                 ENDIF
@@ -620 +620 @@
                 IF ( ocean )  THEN
                    CALL exchange_horiz( sa_p, nbgp )
-                   CALL exchange_horiz( rho, nbgp )
+                   CALL exchange_horiz( rho_ocean, nbgp )
                   CALL exchange_horiz( prho, nbgp )
                 ENDIF
@@ -710 +710 @@
              IF ( ocean )  THEN
                 CALL exchange_horiz( sa_p, nbgp )
-                CALL exchange_horiz( rho, nbgp )
+                CALL exchange_horiz( rho_ocean, nbgp )
                 CALL exchange_horiz( prho, nbgp )
              ENDIF