Changeset 1960 for palm/trunk/SOURCE/spectra_mod.f90

Timestamp:

Jul 12, 2016 4:34:24 PM (8 years ago)

Author:

suehring

Message:

Separate balance equations for humidity and passive_scalar

File:

• palm/trunk/SOURCE/spectra_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/spectra_mod.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Additional default spectra for passive scalar
 ! 
 ! Former revisions:
@@ -480 +480 @@
 
        USE arrays_3d,                                                          &
-           ONLY:  d, pt, q, u, v, w
+           ONLY:  d, pt, q, s, u, v, w
 
        USE indices,                                                            &
@@ -532 +532 @@
           pr = 41
           d(nzb+1:nzt,nys:nyn,nxl:nxr) = q(nzb+1:nzt,nys:nyn,nxl:nxr)
+          
+       CASE ( 's' )
+          pr = 117
+          d(nzb+1:nzt,nys:nyn,nxl:nxr) = s(nzb+1:nzt,nys:nyn,nxl:nxr)
        
        CASE DEFAULT