Changeset 2273 for palm/trunk/SOURCE

Timestamp:

Jun 9, 2017 12:46:06 PM (7 years ago)

Author:

sward

Message:

error number updated

File:

• palm/trunk/SOURCE/land_surface_model_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/land_surface_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Error number changed
+! 
+! 2270 2017-06-09 12:18:47Z maronga
 ! Revised parameterization of heat conductivity between skin layer and soil.
 ! Temperature and moisture are now defined at the center of the layers.
@@ -786 +789 @@
              message_string = 'output of "' // TRIM( var ) // '" requi' //  &
                               'res land_surface = .TRUE.'
-             CALL message( 'check_parameters', 'PA0401', 1, 2, 0, 6, 0 )
+             CALL message( 'check_parameters', 'PA0404', 1, 2, 0, 6, 0 )
           ENDIF
           IF ( TRIM( var ) == 'ghf*'  .AND.  .NOT.  land_surface )  THEN