Changeset 1701 for palm/trunk/SOURCE/check_parameters.f90

Timestamp:

Nov 2, 2015 7:43:04 AM (9 years ago)

Author:

maronga

Message:

minor bugfixes for radiation model. bugfix in subjob

File:

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

palm/trunk/SOURCE/check_parameters.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix: definition of rad_net timeseries was missing
 ! 
 ! Former revisions:
@@ -3116 +3116 @@
              ENDIF
 
+          CASE ( 'rad_net' )
+             IF ( (.NOT. radiation) .OR. radiation_scheme == 'constant' )  THEN
+                message_string = 'data_output_pr = ' //                        &
+                                 TRIM( data_output_pr(i) ) // ' is not ava' // &
+                                 'lable for radiation = .FALSE. or ' //        &
+                                 'radiation_scheme = "constant"'
+                CALL message( 'check_parameters', 'PA0408', 1, 2, 0, 6, 0 )
+             ELSE
+                dopr_index(i) = 101
+                dopr_unit(i)  = 'W/m2'
+                hom(:,2,101,:)  = SPREAD( zw, 2, statistic_regions+1 )
+             ENDIF
+
           CASE ( 'rad_lw_in' )
              IF ( (.NOT. radiation) .OR. radiation_scheme == 'constant' )  THEN