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/nesting_offl_mod.f90

    r3876 r3885  
    2525! -----------------
    2626! $Id$
     27! Changes related to global restructuring of location messages and introduction
     28! of additional debug messages
     29!
     30!
    2731! Do local data exchange for chemistry variables only when boundary data is 
    2832! coming from dynamic file
     
    6872    USE control_parameters,                                                    &
    6973        ONLY:  air_chemistry, bc_dirichlet_l, bc_dirichlet_n, bc_dirichlet_r,  &
    70                bc_dirichlet_s, dt_3d, dz, constant_diffusion, humidity,        &
     74               bc_dirichlet_s, dt_3d, dz, constant_diffusion,                  &
     75               debug_output, debug_string,                                     &
     76               humidity,                                                       &
    7177               message_string, nesting_offline, neutral, passive_scalar,       &
    7278               rans_mode, rans_tke_e, time_since_reference_point, volume_flow
     
    150156       REAL(wp), DIMENSION(1:3) ::  volume_flow_l   !< local volume flow
    151157
     158!
     159!--    Debug location message
     160       IF ( debug_output )  THEN
     161          WRITE( debug_string, * ) 'nesting_offl_mass_conservation'
     162          CALL debug_message( debug_string, 'start' )
     163       ENDIF
    152164       
    153165       CALL  cpu_log( log_point(58), 'offline nesting', 'start' )
     
    226238       
    227239       CALL  cpu_log( log_point(58), 'offline nesting', 'stop' )
     240!
     241!--    Debug location message
     242       IF ( debug_output )  THEN
     243          WRITE( debug_string, * ) 'nesting_offl_mass_conservation'
     244          CALL debug_message( debug_string, 'end' )
     245       ENDIF
    228246
    229247    END SUBROUTINE nesting_offl_mass_conservation
     
    258276       REAL(wp), DIMENSION(nzb:nzt+1) ::  v_ref_l  !< reference profile for v-component on subdomain
    259277       
     278!
     279!--    Debug location message
     280       IF ( debug_output )  THEN
     281          WRITE( debug_string, * ) 'nesting_offl_bc'
     282          CALL debug_message( debug_string, 'start' )
     283       ENDIF
     284
    260285       CALL  cpu_log( log_point(58), 'offline nesting', 'start' )     
    261286!
     
    782807   
    783808       CALL  cpu_log( log_point(58), 'offline nesting', 'stop' )
     809!
     810!--    Debug location message
     811       IF ( debug_output )  THEN
     812          WRITE( debug_string, * ) 'nesting_offl_bc'
     813          CALL debug_message( debug_string, 'end' )
     814       ENDIF
    784815
    785816    END SUBROUTINE nesting_offl_bc
Note: See TracChangeset for help on using the changeset viewer.