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

Timestamp:

Oct 24, 2018 6:39:32 PM (6 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/sum_up_3d_data.f90 (modified) (9 diffs)

palm/trunk/SOURCE/sum_up_3d_data.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Renamed output variables
+! 
+! 3337 2018-10-12 15:17:09Z kanani
 ! (from branch resler)
 ! Add biometeorology,
@@ -331 +334 @@
                 e_av = 0.0_wp
 
-             CASE ( 'lpt' )
+             CASE ( 'thetal' )
                 IF ( .NOT. ALLOCATED( lpt_av ) )  THEN
                    ALLOCATE( lpt_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
@@ -367 +370 @@
                 pr_av = 0.0_wp
 
-             CASE ( 'pt' )
+             CASE ( 'theta' )
                 IF ( .NOT. ALLOCATED( pt_av ) )  THEN
                    ALLOCATE( pt_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
@@ -457 +460 @@
                 u_av = 0.0_wp
 
-             CASE ( 'u*' )
+             CASE ( 'us*' )
                 IF ( .NOT. ALLOCATED( us_av ) )  THEN
                    ALLOCATE( us_av(nysg:nyng,nxlg:nxrg) )
@@ -469 +472 @@
                 v_av = 0.0_wp
 
-             CASE ( 'vpt' )
+             CASE ( 'thetav' )
                 IF ( .NOT. ALLOCATED( vpt_av ) )  THEN
                    ALLOCATE( vpt_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
@@ -609 +612 @@
              ENDIF
 
-          CASE ( 'lpt' )
+          CASE ( 'thetal' )
              IF ( ALLOCATED( lpt_av ) ) THEN
                 DO  i = nxlg, nxrg
@@ -712 +715 @@
              ENDIF
 
-          CASE ( 'pt' )
+          CASE ( 'theta' )
              IF ( ALLOCATED( pt_av ) ) THEN
                 IF ( .NOT. bulk_cloud_model ) THEN
@@ -1005 +1008 @@
              ENDIF
 
-          CASE ( 'u*' )
+          CASE ( 'us*' )
              IF ( ALLOCATED( us_av ) ) THEN   
                 DO  i = nxl, nxr
@@ -1044 +1047 @@
              ENDIF
 
-          CASE ( 'vpt' )
+          CASE ( 'thetav' )
              IF ( ALLOCATED( vpt_av ) ) THEN 
                 DO  i = nxlg, nxrg