Changeset 73 for palm/trunk/SOURCE/pres.f90

Timestamp:

Mar 20, 2007 8:33:14 AM (17 years ago)

Author:

raasch

Message:

preliminary changes for radiation conditions

File:

• palm/trunk/SOURCE/pres.f90 (modified) (1 diff)

palm/trunk/SOURCE/pres.f90

@@ -396 +396 @@
 !--       of non-cyclic boundary conditions). The respective mean velocity
 !--       is calculated from this in routine boundary_conds.
-          IF ( outflow_l  .AND.  i == nxl )  THEN
-             !$OMP CRITICAL
-             DO  k = nzb, nzt+1
-                uvmean_outflow_l(k) = uvmean_outflow_l(k) + v(k,j,nxl)
-             ENDDO
-             !$OMP END CRITICAL
-          ELSEIF ( outflow_r  .AND.  i == nxr )  THEN
-             !$OMP CRITICAL
-             DO  k = nzb, nzt+1
-                uvmean_outflow_l(k) = uvmean_outflow_l(k) + v(k,j,nxr)
-             ENDDO
-             !$OMP END CRITICAL
-          ELSEIF ( outflow_s  .AND.  j == nys )  THEN
-             !$OMP CRITICAL
-             DO  k = nzb, nzt+1
-                uvmean_outflow_l(k) = uvmean_outflow_l(k) + u(k,nys,i)
-             ENDDO
-             !$OMP END CRITICAL
-          ELSEIF ( outflow_n  .AND.  j == nyn )  THEN
-             !$OMP CRITICAL
-             DO  k = nzb, nzt+1
-                uvmean_outflow_l(k) = uvmean_outflow_l(k) + u(k,nyn,i)
-             ENDDO
-             !$OMP END CRITICAL
-          ENDIF
+!          IF ( outflow_l  .AND.  i == nxl )  THEN
+!             !$OMP CRITICAL
+!             DO  k = nzb, nzt+1
+!                uvmean_outflow_l(k) = uvmean_outflow_l(k) + v(k,j,nxl)
+!             ENDDO
+!             !$OMP END CRITICAL
+!          ELSEIF ( outflow_r  .AND.  i == nxr )  THEN
+!             !$OMP CRITICAL
+!             DO  k = nzb, nzt+1
+!                uvmean_outflow_l(k) = uvmean_outflow_l(k) + v(k,j,nxr)
+!             ENDDO
+!             !$OMP END CRITICAL
+!          ELSEIF ( outflow_s  .AND.  j == nys )  THEN
+!             !$OMP CRITICAL
+!             DO  k = nzb, nzt+1
+!                uvmean_outflow_l(k) = uvmean_outflow_l(k) + u(k,nys,i)
+!             ENDDO
+!             !$OMP END CRITICAL
+!          ELSEIF ( outflow_n  .AND.  j == nyn )  THEN
+!             !$OMP CRITICAL
+!             DO  k = nzb, nzt+1
+!                uvmean_outflow_l(k) = uvmean_outflow_l(k) + u(k,nyn,i)
+!             ENDDO
+!             !$OMP END CRITICAL
+!          ENDIF
 
 !