Changeset 1615 for palm/trunk/SOURCE/init_3d_model.f90

Timestamp:

Jul 8, 2015 6:49:19 PM (9 years ago)

Author:

suehring

Message:

Enable turbulent inflow for passive_scalar and humidity

File:

• palm/trunk/SOURCE/init_3d_model.f90 (modified) (4 diffs)

palm/trunk/SOURCE/init_3d_model.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Enable turbulent inflow for passive_scalar and humidity
 ! 
 ! Former revisions:
@@ -1248 +1248 @@
 !--       profiles from the prerun. Alternatively, prescribed profiles
 !--       for u,v-components can be used.
-          ALLOCATE( mean_inflow_profiles(nzb:nzt+1,5) )
+          ALLOCATE( mean_inflow_profiles(nzb:nzt+1,6) )
 
           IF ( use_prescribed_profile_data )  THEN
@@ -1259 +1259 @@
           mean_inflow_profiles(:,4) = hom_sum(:,4,0)       ! pt
           mean_inflow_profiles(:,5) = hom_sum(:,8,0)       ! e
+          mean_inflow_profiles(:,6) = hom_sum(:,41,0)      ! q
 
 !
@@ -1285 +1286 @@
                    pt(k,j,nxlg:-1) = mean_inflow_profiles(k,4)
                    e(k,j,nxlg:-1)  = mean_inflow_profiles(k,5)
+                   IF ( humidity  .OR.  passive_scalar )                       &
+                      q(k,j,nxlg:-1)  = mean_inflow_profiles(k,6)
                 ENDDO
              ENDDO