Changeset 2943 for palm/trunk/SOURCE/radiation_model_mod.f90

Timestamp:

Apr 3, 2018 4:17:10 PM (6 years ago)

Author:

suehring

Message:

Calculate exner function at all height levels in USM In order to avoid segmentation faults in case radiation-interactions are switched-off, calculate exner function at all height levels in USM .

File:

• palm/trunk/SOURCE/radiation_model_mod.f90 (modified) (1 diff)

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -6278 +6278 @@
                horz_entry = -HUGE(1._wp)
             ELSE
+write(9,*) "igitt", ig, ubound( nzterr ), ig > ubound( nzterr )
+flush(9)
                horz_entry = (nzterr(ig) - origin(1)) / lastdist
             ENDIF