Changeset 3987 for palm/trunk/SOURCE/land_surface_model_mod.f90

Timestamp:

May 22, 2019 9:52:13 AM (5 years ago)

Author:

kanani

Message:

clean up location, debug and error messages

File:

• palm/trunk/SOURCE/land_surface_model_mod.f90 (modified) (6 diffs)

palm/trunk/SOURCE/land_surface_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Introduce alternative switch for debug output during timestepping
+! 
+! 3964 2019-05-09 09:48:32Z suehring
 ! In a nested child domain, distinguish between soil moisture and temperature 
 ! initialization from parent via dynamic input file. Further, initialize soil
@@ -565 +568 @@
     USE control_parameters,                                                    &
         ONLY:  cloud_droplets, coupling_start_time,                            &
-               debug_output, debug_string,                                     &
+               debug_output, debug_output_timestep, debug_string,              &
                dt_3d,                                                          &
                end_time, humidity, intermediate_timestep_count,                &
                initializing_actions, intermediate_timestep_count_max,          &
-               land_surface, max_masks, pt_surface,             &
+               land_surface, max_masks, pt_surface,                            &
                rho_surface, spinup, spinup_pt_mean, spinup_time,               &
                surface_pressure, timestep_scheme, tsc,                         &
@@ -1908 +1911 @@
     TYPE(surf_type), POINTER  ::  surf  !< surface-date type variable
 
-!
-!-- Debug location message
-    IF ( debug_output )  THEN
+
+    IF ( debug_output_timestep )  THEN
        WRITE( debug_string, * ) 'lsm_energy_balance', horizontal, l
        CALL debug_message( debug_string, 'start' )
@@ -2472 +2474 @@
     IF ( horizontal  .AND.  .NOT. constant_roughness )  CALL calc_z0_water_surface
     
-    IF ( debug_output )  THEN
+    IF ( debug_output_timestep )  THEN
        WRITE( debug_string, * ) 'lsm_energy_balance', horizontal, l
        CALL debug_message( debug_string, 'end' )
@@ -5338 +5340 @@
 
 
-       IF ( debug_output )  THEN
+       IF ( debug_output_timestep )  THEN
           WRITE( debug_string, * ) 'lsm_soil_model', horizontal, l, calc_soil_moisture
           CALL debug_message( debug_string, 'start' )
@@ -5640 +5642 @@
 !
 !--    Debug location message
-       IF ( debug_output )  THEN
+       IF ( debug_output_timestep )  THEN
           WRITE( debug_string, * ) 'lsm_soil_model', horizontal, l, calc_soil_moisture
           CALL debug_message( debug_string, 'end' )