Ignore:
Timestamp:
May 2, 2014 2:31:06 PM (10 years ago)
Author:
raasch
Message:

output of location messages to stdout

File:
1 edited

Legend:

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

    r1362 r1384  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! location messages added
    2323!
    2424! Former revisions:
     
    224224
    225225
     226    CALL location_message( 'allocating arrays' )
    226227!
    227228!-- Allocate arrays
     
    592593    intermediate_timestep_count = 1  ! needed when simulated_time = 0.0
    593594       
     595    CALL location_message( 'finished' )
    594596!
    595597!-- Initialize model variables
     
    600602!--    Initial profiles of the variables must be computes.
    601603       IF ( INDEX( initializing_actions, 'set_1d-model_profiles' ) /= 0 )  THEN
     604
     605          CALL location_message( 'initializing with 1D model profiles' )
    602606!
    603607!--       Use solutions of the 1D model as initial profiles,
     
    718722          ENDIF
    719723
     724          CALL location_message( 'finished' )
     725
    720726       ELSEIF ( INDEX(initializing_actions, 'set_constant_profiles') /= 0 ) &
    721727       THEN
    722728
     729          CALL location_message( 'initializing with constant profiles' )
    723730!
    724731!--       Overwrite initial profiles in case of nudging
     
    829836          IF ( sloping_surface )  CALL init_slope
    830837
     838          CALL location_message( 'finished' )
     839
    831840       ELSEIF ( INDEX(initializing_actions, 'by_user') /= 0 ) &
    832841       THEN
     842
     843          CALL location_message( 'initializing by user' )
    833844!
    834845!--       Initialization will completely be done by the user
    835846          CALL user_init_3d_model
    836847
    837        ENDIF
     848          CALL location_message( 'finished' )
     849
     850       ENDIF
     851
     852       CALL location_message( 'initializing statistics, boundary conditions, etc.' )
     853
    838854!
    839855!--    Bottom boundary
     
    11051121       ENDIF
    11061122       
     1123       CALL location_message( 'finished' )
    11071124
    11081125    ELSEIF ( TRIM( initializing_actions ) == 'read_restart_data'  .OR.    &
    11091126         TRIM( initializing_actions ) == 'cyclic_fill' )  &
    11101127    THEN
     1128
     1129       CALL location_message( 'initializing in case of restart / cyclic_fill' )
    11111130!
    11121131!--    When reading data for cyclic fill of 3D prerun data files, read
     
    12931312       IF ( ocean )  tsa_m = 0.0_wp
    12941313
     1314       CALL location_message( 'finished' )
     1315
    12951316    ELSE
    12961317!
     
    14621483         TRIM( initializing_actions ) /= 'cyclic_fill' )  THEN
    14631484
     1485       CALL location_message( 'creating initial disturbances' )
    14641486       CALL disturb_field( nzb_u_inner, tend, u )
    14651487       CALL disturb_field( nzb_v_inner, tend, v )
     1488       CALL location_message( 'finished' )
     1489
     1490       CALL location_message( 'calling pressure solver' )
    14661491       n_sor = nsor_ini
    14671492       !$acc data copyin( d, ddzu, ddzw, nzb_s_inner, nzb_u_inner )            &
     
    14721497       !$acc end data
    14731498       n_sor = nsor
     1499       CALL location_message( 'finished' )
     1500
    14741501    ENDIF
    14751502
     
    18441871    DEALLOCATE( ngp_2dh_l, ngp_2dh_outer_l, ngp_3d_inner_l, ngp_3d_inner_tmp )
    18451872
     1873    CALL location_message( 'leaving init_3d_model' )
    18461874
    18471875 END SUBROUTINE init_3d_model
Note: See TracChangeset for help on using the changeset viewer.