Changeset 3847 for palm/trunk/SOURCE

Timestamp:

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

Author:

suehring

Message:

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

Location:

palm/trunk/SOURCE

Files:

• land_surface_model_mod.f90 (modified) (5 diffs)
• radiation_model_mod.f90 (modified) (1 diff)

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

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -23 +23 @@
 ! Current revisions:
 ! ------------------
-! Implement check for dt_radiation (must be > 0)
+! 
 ! 
 ! Former revisions:
 ! -----------------
 ! $Id$
+! Implement check for dt_radiation (must be > 0)
+! 
+! 3846 2019-04-01 13:55:30Z suehring
 ! unused variable removed
 !