Changeset 3847 for palm/trunk


Ignore:
Timestamp:
Apr 1, 2019 2:51:44 PM (2 years ago)
Author:
suehring
Message:

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

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

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

    r3832 r3847  
    2525! -----------------
    2626! $Id$
     27! Adjust message-call for checks that are especially carried out locally.
     28!
     29! 3832 2019-03-28 13:16:58Z raasch
    2730! instrumented with openmp directives
    2831!
     
    14111414                   WRITE( message_string, * ) 'soil_type = is out  of ' //     &
    14121415                                        'the valid range at (j,i) = ', j, i
    1413                    CALL message( 'lsm_check_parameters', 'PA0452', 2, 2, 0, 6, 0 )
     1416                   CALL message( 'lsm_check_parameters', 'PA0452',             &
     1417                                  2, 2, myid, 6, 0 )
    14141418                ENDIF
    14151419             ENDDO
     
    14361440                   WRITE( message_string, * ) 'vegetation_type = is out of ' //&
    14371441                                        'the valid range at (j,i) = ', j, i
    1438                    CALL message( 'lsm_check_parameters', 'PA0526', 2, 2, 0, 6, 0 )
     1442                   CALL message( 'lsm_check_parameters', 'PA0526',             &
     1443                                  2, 2, myid, 6, 0 )
    14391444                ENDIF
    14401445             ENDDO
     
    14601465                   WRITE( message_string, * ) 'pavement_type = is out of ' //  &
    14611466                                        'the valid range at (j,i) = ', j, i
    1462                    CALL message( 'lsm_check_parameters', 'PA0527', 2, 2, 0, 6, 0 )
     1467                   CALL message( 'lsm_check_parameters', 'PA0527',             &
     1468                                  2, 2, myid, 6, 0 )
    14631469                ENDIF
    14641470             ENDDO
     
    14841490                   WRITE( message_string, * ) 'water_type = is out  of ' //    &
    14851491                                        'the valid range at (j,i) = ', j, i
    1486                    CALL message( 'lsm_check_parameters', 'PA0528', 2, 2, 0, 6, 0 )
     1492                   CALL message( 'lsm_check_parameters', 'PA0528',             &
     1493                                 2, 2, myid, 6, 0 )
    14871494                ENDIF
    14881495             ENDDO
  • palm/trunk/SOURCE/radiation_model_mod.f90

    r3846 r3847  
    2323! Current revisions:
    2424! ------------------
    25 ! Implement check for dt_radiation (must be > 0)
     25!
    2626!
    2727! Former revisions:
    2828! -----------------
    2929! $Id$
     30! Implement check for dt_radiation (must be > 0)
     31!
     32! 3846 2019-04-01 13:55:30Z suehring
    3033! unused variable removed
    3134!
Note: See TracChangeset for help on using the changeset viewer.