Ignore:
Timestamp:
Jul 6, 2018 3:00:06 PM (3 years ago)
Author:
suehring
Message:

Slightly revise check for input of surface_fraction

File:
1 edited

Legend:

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

    r3103 r3106  
    2525! -----------------
    2626! $Id$
     27! Slightly revise check for surface_fraction in order to check only the relevant
     28! fractions
     29!
     30! 3103 2018-07-04 17:30:52Z suehring
    2731! New check for negative terrain heights
    2832!
     
    31033107!
    31043108!--             Sum of relative fractions must not exceed 1.
    3105                 IF ( SUM ( surface_fraction_f%frac(:,j,i) ) > 1.0_wp )  THEN
     3109                IF ( SUM ( surface_fraction_f%frac(0:2,j,i) ) > 1.0_wp )  THEN
    31063110                   message_string = 'surface_fraction must not exceed 1'
    31073111                   CALL message( 'netcdf_data_input_mod', 'NDI028',            &
Note: See TracChangeset for help on using the changeset viewer.