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

clean up location, debug and error messages

File:
1 edited

Legend:

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

    r3984 r3987  
    2525! -----------------
    2626! $Id$
     27! Introduce alternative switch for debug output during timestepping
     28!
     29! 3984 2019-05-16 15:17:03Z hellstea
    2730! Commenting improved, pmci_map_fine_to_coarse_grid renamed as pmci_map_child_grid_to_parent_grid,
    2831! set_child_edge_coords renamed as pmci_set_child_edge_coords, some variables renamed, etc.
     
    443446               constant_diffusion, constant_flux_layer,                        &
    444447               coupling_char,                                                  &
    445                debug_output, debug_string,                                     &
     448               debug_output_timestep,                                          &
    446449               dt_3d, dz, humidity, message_string,                            &
    447450               neutral, passive_scalar, rans_mode, rans_tke_e,                 &
     
    32193222   REAL(wp) ::  dtg       !<  Global time step defined as the global minimum of dtl of all processes
    32203223
    3221     IF ( debug_output )  THEN
    3222        WRITE( debug_string, * ) 'pmci_synchronize'
    3223        CALL debug_message( debug_string, 'start' )
    3224     ENDIF
     3224
     3225   IF ( debug_output_timestep )  CALL debug_message( 'pmci_synchronize', 'start' )
    32253226   
    32263227   dtl = dt_3d
     
    32283229   dt_3d  = dtg
    32293230
    3230     IF ( debug_output )  THEN
    3231        WRITE( debug_string, * ) 'pmci_synchronize'
    3232        CALL debug_message( debug_string, 'end' )
    3233     ENDIF
     3231   IF ( debug_output_timestep )  CALL debug_message( 'pmci_synchronize', 'end' )
    32343232
    32353233#endif
     
    32783276
    32793277#if defined( __parallel )   
    3280 !
    3281 !-- Debug location message
    3282     IF ( debug_output )  THEN
    3283        WRITE( debug_string, * ) 'pmci_datatrans'
    3284        CALL debug_message( debug_string, 'start' )
    3285     ENDIF
     3278
     3279    IF ( debug_output_timestep )  CALL debug_message( 'pmci_datatrans', 'start' )
    32863280
    32873281    IF ( TRIM( local_nesting_mode ) == 'one-way' )  THEN
     
    33193313
    33203314    ENDIF
    3321 !
    3322 !-- Debug location message
    3323     IF ( debug_output )  THEN
    3324        WRITE( debug_string, * ) 'pmci_datatrans'
    3325        CALL debug_message( debug_string, 'end' )
    3326     ENDIF
     3315
     3316    IF ( debug_output_timestep )  CALL debug_message( 'pmci_datatrans', 'end' )
    33273317
    33283318#endif
     
    47904780    INTEGER(iwp) ::  n   !< Running index for number of chemical species
    47914781   
    4792 !
    4793 !-- Debug location message
    4794     IF ( debug_output )  THEN
    4795        WRITE( debug_string, * ) 'pmci_boundary_conds'
    4796        CALL debug_message( debug_string, 'start' )
    4797     ENDIF
     4782
     4783    IF ( debug_output_timestep )  CALL debug_message( 'pmci_boundary_conds', 'start' )
    47984784!
    47994785!-- Set Dirichlet boundary conditions for horizontal velocity components
     
    49824968       ENDIF
    49834969    ENDIF   
    4984 !
    4985 !-- Debug location message
    4986     IF ( debug_output )  THEN
    4987        WRITE( debug_string, * ) 'pmci_boundary_conds'
    4988        CALL debug_message( debug_string, 'end' )
    4989     ENDIF
     4970
     4971    IF ( debug_output_timestep )  CALL debug_message( 'pmci_boundary_conds', 'end' )
    49904972
    49914973#endif
Note: See TracChangeset for help on using the changeset viewer.