Ignore:
Timestamp:
May 22, 2019 9:52:13 AM (2 years ago)
Author:
kanani
Message:

clean up location, debug and error messages

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/land_surface_model_mod.f90

    r3964 r3987  
    2525! -----------------
    2626! $Id$
     27! Introduce alternative switch for debug output during timestepping
     28!
     29! 3964 2019-05-09 09:48:32Z suehring
    2730! In a nested child domain, distinguish between soil moisture and temperature
    2831! initialization from parent via dynamic input file. Further, initialize soil
     
    565568    USE control_parameters,                                                    &
    566569        ONLY:  cloud_droplets, coupling_start_time,                            &
    567                debug_output, debug_string,                                     &
     570               debug_output, debug_output_timestep, debug_string,              &
    568571               dt_3d,                                                          &
    569572               end_time, humidity, intermediate_timestep_count,                &
    570573               initializing_actions, intermediate_timestep_count_max,          &
    571                land_surface, max_masks, pt_surface,             &
     574               land_surface, max_masks, pt_surface,                            &
    572575               rho_surface, spinup, spinup_pt_mean, spinup_time,               &
    573576               surface_pressure, timestep_scheme, tsc,                         &
     
    19081911    TYPE(surf_type), POINTER  ::  surf  !< surface-date type variable
    19091912
    1910 !
    1911 !-- Debug location message
    1912     IF ( debug_output )  THEN
     1913
     1914    IF ( debug_output_timestep )  THEN
    19131915       WRITE( debug_string, * ) 'lsm_energy_balance', horizontal, l
    19141916       CALL debug_message( debug_string, 'start' )
     
    24722474    IF ( horizontal  .AND.  .NOT. constant_roughness )  CALL calc_z0_water_surface
    24732475   
    2474     IF ( debug_output )  THEN
     2476    IF ( debug_output_timestep )  THEN
    24752477       WRITE( debug_string, * ) 'lsm_energy_balance', horizontal, l
    24762478       CALL debug_message( debug_string, 'end' )
     
    53385340
    53395341
    5340        IF ( debug_output )  THEN
     5342       IF ( debug_output_timestep )  THEN
    53415343          WRITE( debug_string, * ) 'lsm_soil_model', horizontal, l, calc_soil_moisture
    53425344          CALL debug_message( debug_string, 'start' )
     
    56405642!
    56415643!--    Debug location message
    5642        IF ( debug_output )  THEN
     5644       IF ( debug_output_timestep )  THEN
    56435645          WRITE( debug_string, * ) 'lsm_soil_model', horizontal, l, calc_soil_moisture
    56445646          CALL debug_message( debug_string, 'end' )
Note: See TracChangeset for help on using the changeset viewer.