Changeset 1402 for palm/trunk/SOURCE/init_3d_model.f90

Timestamp:

May 9, 2014 2:25:13 PM (10 years ago)

Author:

raasch

Message:

output of location messages complemented, output of location bar added
(Makefile, check_parameters, cpulog, init_pegrid, init_3d_model, message, palm, parin, time_integration, new: progress_bar)
preprocessor switch intel_compiler added, -r8 compiler options removed
(.mrun.config.default, .mrun.config.imuk, .mrun.config.kiaps)

batch_job added to envpar-NAMELIST
(mrun, parin)

File:

• palm/trunk/SOURCE/init_3d_model.f90 (modified) (12 diffs)

palm/trunk/SOURCE/init_3d_model.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! location messages modified
 ! 
 ! Former revisions:
@@ -234 +234 @@
 
 
-    CALL location_message( 'allocating arrays' )
+    CALL location_message( 'allocating arrays', .FALSE. )
 !
 !-- Allocate arrays
@@ -612 +612 @@
     intermediate_timestep_count = 1  ! needed when simulated_time = 0.0
        
-    CALL location_message( 'finished' )
+    CALL location_message( 'finished', .TRUE. )
 !
 !-- Initialize model variables
@@ -622 +622 @@
        IF ( INDEX( initializing_actions, 'set_1d-model_profiles' ) /= 0 )  THEN
 
-          CALL location_message( 'initializing with 1D model profiles' )
+          CALL location_message( 'initializing with 1D model profiles', .FALSE. )
 !
 !--       Use solutions of the 1D model as initial profiles,
@@ -741 +741 @@
           ENDIF
 
-          CALL location_message( 'finished' )
+          CALL location_message( 'finished', .TRUE. )
 
        ELSEIF ( INDEX(initializing_actions, 'set_constant_profiles') /= 0 ) &
        THEN
 
-          CALL location_message( 'initializing with constant profiles' )
+          CALL location_message( 'initializing with constant profiles', .FALSE. )
 !
 !--       Overwrite initial profiles in case of nudging
@@ -855 +855 @@
           IF ( sloping_surface )  CALL init_slope
 
-          CALL location_message( 'finished' )
+          CALL location_message( 'finished', .TRUE. )
 
        ELSEIF ( INDEX(initializing_actions, 'by_user') /= 0 ) &
        THEN
 
-          CALL location_message( 'initializing by user' )
+          CALL location_message( 'initializing by user', .FALSE. )
 !
 !--       Initialization will completely be done by the user
           CALL user_init_3d_model
 
-          CALL location_message( 'finished' )
-
-       ENDIF
-
-       CALL location_message( 'initializing statistics, boundary conditions, etc.' )
+          CALL location_message( 'finished', .TRUE. )
+
+       ENDIF
+
+       CALL location_message( 'initializing statistics, boundary conditions, etc.', &
+                              .FALSE. )
 
 !
@@ -1158 +1159 @@
        ENDIF
        
-       CALL location_message( 'finished' )
+       CALL location_message( 'finished', .TRUE. )
 
     ELSEIF ( TRIM( initializing_actions ) == 'read_restart_data'  .OR.    &
@@ -1164 +1165 @@
     THEN
 
-       CALL location_message( 'initializing in case of restart / cyclic_fill' )
+       CALL location_message( 'initializing in case of restart / cyclic_fill', &
+                              .FALSE. )
 !
 !--    When reading data for cyclic fill of 3D prerun data files, read
@@ -1349 +1351 @@
        IF ( ocean )  tsa_m = 0.0_wp
 
-       CALL location_message( 'finished' )
+       CALL location_message( 'finished', .TRUE. )
 
     ELSE
@@ -1520 +1522 @@
          TRIM( initializing_actions ) /= 'cyclic_fill' )  THEN
 
-       CALL location_message( 'creating initial disturbances' )
+       CALL location_message( 'creating initial disturbances', .FALSE. )
        CALL disturb_field( nzb_u_inner, tend, u )
        CALL disturb_field( nzb_v_inner, tend, v )
-       CALL location_message( 'finished' )
-
-       CALL location_message( 'calling pressure solver' )
+       CALL location_message( 'finished', .TRUE. )
+
+       CALL location_message( 'calling pressure solver', .FALSE. )
        n_sor = nsor_ini
        !$acc data copyin( d, ddzu, ddzw, nzb_s_inner, nzb_u_inner )            &
@@ -1534 +1536 @@
        !$acc end data
        n_sor = nsor
-       CALL location_message( 'finished' )
+       CALL location_message( 'finished', .TRUE. )
 
     ENDIF
@@ -1908 +1910 @@
     DEALLOCATE( ngp_2dh_l, ngp_2dh_outer_l, ngp_3d_inner_l, ngp_3d_inner_tmp )
 
-    CALL location_message( 'leaving init_3d_model' )
+    CALL location_message( 'leaving init_3d_model', .TRUE. )
 
  END SUBROUTINE init_3d_model