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

palm/trunk/SOURCE/diffusivities.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! renamed variable rho to rho_ocean
 ! 
 ! Former revisions:
@@ -160 +160 @@
 !
 !--             Determine the mixing length
-                dvar_dz = atmos_ocean_sign * &  ! inverse effect of pt/rho gradient
+                dvar_dz = atmos_ocean_sign * &  ! inverse effect of pt/rho_ocean gradient
                           ( var(k+1,j,i) - var(k-1,j,i) ) * dd2zu(k)
                 IF ( dvar_dz > 0.0_wp ) THEN