Changeset 3421 for palm/trunk/SOURCE/data_output_2d.f90

Timestamp:

Oct 24, 2018 6:39:32 PM (5 years ago)

Author:

gronemeier

Message:

new surface-data output; renamed output variables (pt to theta, rho_air to rho, rho_ocean to rho_sea_water)

File:

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

palm/trunk/SOURCE/data_output_2d.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Renamed output variables
+! 
+! 3419 2018-10-24 17:27:31Z gronemeier
 ! minor formatting (kanani)
 ! chem_data_output_2d subroutine added (basit)
@@ -562 +565 @@
                 IF ( mode == 'xy' )  level_z = zu
 
-             CASE ( 'lpt_xy', 'lpt_xz', 'lpt_yz' )
+             CASE ( 'thetal_xy', 'thetal_xz', 'thetal_yz' )
                 IF ( av == 0 )  THEN
                    to_be_resorted => pt
@@ -750 +753 @@
                 ENDIF
 
-             CASE ( 'pt_xy', 'pt_xz', 'pt_yz' )
+             CASE ( 'theta_xy', 'theta_xz', 'theta_yz' )
                 IF ( av == 0 )  THEN
                    IF ( .NOT. bulk_cloud_model ) THEN
@@ -1121 +1124 @@
                 ENDIF
 
-             CASE ( 'u*_xy' )        ! 2d-array
+             CASE ( 'us*_xy' )        ! 2d-array
                 IF ( av == 0 )  THEN
                    DO  m = 1, surf_def_h(0)%ns
@@ -1172 +1175 @@
                 ENDIF
 
-             CASE ( 'vpt_xy', 'vpt_xz', 'vpt_yz' )
+             CASE ( 'thetav_xy', 'thetav_xz', 'thetav_yz' )
                 IF ( av == 0 )  THEN
                    to_be_resorted => vpt