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

Timestamp:

Apr 11, 2019 11:29:34 AM (6 years ago)

Author:

kanani

Message:

restructure/add location/debug messages

File:

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

palm/trunk/SOURCE/land_surface_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Changes related to global restructuring of location messages and introduction 
+! of additional debug messages
+! 
+! 3881 2019-04-10 09:31:22Z suehring
 ! Bugfix in level 3 initialization of pavement albedo type and pavement 
 ! emissivity
@@ -544 +548 @@
 
     USE control_parameters,                                                    &
-        ONLY:  cloud_droplets, coupling_start_time, dt_3d,      &
+        ONLY:  cloud_droplets, coupling_start_time,                            &
+               debug_output, debug_string,                                     &
+               dt_3d,                                                          &
                end_time, humidity, intermediate_timestep_count,                &
                initializing_actions, intermediate_timestep_count_max,          &
@@ -1890 +1896 @@
     TYPE(surf_type), POINTER  ::  surf  !< surface-date type variable
 
+!
+!-- Debug location message
+    IF ( debug_output )  THEN
+       WRITE( debug_string, * ) 'lsm_energy_balance', horizontal, l
+       CALL debug_message( debug_string, 'start' )
+    ENDIF
+
     IF ( horizontal )  THEN
        surf              => surf_lsm_h
@@ -2449 +2462 @@
     IF ( horizontal  .AND.  .NOT. constant_roughness )  CALL calc_z0_water_surface
     
-    
+    IF ( debug_output )  THEN
+       WRITE( debug_string, * ) 'lsm_energy_balance', horizontal, l
+       CALL debug_message( debug_string, 'end' )
+    ENDIF
+
     CONTAINS
 !------------------------------------------------------------------------------!
@@ -2632 +2649 @@
        REAL(wp), DIMENSION(:), ALLOCATABLE ::  pr_soil_init !< temporary array used for averaging soil profiles
 
-       CALL location_message( 'initializing land surface model', .FALSE. )
+       IF ( debug_output )  CALL debug_message( 'lsm_init', 'start' )
 !
 !--    If no cloud physics is used, rho_surface has not been calculated before
@@ -4942 +4959 @@
        ENDDO
 
-       CALL location_message( 'finished', .TRUE. )
+       IF ( debug_output )  CALL debug_message( 'lsm_init', 'end' )
 
     END SUBROUTINE lsm_init
@@ -5271 +5288 @@
        TYPE(surf_type), POINTER  ::  surf  !< surface-date type variable
 
+
+       IF ( debug_output )  THEN
+          WRITE( debug_string, * ) 'lsm_soil_model', horizontal, l, calc_soil_moisture
+          CALL debug_message( debug_string, 'start' )
+       ENDIF
+
        IF ( horizontal )  THEN
           surf           => surf_lsm_h
@@ -5566 +5589 @@
        ENDDO
        !$OMP END PARALLEL
+!
+!--    Debug location message
+       IF ( debug_output )  THEN
+          WRITE( debug_string, * ) 'lsm_soil_model', horizontal, l, calc_soil_moisture
+          CALL debug_message( debug_string, 'end' )
+       ENDIF
 
     END SUBROUTINE lsm_soil_model