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

restructure/add location/debug messages

File:
1 edited

Legend:

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

    r3882 r3885  
    2828! -----------------
    2929! $Id$
     30! Changes related to global restructuring of location messages and introduction
     31! of additional debug messages
     32!
     33! 3882 2019-04-10 11:08:06Z suehring
    3034! Avoid different type kinds
    3135! Move definition of building-surface properties from declaration block
     
    458462
    459463    USE control_parameters,                                                    &
    460         ONLY:  coupling_start_time, topography, dt_3d, humidity, indoor_model, &
     464        ONLY:  coupling_start_time, topography,                                &
     465               debug_output, debug_string,                                     &
     466               dt_3d, humidity, indoor_model,                                  &
    461467               intermediate_timestep_count, initializing_actions,              &
    462468               intermediate_timestep_count_max, simulated_time, end_time,      &
     
    976982        INTEGER(iwp) ::  l
    977983
    978         CALL location_message( 'initializing and allocating urban surfaces', .FALSE. )
     984        IF ( debug_output )  CALL debug_message( 'usm_init_arrays', 'start' )
    979985
    980986!
     
    13831389        ENDDO
    13841390
    1385         CALL location_message( 'finished', .TRUE. )
     1391        IF ( debug_output )  CALL debug_message( 'usm_init_arrays', 'end' )
    13861392       
    13871393    END SUBROUTINE usm_init_arrays
     
    34743480        INTEGER(iwp) ::  k, l, m            !< running indices
    34753481       
    3476         CALL location_message( '    initialization of wall surface model', .TRUE. )
     3482        IF ( debug_output )  CALL debug_message( 'usm_init_material_model', 'start' )
    34773483
    34783484!
     
    36603666
    36613667       
    3662         CALL location_message( '    wall structures filed out', .TRUE. )
    3663 
    3664         CALL location_message( '    initialization of wall surface model finished', .TRUE. )
     3668        IF ( debug_output )  CALL debug_message( 'usm_init_material_model', 'end' )
    36653669
    36663670    END SUBROUTINE usm_init_material_model
     
    37283732        REAL(wp)     ::  z_agl                        !< height above ground
    37293733
    3730         CALL location_message( 'initializing urban surface model', .FALSE. )
     3734        IF ( debug_output )  CALL debug_message( 'usm_init', 'start' )
    37313735
    37323736        CALL cpu_log( log_point_s(78), 'usm_init', 'start' )
     
    51915195        CALL cpu_log( log_point_s(78), 'usm_init', 'stop' )
    51925196
    5193         CALL location_message( 'finished', .TRUE. )
     5197        IF ( debug_output )  CALL debug_message( 'usm_init', 'end' )
    51945198
    51955199    END SUBROUTINE usm_init
     
    52175221
    52185222        LOGICAL      :: spinup  !< if true, no calculation of window temperatures
     5223
     5224
     5225        IF ( debug_output )  THEN
     5226           WRITE( debug_string, * ) 'usm_material_heat_model | spinup: ', spinup
     5227           CALL debug_message( debug_string, 'start' )
     5228        ENDIF
    52195229
    52205230        !$OMP PARALLEL PRIVATE (m, i, j, k, kw, wtend, wintend, win_absorp, wall_mod)
     
    55905600        !$OMP END PARALLEL
    55915601
     5602        IF ( debug_output )  THEN
     5603           WRITE( debug_string, * ) 'usm_material_heat_model | spinup: ', spinup
     5604           CALL debug_message( debug_string, 'end' )
     5605        ENDIF
     5606
    55925607    END SUBROUTINE usm_material_heat_model
    55935608
     
    56195634        LOGICAL :: conserve_water_content = .true.
    56205635
     5636
     5637        IF ( debug_output )  CALL debug_message( 'usm_green_heat_model', 'start' )
    56215638
    56225639        drho_l_lv = 1.0_wp / (rho_l * l_v)
     
    59495966        ENDDO
    59505967
     5968        IF ( debug_output )  CALL debug_message( 'usm_green_heat_model', 'end' )
     5969
    59515970    END SUBROUTINE usm_green_heat_model
    59525971
     
    69396958        REAL(wp)                                              :: wealbedo3, wethick3, snalbedo3, snthick3
    69406959
     6960
     6961        IF ( debug_output )  CALL debug_message( 'usm_read_urban_surface_types', 'start' )
    69416962!
    69426963!--     If building_pars or building_type are already read from static input
     
    74527473        ENDDO
    74537474
    7454        
    7455         WRITE(9,*) 'Urban surfaces read'
    7456         FLUSH(9)
    7457        
    7458         CALL location_message( '    types and parameters of urban surfaces read', .TRUE. )
     7475        IF ( debug_output )  CALL debug_message( 'usm_read_urban_surface_types', 'end' )
    74597476   
    74607477    END SUBROUTINE usm_read_urban_surface_types
     
    75137530
    75147531
     7532        IF ( debug_output )  CALL debug_message( 'usm_read_wall_temperature', 'start' )
     7533
    75157534        DO  ii = 0, io_blocks-1
    75167535            IF ( ii == io_group )  THEN
     
    75677586        ENDDO
    75687587
    7569         CALL location_message( '    wall layer temperatures read', .TRUE. )
     7588        IF ( debug_output )  CALL debug_message( 'usm_read_wall_temperature', 'end' )
    75707589
    75717590    END SUBROUTINE usm_read_wall_temperature
     
    76387657                     q_s             !< saturation specific humidity
    76397658
     7659
     7660        IF ( debug_output )  THEN
     7661           WRITE( debug_string, * ) 'usm_surface_energy_balance | spinup: ', spinup
     7662           CALL debug_message( debug_string, 'start' )
     7663        ENDIF
    76407664!
    76417665!--     Index offset of surface element point with respect to adjoining
     
    86398663!
    86408664!        END SUBROUTINE calc_q_surface_usm
    8641        
     8665
     8666        IF ( debug_output )  THEN
     8667           WRITE( debug_string, * ) 'usm_surface_energy_balance | spinup: ', spinup
     8668           CALL debug_message( debug_string, 'end' )
     8669        ENDIF
     8670
    86428671     END SUBROUTINE usm_surface_energy_balance
    86438672 
Note: See TracChangeset for help on using the changeset viewer.