Changeset 2944 for palm/trunk/SOURCE

Timestamp:

Apr 3, 2018 4:20:18 PM (7 years ago)

Author:

suehring

Message:

Fixed bad commit

File:

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

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! Fixed bad commit
+! 
+! 2943 2018-04-03 16:17:10Z suehring
 ! No read of nsurfl from SVF file since it is calculated in
 ! radiation_interaction_init,
@@ -6278 +6281 @@
                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