Ignore:
Timestamp:
Mar 20, 2007 8:33:14 AM (15 years ago)
Author:
raasch
Message:

preliminary changes for radiation conditions

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/pres.f90

    r4 r73  
    396396!--       of non-cyclic boundary conditions). The respective mean velocity
    397397!--       is calculated from this in routine boundary_conds.
    398           IF ( outflow_l  .AND.  i == nxl )  THEN
    399              !$OMP CRITICAL
    400              DO  k = nzb, nzt+1
    401                 uvmean_outflow_l(k) = uvmean_outflow_l(k) + v(k,j,nxl)
    402              ENDDO
    403              !$OMP END CRITICAL
    404           ELSEIF ( outflow_r  .AND.  i == nxr )  THEN
    405              !$OMP CRITICAL
    406              DO  k = nzb, nzt+1
    407                 uvmean_outflow_l(k) = uvmean_outflow_l(k) + v(k,j,nxr)
    408              ENDDO
    409              !$OMP END CRITICAL
    410           ELSEIF ( outflow_s  .AND.  j == nys )  THEN
    411              !$OMP CRITICAL
    412              DO  k = nzb, nzt+1
    413                 uvmean_outflow_l(k) = uvmean_outflow_l(k) + u(k,nys,i)
    414              ENDDO
    415              !$OMP END CRITICAL
    416           ELSEIF ( outflow_n  .AND.  j == nyn )  THEN
    417              !$OMP CRITICAL
    418              DO  k = nzb, nzt+1
    419                 uvmean_outflow_l(k) = uvmean_outflow_l(k) + u(k,nyn,i)
    420              ENDDO
    421              !$OMP END CRITICAL
    422           ENDIF
     398!          IF ( outflow_l  .AND.  i == nxl )  THEN
     399!             !$OMP CRITICAL
     400!             DO  k = nzb, nzt+1
     401!                uvmean_outflow_l(k) = uvmean_outflow_l(k) + v(k,j,nxl)
     402!             ENDDO
     403!             !$OMP END CRITICAL
     404!          ELSEIF ( outflow_r  .AND.  i == nxr )  THEN
     405!             !$OMP CRITICAL
     406!             DO  k = nzb, nzt+1
     407!                uvmean_outflow_l(k) = uvmean_outflow_l(k) + v(k,j,nxr)
     408!             ENDDO
     409!             !$OMP END CRITICAL
     410!          ELSEIF ( outflow_s  .AND.  j == nys )  THEN
     411!             !$OMP CRITICAL
     412!             DO  k = nzb, nzt+1
     413!                uvmean_outflow_l(k) = uvmean_outflow_l(k) + u(k,nys,i)
     414!             ENDDO
     415!             !$OMP END CRITICAL
     416!          ELSEIF ( outflow_n  .AND.  j == nyn )  THEN
     417!             !$OMP CRITICAL
     418!             DO  k = nzb, nzt+1
     419!                uvmean_outflow_l(k) = uvmean_outflow_l(k) + u(k,nyn,i)
     420!             ENDDO
     421!             !$OMP END CRITICAL
     422!          ENDIF
    423423
    424424!
Note: See TracChangeset for help on using the changeset viewer.