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

palm/trunk/SOURCE/write_3d_binary.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! renamed variable rho_av to rho_ocean_av
 ! 
 ! Former revisions:
@@ -256 +256 @@
     ENDIF    
     IF ( ocean )  THEN
-       IF ( ALLOCATED( rho_av ) )  THEN
-          WRITE ( 14 )  'rho_av              ';  WRITE ( 14 )  rho_av
+       IF ( ALLOCATED( rho_ocean_av ) )  THEN
+          WRITE ( 14 )  'rho_ocean_av              ';  WRITE ( 14 )  rho_ocean_av
        ENDIF
        WRITE ( 14 )  'sa                  ';  WRITE ( 14 )  sa