Ignore:
Timestamp:
May 28, 2018 7:55:41 AM (3 years ago)
Author:
Giersch
Message:

Code adjusted according to coding standards, renamed namelists, error messages revised until PA0347, output CASE 108 disabled

File:
1 edited

Legend:

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

    r2718 r3045  
    2525! -----------------
    2626! $Id$
     27! Code adjusted according to PALM coding standards
     28!
     29! 2718 2018-01-02 08:49:38Z maronga
    2730! Corrected "Former revisions" section
    2831!
     
    255258!--    Select the plot mode (in case of isosurface or slicer only if user has
    256259!--    defined a variable which shall be plotted; otherwise do nothing)
    257        IF ( ( mode_dvrp(m)(1:10) == 'isosurface'  .OR.                     &
     260       IF ( ( mode_dvrp(m)(1:10) == 'isosurface'  .OR.                         &
    258261                  mode_dvrp(m)(1:6)  == 'slicer'           )                   &
    259262                  .AND.  output_variable /= ' ' )  THEN
     
    362365                   ELSE                   
    363366                      message_string = 'if humidity = '    //                  &
    364                             '.FALSE. output of ' // TRIM( output_variable ) //   &
     367                            '.FALSE. output of ' // TRIM( output_variable ) // &
    365368                            'is not provided'
    366369                      CALL message( 'data_output_dvrp', 'PA0183',&
     
    378381                      ENDDO
    379382                   ELSE                     
    380                       message_string = 'if cloud_physics = .FALSE. and '       //    &
     383                      message_string = 'if cloud_physics = .FALSE. and ' //    &
    381384                                  'cloud_droplets = .FALSE. '
    382385                                  'output of ' // TRIM( output_variable) //    &
     
    561564          CALL cpu_log( log_point_s(31), 'dvrp_pathlines', 'start' )
    562565
    563           CALL DVRP_DATA( m-1, local_pfi, 4, nx_dvrp, ny_dvrp, nz_dvrp, &
     566          CALL DVRP_DATA( m-1, local_pfi, 4, nx_dvrp, ny_dvrp, nz_dvrp,        &
    564567                          cyclic_dvrp, cyclic_dvrp, cyclic_dvrp )
    565568          CALL DVRP_VISUALIZE( m-1, 20, dvrp_filecount )
Note: See TracChangeset for help on using the changeset viewer.