Changeset 4520 for palm/trunk/SOURCE/lagrangian_particle_model_mod.f90

Timestamp:

May 6, 2020 8:57:19 AM (5 years ago)

Author:

schwenkel

Message:

add error number

File:

• palm/trunk/SOURCE/lagrangian_particle_model_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/lagrangian_particle_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Add error number
+! 
+! 4517 2020-05-03 14:29:30Z raasch
 ! restart data handling with MPI-IO added
 ! 
@@ -5430 +5433 @@
                    WRITE( message_string, * )  'LWC out of range: ' , &
                                                ql(k,j,i),i,j,k
-                   CALL message( 'lpm_calc_liquid_water_content', '', 2, 2,    &
-                                 -1, 6, 1 )
+                   CALL message( 'lpm_calc_liquid_water_content', 'PA0719',    &
+                                   2, 2, -1, 6, 1 )
                 ENDIF
              ELSE