Changeset 1970 for palm/trunk/SOURCE


Ignore:
Timestamp:
Jul 18, 2016 2:27:12 PM (8 years ago)
Author:
suehring
Message:

Bugfix, check for ibc_q_b and constant_waterflux in case of land-surface scheme

File:
1 edited

Legend:

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

    r1963 r1970  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Bugfix, check for ibc_q_b and constant_waterflux in case of land-surface scheme
    2222!
    2323! Former revisions:
     
    39213921!--    A given surface value implies Dirichlet boundary condition for
    39223922!--    the respective quantity. In this case specification of a constant flux is
    3923 !--    forbidden.
    3924        IF ( ibc_b == 0  .AND.  constant_flux )  THEN
    3925           message_string = 'boundary condition: bc_' // TRIM( sq ) // '_b ' // &
    3926                            '= "' // TRIM( bc_b ) // '" is not allowed wi' // &
    3927                            'th prescribed surface flux'
    3928           CALL message( 'check_parameters', err_nr_3, 1, 2, 0, 6, 0 )
     3923!--    forbidden. However, an exception is made for large-scale forcing as well
     3924!--    as land-surface model.
     3925       IF ( .NOT. land_surface  .AND.  .NOT. large_scale_forcing )  THEN
     3926          IF ( ibc_b == 0  .AND.  constant_flux )  THEN
     3927             message_string = 'boundary condition: bc_' // TRIM( sq ) // '_b ' //  &
     3928                              '= "' // TRIM( bc_b ) // '" is not allowed with ' // &
     3929                              'prescribed surface flux'
     3930             CALL message( 'check_parameters', err_nr_3, 1, 2, 0, 6, 0 )
     3931          ENDIF
    39293932       ENDIF
    39303933       IF ( constant_waterflux  .AND.  surface_initial_change /= 0.0_wp )  THEN
Note: See TracChangeset for help on using the changeset viewer.