Changeset 3885 for palm/trunk/SOURCE/pmc_interface_mod.f90

Timestamp:

Apr 11, 2019 11:29:34 AM (5 years ago)

Author:

kanani

Message:

restructure/add location/debug messages

File:

• palm/trunk/SOURCE/pmc_interface_mod.f90 (modified) (11 diffs)

palm/trunk/SOURCE/pmc_interface_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Changes related to global restructuring of location messages and introduction 
+! of additional debug messages
+! 
+! 3883 2019-04-10 12:51:50Z hellstea
 ! Checks and error messages improved and extended. All the child index bounds in the
 ! parent-grid index space are made module variables. Function get_number_of_childs
@@ -405 +409 @@
                bc_dirichlet_s, child_domain,                                   &
                constant_diffusion, constant_flux_layer,                        &
-               coupling_char, dt_3d, dz, humidity, message_string,             &
+               coupling_char,                                                  &
+               debug_output, debug_string,                                     &
+               dt_3d, dz, humidity, message_string,                            &
                neutral, passive_scalar, rans_mode, rans_tke_e,                 &
                roughness_length, salsa, topography, volume_flow
@@ -790 +796 @@
 !-- Attention: myid has been set at the end of pmc_init_model in order to
 !-- guarantee that only PE0 of the root domain does the output.
-    CALL location_message( 'finished', .TRUE. )
+    CALL location_message( 'initialize model nesting', 'finished' )
 !
 !-- Reset myid to its default value
@@ -800 +806 @@
 !-- world_comm is given a dummy value to avoid compiler warnings (INTENT(OUT)
 !-- should get an explicit value)
+!-- todo: why don't we print an error message instead of these settings?
     cpl_id     = 1
     nested_run = .FALSE.
@@ -817 +824 @@
     
 #if defined( __parallel )
-    CALL location_message( 'setup the nested model configuration', .FALSE. )
+    CALL location_message( 'setup the nested model configuration', 'start' )
     CALL cpu_log( log_point_s(79), 'pmci_model_config', 'start' )
 !
@@ -844 +851 @@
 
     CALL cpu_log( log_point_s(79), 'pmci_model_config', 'stop' )
-    CALL location_message( 'finished', .TRUE. )
+    CALL location_message( 'setup the nested model configuration', 'finished' )
 #endif
 
@@ -3050 +3057 @@
    REAL(wp) ::  dtg       !<  Global time step defined as the global minimum of dtl of all processes
 
+    IF ( debug_output )  THEN
+       WRITE( debug_string, * ) 'pmci_synchronize'
+       CALL debug_message( debug_string, 'start' )
+    ENDIF
    
    dtl = dt_3d
    CALL MPI_ALLREDUCE( dtl, dtg, 1, MPI_REAL, MPI_MIN, MPI_COMM_WORLD, ierr )
    dt_3d  = dtg
+
+    IF ( debug_output )  THEN
+       WRITE( debug_string, * ) 'pmci_synchronize'
+       CALL debug_message( debug_string, 'end' )
+    ENDIF
 
 #endif
@@ -3099 +3115 @@
     CHARACTER(LEN=*), INTENT(IN) ::  local_nesting_mode  !<  Nesting mode: 'one-way', 'two-way' or 'vertical'
 
+!
+!-- Debug location message
+    IF ( debug_output )  THEN
+       WRITE( debug_string, * ) 'pmci_datatrans'
+       CALL debug_message( debug_string, 'start' )
+    ENDIF
 
     IF ( TRIM( local_nesting_mode ) == 'one-way' )  THEN
@@ -3133 +3155 @@
        ENDIF
 
+    ENDIF
+!
+!-- Debug location message
+    IF ( debug_output )  THEN
+       WRITE( debug_string, * ) 'pmci_datatrans'
+       CALL debug_message( debug_string, 'end' )
     ENDIF
 
@@ -4600 +4628 @@
     INTEGER(iwp) ::  n   !< Running index for number of chemical species
     
+!
+!-- Debug location message
+    IF ( debug_output )  THEN
+       WRITE( debug_string, * ) 'pmci_boundary_conds'
+       CALL debug_message( debug_string, 'start' )
+    ENDIF
 !
 !-- Set Dirichlet boundary conditions for horizontal velocity components
@@ -4786 +4820 @@
        ENDIF
     ENDIF    
+!
+!-- Debug location message
+    IF ( debug_output )  THEN
+       WRITE( debug_string, * ) 'pmci_boundary_conds'
+       CALL debug_message( debug_string, 'end' )
+    ENDIF
 
  END SUBROUTINE pmci_boundary_conds