Changeset 4188 for palm


Ignore:
Timestamp:
Aug 26, 2019 2:15:47 PM (5 years ago)
Author:
suehring
Message:

Minor adjustments in error messages and error numbers. Some typos are corrected.

Location:
palm/trunk/SOURCE
Files:
3 edited

Legend:

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

    r4187 r4188  
    2525! -----------------
    2626! $Id$
     27! Minor adjustment in error numbers, typos corrected
     28!
     29! 4187 2019-08-26 12:43:15Z suehring
    2730! Adjust message call in case of local checks
    2831!
     
    31693172                WRITE( message_string, * )                                     &
    31703173                                 'surface element at grid point (j,i) = (',    &
    3171                                  j, i, ') is not a vegation surface, ',        &
     3174                                 j, i, ') is not a vegetation surface, ',      &
    31723175                                 'so that information given in ',              &
    31733176                                 'vegetation_pars at this point is neglected.'
     
    32453248                   WRITE( message_string, * )                                  &
    32463249                                 'surface element at grid point (j,i) = (',    &
    3247                                  j, i, ') is not a vegation surface, ',        &
     3250                                 j, i, ') is not a vegetation surface, ',      &
    32483251                                 'so that information given in ',              &
    32493252                                 'vegetation_pars at this point is neglected.'
    3250                    CALL message( 'land_surface_model_mod', 'PA0437', 0, 0, myid, 6, 0 )
     3253                   CALL message( 'land_surface_model_mod', 'PA0436', 0, 0, myid, 6, 0 )
    32513254                ELSE
    32523255
     
    35203523                              'so that information given in ',                 &
    35213524                              'water_pars at this point is neglected.'
    3522                    CALL message( 'land_surface_model_mod', 'PA0646',           &
     3525                   CALL message( 'land_surface_model_mod', 'PA0645',           &
    35233526                                  0, 0, myid, 6, 0 )
    35243527                ELSE
     
    38863889                                 'so that information given in ',              &
    38873890                                 'pavement_pars at this point is neglected.'
    3888                    CALL message( 'land_surface_model_mod', 'PA0670', 0, 0, myid, 6, 0 )
     3891                   CALL message( 'land_surface_model_mod', 'PA0647', 0, 0, myid, 6, 0 )
    38893892                ELSE
    38903893
     
    45934596             message_string = 'For non-pavement surfaces the combination ' //  &
    45944597                              ' lai = 0.0 and c_veg = 1.0 is not allowed.'
    4595              CALL message( 'lsm_rrd_local', 'PA0672', 2, 2, 0, 6, 0 )
     4598             CALL message( 'lsm_rrd_local', 'PA0671', 2, 2, 0, 6, 0 )
    45964599          ENDIF
    45974600       ENDDO
  • palm/trunk/SOURCE/plant_canopy_model_mod.f90

    r4187 r4188  
    2727! -----------------
    2828! $Id$
     29! Minor adjustment in error number
     30!
     31! 4187 2019-08-26 12:43:15Z suehring
    2932! Give specific error numbers instead of PA0999
    3033!
     
    433436                           TRIM( coupling_char ) // ' requires ' //            &
    434437                           'canopy_mode = read_from_file_3d'
    435           CALL message( 'pcm_check_parameters', 'PA0673', 1, 2, 0, 6, 0 )
     438          CALL message( 'pcm_check_parameters', 'PA0672', 1, 2, 0, 6, 0 )
    436439       ENDIF
    437440
  • palm/trunk/SOURCE/radiation_model_mod.f90

    r4187 r4188  
    2828! -----------------
    2929! $Id$
     30! Minor adjustment in error message
     31!
     32! 4187 2019-08-26 12:43:15Z suehring
    3033! - Take external radiation from root domain dynamic input if not provided for
    3134!   each nested domain
     
    24732476                              'dynamic input for the child domain(s) is ' //   &
    24742477                              'provided, at least one for the root domain ' // &
    2475                               'needs to be provided.'
     2478                              'is needed.'
    24762479             CALL message( 'radiation_init', 'PA0315', 1, 2, 0, 6, 0 )
    24772480          ENDIF
Note: See TracChangeset for help on using the changeset viewer.