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

palm/trunk/SOURCE/init_3d_model.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Initialize surface data output
+! 
+! 3415 2018-10-24 11:57:50Z suehring
 ! Set bottom boundary condition for geostrophic wind components in inifor
 ! initialization
@@ -625 +628 @@
         ONLY :  init_surface_arrays, init_surfaces, surf_def_h, surf_lsm_h,    &
                 surf_usm_h, get_topography_top_index_ji, vertical_surfaces_exist
+                
+    USE surface_output_mod,                                                    &
+        ONLY:  surface_output_init
    
     USE transpose_indices
@@ -2400 +2406 @@
        CALL gust_init( dots_label, dots_unit, dots_num, dots_max )
     ENDIF
+!
+!-- Initialize surface data output
+    IF ( surface_data_output )  THEN
+       CALL surface_output_init
+    ENDIF
 
 !