Changeset 3987 for palm/trunk/SOURCE/pmc_interface_mod.f90
- Timestamp:
- May 22, 2019 9:52:13 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/pmc_interface_mod.f90
r3984 r3987 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Introduce alternative switch for debug output during timestepping 28 ! 29 ! 3984 2019-05-16 15:17:03Z hellstea 27 30 ! Commenting improved, pmci_map_fine_to_coarse_grid renamed as pmci_map_child_grid_to_parent_grid, 28 31 ! set_child_edge_coords renamed as pmci_set_child_edge_coords, some variables renamed, etc. … … 443 446 constant_diffusion, constant_flux_layer, & 444 447 coupling_char, & 445 debug_output , debug_string,&448 debug_output_timestep, & 446 449 dt_3d, dz, humidity, message_string, & 447 450 neutral, passive_scalar, rans_mode, rans_tke_e, & … … 3219 3222 REAL(wp) :: dtg !< Global time step defined as the global minimum of dtl of all processes 3220 3223 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' ) 3225 3226 3226 3227 dtl = dt_3d … … 3228 3229 dt_3d = dtg 3229 3230 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' ) 3234 3232 3235 3233 #endif … … 3278 3276 3279 3277 #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' ) 3286 3280 3287 3281 IF ( TRIM( local_nesting_mode ) == 'one-way' ) THEN … … 3319 3313 3320 3314 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' ) 3327 3317 3328 3318 #endif … … 4790 4780 INTEGER(iwp) :: n !< Running index for number of chemical species 4791 4781 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' ) 4798 4784 ! 4799 4785 !-- Set Dirichlet boundary conditions for horizontal velocity components … … 4982 4968 ENDIF 4983 4969 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' ) 4990 4972 4991 4973 #endif
Note: See TracChangeset
for help on using the changeset viewer.