Changeset 3106 for palm/trunk/SOURCE/netcdf_data_input_mod.f90

Timestamp:

Jul 6, 2018 3:00:06 PM (6 years ago)

Author:

suehring

Message:

Slightly revise check for input of surface_fraction

File:

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

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Slightly revise check for surface_fraction in order to check only the relevant
+! fractions
+! 
+! 3103 2018-07-04 17:30:52Z suehring
 ! New check for negative terrain heights
 ! 
@@ -3103 +3107 @@
 !
 !--             Sum of relative fractions must not exceed 1.
-                IF ( SUM ( surface_fraction_f%frac(:,j,i) ) > 1.0_wp )  THEN
+                IF ( SUM ( surface_fraction_f%frac(0:2,j,i) ) > 1.0_wp )  THEN
                    message_string = 'surface_fraction must not exceed 1'
                    CALL message( 'netcdf_data_input_mod', 'NDI028',            &