Changeset 3421 for palm/trunk/SOURCE/modules.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/modules.f90 (modified) (3 diffs)

palm/trunk/SOURCE/modules.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Renamed output variables
+! +surface_data_output
+! 
+! 3355 2018-10-16 14:03:34Z knoop
 ! (from branch resler)
 ! Increase dimension of uv_heights etc.
@@ -1353 +1357 @@
     LOGICAL ::  sloping_surface = .FALSE.                        !< use sloped surface? (namelist parameter alpha_surface)
     LOGICAL ::  spinup = .FALSE.                                 !< perform model spinup without atmosphere code?
+    LOGICAL ::  surface_data_output = .FALSE.                    !< output of surface data
     LOGICAL ::  stop_dt = .FALSE.                                !< internal switch to stop the time stepping
     LOGICAL ::  synchronous_exchange = .FALSE.                   !< namelist parameter
@@ -2027 +2032 @@
     INTEGER(iwp), PARAMETER ::  crmax = 100  !< maximum number of coordinate systems for profile output
 
-    CHARACTER (LEN=20), DIMENSION(20) ::  cross_ts_profiles = &  !< time series to be plotted into one coordinate system, respectively
-                           (/ ' E E*               ', ' dt                 ', &
-                              ' u* w*              ', ' th*                ', &
-                              ' umax vmax wmax     ', ' div_old div_new    ', &
-                              ' z_i_wpt z_i_pt     ', ' w"pt"0 w"pt" wpt   ', &
-                              ' pt(0) pt(zp)       ', ' splux spluy spluz  ', &
-                              ' L                  ',                         &
-                            ( '                    ', i9 = 1, 9 ) /)
+    CHARACTER (LEN=27), DIMENSION(20) ::  cross_ts_profiles = &  !< time series to be plotted into one coordinate system, respectively
+                           (/ ' E E*                      ', &
+                              ' dt                        ', &
+                              ' u* w*                     ', &
+                              ' th*                       ', &
+                              ' umax vmax wmax            ', &
+                              ' div_old div_new           ', &
+                              ' zi_wtheta zi_theta        ', &
+                              ' w"theta"0 w"theta" wtheta ', &
+                              ' theta(0) theta(zp)        ', &
+                              ' splux spluy spluz         ', &
+                              ' L                         ', &
+                            ( '                           ', i9 = 1, 9 ) /)
 
     CHARACTER (LEN=100), DIMENSION(crmax) ::  cross_profiles = &  !< quantities to be plotted into one coordinate system, respectively
-                           (/ ' u v                           ', &
-                              ' pt                            ', &
-                              ' w"pt" w*pt* w*pt*BC wpt wptBC ', &
-                              ' w"u" w*u* wu w"v" w*v* wv     ', &
-                              ' km kh                         ', &
-                              ' l                             ', &
+                          (/ ' u v                                          ', &
+                             ' pt                                           ', &
+                             ' w"theta" w*theta* w*theta*BC wtheta wthetaBC ', &
+                             ' w"u" w*u* wu w"v" w*v* wv                    ', &
+                             ' km kh                                        ', &
+                             ' l                                            ', &
                          ( '                               ', i9 = 1, 94 ) /)