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

palm/trunk/SOURCE/read_3d_binary.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! renamed variable rho_av to rho_ocean_av
 ! 
 ! Former revisions:
@@ -712 +712 @@
                    IF ( k == 1 )  READ ( 13 )  seq_random_array
 
-                CASE ( 'rho_av' )
-                   IF ( .NOT. ALLOCATED( rho_av ) )  THEN
-                      ALLOCATE( rho_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
-                   ENDIF
-                   IF ( k == 1 )  READ ( 13 )  tmp_3d
-                   rho_av(:,nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp) = &
+                CASE ( 'rho_ocean_av' )
+                   IF ( .NOT. ALLOCATED( rho_ocean_av ) )  THEN
+                      ALLOCATE( rho_ocean_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
+                   ENDIF
+                   IF ( k == 1 )  READ ( 13 )  tmp_3d
+                   rho_ocean_av(:,nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp) = &
                                 tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)