Changeset 1691 for palm/trunk/SOURCE/write_var_list.f90

Timestamp:

Oct 26, 2015 4:17:44 PM (9 years ago)

Author:

maronga

Message:

various bugfixes and modifications of the atmosphere-land-surface-radiation interaction. Completely re-written routine to calculate surface fluxes (surface_layer_fluxes.f90) that replaces prandtl_fluxes. Minor formatting corrections and renamings

File:

• palm/trunk/SOURCE/write_var_list.f90 (modified) (8 diffs)

palm/trunk/SOURCE/write_var_list.f90

@@ -14 +14 @@
 ! PALM. If not, see <http://www.gnu.org/licenses/>.
 !
-! Copyright 1997-2014 Leibniz Universitaet Hannover
+! Copyright 1997-2015 Leibniz Universitaet Hannover
 !--------------------------------------------------------------------------------!
 !
 ! Current revisions:
 ! -----------------
-! 
+! Added output of most_method, constant_flux_layer, zeta_min, zeta_max. Removed 
+! output of prandtl_layer and rif_min, rif_max.
 ! 
 ! Former revisions:
@@ -161 +162 @@
         ONLY:  statistic_regions, hom, hom_sum, u_max, u_max_ijk, v_max,       &
                v_max_ijk, w_max, w_max_ijk
+
     
     IMPLICIT NONE
@@ -167 +169 @@
 
 
-    binary_version = '3.9b'
+    binary_version = '4.0'
 
     WRITE ( 14 )  binary_version
@@ -273 +275 @@
     WRITE ( 14 )  conserve_volume_flow_mode
     WRITE ( 14 )  'coupling_start_time           '
+    WRITE ( 14 )  'constant_flux_layer           '
+    WRITE ( 14 )  constant_flux_layer
     WRITE ( 14 )  coupling_start_time
     WRITE ( 14 )  'current_timestep_number       '
@@ -374 +378 @@
     WRITE ( 14 )  'momentum_advec                '
     WRITE ( 14 )  momentum_advec
+    WRITE ( 14 )  'most_method                   '
+    WRITE ( 14 )  most_method
     WRITE ( 14 )  'nc_const                      '
     WRITE ( 14 )  nc_const
@@ -406 +412 @@
     WRITE ( 14 )  'phi                           '
     WRITE ( 14 )  phi
-    WRITE ( 14 )  'prandtl_layer                 '
-    WRITE ( 14 )  prandtl_layer
     WRITE ( 14 )  'prandtl_number                '
     WRITE ( 14 )  prandtl_number
@@ -462 +466 @@
     WRITE ( 14 )  'residual_limit                '
     WRITE ( 14 )  residual_limit
-    WRITE ( 14 )  'rif_max                       '
-    WRITE ( 14 )  rif_max
-    WRITE ( 14 )  'rif_min                       '
-    WRITE ( 14 )  rif_min
     WRITE ( 14 )  'roughness_length              '
     WRITE ( 14 )  roughness_length
@@ -624 +624 @@
     WRITE ( 14 )  'w_max_ijk                     '
     WRITE ( 14 )  w_max_ijk
+    WRITE ( 14 )  'zeta_max                      '
+    WRITE ( 14 )  zeta_max
+    WRITE ( 14 )  'zeta_min                      '
+    WRITE ( 14 )  zeta_min
     WRITE ( 14 )  'z0h_factor                    '
     WRITE ( 14 )  z0h_factor