Changeset 2190 for palm

Timestamp:

Mar 21, 2017 12:16:43 PM (8 years ago)

Author:

raasch

Message:

bugfix for r2031: string rho replaced by rho_ocean

File:

• palm/trunk/SOURCE/data_output_2d.f90 (modified) (2 diffs)

palm/trunk/SOURCE/data_output_2d.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! bugfix for r2031: string rho replaced by rho_ocean
 ! 
 ! Former revisions:
@@ -770 +770 @@
 
 
-             CASE ( 'rho_xy', 'rho_xz', 'rho_yz' )
+             CASE ( 'rho_ocean_xy', 'rho_ocean_xz', 'rho_ocean_yz' )
                 IF ( av == 0 )  THEN
                    to_be_resorted => rho_ocean