Ignore:
Timestamp:
Apr 11, 2019 11:29:34 AM (5 years ago)
Author:
kanani
Message:

restructure/add location/debug messages

File:
1 edited

Legend:

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

    r3874 r3885  
    2525! -----------------
    2626! $Id$
     27! Changes related to global restructuring of location messages and introduction
     28! of additional debug messages
     29!
     30! 3874 2019-04-08 16:53:48Z knoop
    2731! Implemented non_transport_physics module interfaces
    2832!
     
    239243
    240244    USE control_parameters,                                                    &
    241         ONLY:  dt_3d, dt_do2d_xy, intermediate_timestep_count,                 &
     245        ONLY:  debug_output,                                                   &
     246               dt_3d, dt_do2d_xy, intermediate_timestep_count,                 &
    242247               intermediate_timestep_count_max, large_scale_forcing,           &
    243248               lsf_surf, pt_surface, rho_surface, surface_pressure,            &
     
    934939       INTEGER(iwp) ::  j !<
    935940
    936        CALL location_message( 'initializing bulk cloud module', .FALSE. )
     941       IF ( debug_output )  CALL debug_message( 'bcm_init', 'start' )
    937942
    938943       IF ( bulk_cloud_model )  THEN
     
    10151020          dpirho_l = 1.0_wp / pirho_l
    10161021
    1017           CALL location_message( 'finished', .TRUE. )
     1022          IF ( debug_output )  CALL debug_message( 'bcm_init', 'end' )
    10181023
    10191024       ELSE
    10201025
    1021           CALL location_message( 'skipped', .TRUE. )
     1026          IF ( debug_output )  CALL debug_message( 'bcm_init skipped', 'end' )
    10221027
    10231028       ENDIF
Note: See TracChangeset for help on using the changeset viewer.