Ignore:
Timestamp:
Jul 12, 2016 4:34:24 PM (5 years ago)
Author:
suehring
Message:

Separate balance equations for humidity and passive_scalar

File:
1 edited

Legend:

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

    r1834 r1960  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Additional default spectra for passive scalar
    2222!
    2323! Former revisions:
     
    480480
    481481       USE arrays_3d,                                                          &
    482            ONLY:  d, pt, q, u, v, w
     482           ONLY:  d, pt, q, s, u, v, w
    483483
    484484       USE indices,                                                            &
     
    532532          pr = 41
    533533          d(nzb+1:nzt,nys:nyn,nxl:nxr) = q(nzb+1:nzt,nys:nyn,nxl:nxr)
     534         
     535       CASE ( 's' )
     536          pr = 117
     537          d(nzb+1:nzt,nys:nyn,nxl:nxr) = s(nzb+1:nzt,nys:nyn,nxl:nxr)
    534538       
    535539       CASE DEFAULT
Note: See TracChangeset for help on using the changeset viewer.