Changeset 3046 for palm/trunk/SOURCE/lpm_droplet_condensation.f90

Timestamp:

May 29, 2018 8:02:15 AM (6 years ago)

Author:

Giersch

Message:

Remaining error messages revised, comments extended

File:

• palm/trunk/SOURCE/lpm_droplet_condensation.f90 (modified) (3 diffs)

palm/trunk/SOURCE/lpm_droplet_condensation.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Error messages revised
 ! 
 ! Former revisions:
@@ -384 +384 @@
        IF ( ql_c(kp,jp,ip) > 100.0_wp )  THEN
           WRITE( message_string, * ) 'k=',kp,' j=',jp,' i=',ip,                &
-                       ' ql_c=',ql_c(kp,jp,ip), ' part(',n,')%wf=',            &
+                       ' ql_c=',ql_c(kp,jp,ip), '&part(',n,')%wf=',            &
                        particles(n)%weight_factor,' delta_r=',delta_r
           CALL message( 'lpm_droplet_condensation', 'PA0143', 2, 2, -1, 6, 1 )
@@ -395 +395 @@
           WRITE( message_string, * ) '#1 k=',kp,' j=',jp,' i=',ip,             &
                        ' e_s=',e_s, ' e_a=',e_a,' t_int=',t_int,               &
-                       ' delta_r=',delta_r,                                    &
+                       '&delta_r=',delta_r,                                    &
                        ' particle_radius=',particles(n)%radius
           CALL message( 'lpm_droplet_condensation', 'PA0144', 2, 2, -1, 6, 1 )