Ignore:
Timestamp:
Oct 12, 2016 4:42:37 PM (5 years ago)
Author:
kanani
Message:

changes related to urban surface model and output of ssws

File:
1 edited

Legend:

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

    r2012 r2024  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Added missing CASE for ssws*
    2323!
    2424! Former revisions:
     
    343343                ENDIF
    344344                shf_av = 0.0_wp
     345               
     346             CASE ( 'ssws*' )
     347                IF ( .NOT. ALLOCATED( ssws_av ) )  THEN
     348                   ALLOCATE( ssws_av(nysg:nyng,nxlg:nxrg) )
     349                ENDIF
     350                ssws_av = 0.0_wp               
    345351
    346352             CASE ( 't*' )
Note: See TracChangeset for help on using the changeset viewer.