Ignore:
Timestamp:
May 29, 2018 8:02:15 AM (3 years ago)
Author:
Giersch
Message:

Remaining error messages revised, comments extended

File:
1 edited

Legend:

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

    r3045 r3046  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    384384       IF ( ql_c(kp,jp,ip) > 100.0_wp )  THEN
    385385          WRITE( message_string, * ) 'k=',kp,' j=',jp,' i=',ip,                &
    386                        ' ql_c=',ql_c(kp,jp,ip), ' part(',n,')%wf=',            &
     386                       ' ql_c=',ql_c(kp,jp,ip), '&part(',n,')%wf=',            &
    387387                       particles(n)%weight_factor,' delta_r=',delta_r
    388388          CALL message( 'lpm_droplet_condensation', 'PA0143', 2, 2, -1, 6, 1 )
     
    395395          WRITE( message_string, * ) '#1 k=',kp,' j=',jp,' i=',ip,             &
    396396                       ' e_s=',e_s, ' e_a=',e_a,' t_int=',t_int,               &
    397                        ' delta_r=',delta_r,                                    &
     397                       '&delta_r=',delta_r,                                    &
    398398                       ' particle_radius=',particles(n)%radius
    399399          CALL message( 'lpm_droplet_condensation', 'PA0144', 2, 2, -1, 6, 1 )
Note: See TracChangeset for help on using the changeset viewer.