Changeset 1845 for palm/trunk/SOURCE/interaction_droplets_ptq.f90

Timestamp:

Apr 8, 2016 8:29:13 AM (8 years ago)

Author:

raasch

Message:

nzb_2d replaced by nzb_..._inner, Kessler precipitation stored on surface grid point

File:

• palm/trunk/SOURCE/interaction_droplets_ptq.f90 (modified) (5 diffs)

palm/trunk/SOURCE/interaction_droplets_ptq.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-!
+! nzb_2d replaced by nzb_s_inner
 !
 ! Former revisions:
@@ -91 +91 @@
            
        USE indices,                                                            &
-           ONLY:  nxl, nxr, nyn, nys, nzb_2d, nzt
+           ONLY:  nxl, nxr, nyn, nys, nzb_s_inner, nzt
            
        USE kinds
@@ -106 +106 @@
        DO  i = nxl, nxr
           DO  j = nys, nyn
-             DO  k = nzb_2d(j,i)+1, nzt
+             DO  k = nzb_s_inner(j,i)+1, nzt
                 q_p(k,j,i)  = q_p(k,j,i)  - ql_c(k,j,i)
                 pt_p(k,j,i) = pt_p(k,j,i) + l_d_cp * ql_c(k,j,i) * pt_d_t(k)
@@ -130 +130 @@
 
        USE indices,                                                            &
-           ONLY:  nzb_2d, nzt
+           ONLY:  nzb_s_inner, nzt
 
        USE kinds,                                                              &
@@ -144 +144 @@
 
 
-       DO  k = nzb_2d(j,i)+1, nzt
+       DO  k = nzb_s_inner(j,i)+1, nzt
           q_p(k,j,i)  = q_p(k,j,i)  - ql_c(k,j,i)
           pt_p(k,j,i) = pt_p(k,j,i) + l_d_cp * ql_c(k,j,i) * pt_d_t(k)