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

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

File:
1 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
Note: See TracChangeset for help on using the changeset viewer.