Changeset 2273


Ignore:
Timestamp:
Jun 9, 2017 12:46:06 PM (4 years ago)
Author:
sward
Message:

error number updated

File:
1 edited

Legend:

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

    r2270 r2273  
    2525! -----------------
    2626! $Id$
     27! Error number changed
     28!
     29! 2270 2017-06-09 12:18:47Z maronga
    2730! Revised parameterization of heat conductivity between skin layer and soil.
    2831! Temperature and moisture are now defined at the center of the layers.
     
    786789             message_string = 'output of "' // TRIM( var ) // '" requi' //  &
    787790                              'res land_surface = .TRUE.'
    788              CALL message( 'check_parameters', 'PA0401', 1, 2, 0, 6, 0 )
     791             CALL message( 'check_parameters', 'PA0404', 1, 2, 0, 6, 0 )
    789792          ENDIF
    790793          IF ( TRIM( var ) == 'ghf*'  .AND.  .NOT.  land_surface )  THEN
Note: See TracChangeset for help on using the changeset viewer.