Changeset 3847 for palm/trunk/SOURCE/land_surface_model_mod.f90

Timestamp:

Apr 1, 2019 2:51:44 PM (5 years ago)

Author:

suehring

Message:

Adjust message-call for checks that are especially carried out locally.

File:

• palm/trunk/SOURCE/land_surface_model_mod.f90 (modified) (5 diffs)

palm/trunk/SOURCE/land_surface_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Adjust message-call for checks that are especially carried out locally. 
+! 
+! 3832 2019-03-28 13:16:58Z raasch
 ! instrumented with openmp directives
 ! 
@@ -1411 +1414 @@
                    WRITE( message_string, * ) 'soil_type = is out  of ' //     &
                                         'the valid range at (j,i) = ', j, i
-                   CALL message( 'lsm_check_parameters', 'PA0452', 2, 2, 0, 6, 0 )
+                   CALL message( 'lsm_check_parameters', 'PA0452',             &
+                                  2, 2, myid, 6, 0 )
                 ENDIF
              ENDDO
@@ -1436 +1440 @@
                    WRITE( message_string, * ) 'vegetation_type = is out of ' //&
                                         'the valid range at (j,i) = ', j, i
-                   CALL message( 'lsm_check_parameters', 'PA0526', 2, 2, 0, 6, 0 ) 
+                   CALL message( 'lsm_check_parameters', 'PA0526',             &
+                                  2, 2, myid, 6, 0 ) 
                 ENDIF
              ENDDO
@@ -1460 +1465 @@
                    WRITE( message_string, * ) 'pavement_type = is out of ' //  &
                                         'the valid range at (j,i) = ', j, i
-                   CALL message( 'lsm_check_parameters', 'PA0527', 2, 2, 0, 6, 0 ) 
+                   CALL message( 'lsm_check_parameters', 'PA0527',             &
+                                  2, 2, myid, 6, 0 ) 
                 ENDIF
              ENDDO
@@ -1484 +1490 @@
                    WRITE( message_string, * ) 'water_type = is out  of ' //    &
                                         'the valid range at (j,i) = ', j, i
-                   CALL message( 'lsm_check_parameters', 'PA0528', 2, 2, 0, 6, 0 ) 
+                   CALL message( 'lsm_check_parameters', 'PA0528',             &
+                                 2, 2, myid, 6, 0 ) 
                 ENDIF
              ENDDO