Changeset 2944 for palm/trunk


Ignore:
Timestamp:
Apr 3, 2018 4:20:18 PM (7 years ago)
Author:
suehring
Message:

Fixed bad commit

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/radiation_model_mod.f90

    r2943 r2944  
    2828! -----------------
    2929! $Id$
     30! Fixed bad commit
     31!
     32! 2943 2018-04-03 16:17:10Z suehring
    3033! No read of nsurfl from SVF file since it is calculated in
    3134! radiation_interaction_init,
     
    62786281               horz_entry = -HUGE(1._wp)
    62796282            ELSE
    6280 write(9,*) "igitt", ig, ubound( nzterr ), ig > ubound( nzterr )
    6281 flush(9)
    62826283               horz_entry = (nzterr(ig) - origin(1)) / lastdist
    62836284            ENDIF
Note: See TracChangeset for help on using the changeset viewer.