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

palm/trunk/SOURCE/init_3d_model.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! renamed variable rho to rho_ocean
 ! 
 ! Former revisions:
@@ -623 +623 @@
 #if defined( __nopointer )
        ALLOCATE( prho(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                          &
-                 rho(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                           &
+                 rho_ocean(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                           &
                  sa(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                            &
                  sa_p(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                          &
@@ -634 +634 @@
                  sa_3(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
        prho => prho_1
-       rho  => rho_1  ! routines calc_mean_profile and diffusion_e require
+       rho_ocean  => rho_1  ! routines calc_mean_profile and diffusion_e require
                       ! density to be apointer
 #endif