Changeset 4346 for palm/trunk/SOURCE/wind_turbine_model_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/wind_turbine_model_mod.f90 (modified) (9 diffs)

palm/trunk/SOURCE/wind_turbine_model_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Introduction of wall_flags_total_0, which currently sets bits based on static
+! topography information used in wall_flags_static_0
+! 
+! 4343 2019-12-17 12:26:12Z oliver.maas
 ! replaced <= by < in line 1464 to ensure that ialpha will not be 
 ! greater than dlen
@@ -118 +122 @@
     USE indices,                                                               &
         ONLY:  nbgp, nx, nxl, nxlg, nxr, nxrg, ny, nyn, nyng, nys, nysg, nz,   &
-               nzb, nzt, wall_flags_static_0
+               nzb, nzt, wall_flags_total_0
 
     USE kinds
@@ -2228 +2232 @@
 !
 !--                         Predetermine flag to mask topography
-                            flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 1 ) )
+                            flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_total_0(k,j,i), 1 ) )
       
 !
@@ -2702 +2706 @@
                                   - tend_nac_x - tend_tow_x )                  &
                                       * MERGE( 1.0_wp, 0.0_wp,                 &
-                                               BTEST( wall_flags_static_0(k,j,i), 1 ) )
+                                        BTEST( wall_flags_total_0(k,j,i), 1 ) )
                    ENDDO
                 ENDDO
@@ -2722 +2726 @@
                                   - tend_nac_y - tend_tow_y )                  &
                                       * MERGE( 1.0_wp, 0.0_wp,                 &
-                                               BTEST( wall_flags_static_0(k,j,i), 2 ) )
+                                        BTEST( wall_flags_total_0(k,j,i), 2 ) )
                    ENDDO
                 ENDDO
@@ -2737 +2741 @@
                       tend(k,j,i) = tend(k,j,i) - rot_tend_z(k,j,i)            &
                                       * MERGE( 1.0_wp, 0.0_wp,                 &
-                                               BTEST( wall_flags_static_0(k,j,i), 3 ) )
+                                        BTEST( wall_flags_total_0(k,j,i), 3 ) )
                    ENDDO
                 ENDDO
@@ -2788 +2792 @@
                             - tend_nac_x - tend_tow_x )                        &
                                       * MERGE( 1.0_wp, 0.0_wp,                 &
-                                            BTEST( wall_flags_static_0(k,j,i), 1 ) )
+                                        BTEST( wall_flags_total_0(k,j,i), 1 ) )
              ENDDO
           ENDIF
@@ -2804 +2808 @@
                             - tend_nac_y - tend_tow_y )                        &
                                       * MERGE( 1.0_wp, 0.0_wp,                 &
-                                               BTEST( wall_flags_static_0(k,j,i), 2 ) )
+                                        BTEST( wall_flags_total_0(k,j,i), 2 ) )
                 ENDDO
           ENDIF
@@ -2815 +2819 @@
                 tend(k,j,i) = tend(k,j,i) - rot_tend_z(k,j,i)                  &
                                       * MERGE( 1.0_wp, 0.0_wp,                 &
-                                               BTEST( wall_flags_static_0(k,j,i), 3 ) )
+                                        BTEST( wall_flags_total_0(k,j,i), 3 ) )
              ENDDO
           ENDIF