Changeset 4346 for palm/trunk/SOURCE/subsidence_mod.f90

Timestamp:

Dec 18, 2019 11:55:56 AM (4 years ago)

Author:

motisi

Message:

Introduction of wall_flags_total_0, which currently sets bits based on static topography information used in wall_flags_static_0

File:

• palm/trunk/SOURCE/subsidence_mod.f90 (modified) (7 diffs)

palm/trunk/SOURCE/subsidence_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Introduction of wall_flags_total_0, which currently sets bits based on static
+! topography information used in wall_flags_static_0
+! 
+! 4329 2019-12-10 15:46:36Z motisi
 ! Renamed wall_flags_0 to wall_flags_static_0
 ! 
@@ -155 +159 @@
        USE indices,                                                            &
            ONLY:  nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzt,        &
-                  wall_flags_static_0
+                  wall_flags_total_0
 
        USE kinds
@@ -189 +193 @@
                               ( var(k+1,j,i) - var(k,j,i) ) * ddzu(k+1) *      &
                                         MERGE( 1.0_wp, 0.0_wp,                 &
-                                               BTEST( wall_flags_static_0(k,j,i), 0 ) )
+                                        BTEST( wall_flags_total_0(k,j,i), 0 ) )
                 ELSE                               ! large-scale ascent
                    tmp_tend = - w_subs(k) *                                    &
                               ( var(k,j,i) - var(k-1,j,i) ) * ddzu(k) *        &
                                         MERGE( 1.0_wp, 0.0_wp,                 &
-                                               BTEST( wall_flags_static_0(k,j,i), 0 ) )
+                                        BTEST( wall_flags_total_0(k,j,i), 0 ) )
                 ENDIF
 
@@ -203 +207 @@
                                  * weight_substep(intermediate_timestep_count) &
                                  * MERGE( 1.0_wp, 0.0_wp,                      &
-                                          BTEST( wall_flags_static_0(k,j,i), 0 ) )
+                                   BTEST( wall_flags_total_0(k,j,i), 0 ) )
                 ENDIF
              ENDDO
@@ -269 +273 @@
 
        USE indices,                                                            &
-           ONLY:  nxl, nxlg, nxrg, nyng, nys, nysg, nzb, nzt, wall_flags_static_0
+           ONLY:  nxl, nxlg, nxrg, nyng, nys, nysg, nzb, nzt,                  &
+                  wall_flags_total_0
 
        USE kinds
@@ -300 +305 @@
                                     * ddzu(k+1)                                &
                                     * MERGE( 1.0_wp, 0.0_wp,                   &
-                                             BTEST( wall_flags_static_0(k,j,i), 0 ) )
+                                      BTEST( wall_flags_total_0(k,j,i), 0 ) )
           ELSE                                 ! large-scale ascent
              tmp_tend = - w_subs(k) * ( var(k,j,i) - var(k-1,j,i) ) * ddzu(k)  &
                                     * MERGE( 1.0_wp, 0.0_wp,                   &
-                                             BTEST( wall_flags_static_0(k,j,i), 0 ) )
+                                      BTEST( wall_flags_total_0(k,j,i), 0 ) )
           ENDIF
 
@@ -313 +318 @@
                                   * weight_substep(intermediate_timestep_count)&
                                   * MERGE( 1.0_wp, 0.0_wp,                     &
-                                           BTEST( wall_flags_static_0(k,j,i), 0 ) )
+                                    BTEST( wall_flags_total_0(k,j,i), 0 ) )
           ENDIF
        ENDDO