- Timestamp:
- Apr 3, 2018 4:20:18 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/radiation_model_mod.f90
r2943 r2944 28 28 ! ----------------- 29 29 ! $Id$ 30 ! Fixed bad commit 31 ! 32 ! 2943 2018-04-03 16:17:10Z suehring 30 33 ! No read of nsurfl from SVF file since it is calculated in 31 34 ! radiation_interaction_init, … … 6278 6281 horz_entry = -HUGE(1._wp) 6279 6282 ELSE 6280 write(9,*) "igitt", ig, ubound( nzterr ), ig > ubound( nzterr )6281 flush(9)6282 6283 horz_entry = (nzterr(ig) - origin(1)) / lastdist 6283 6284 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.