- Timestamp:
- Mar 15, 2018 10:26:12 AM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/pmc_interface_mod.f90
r2868 r2895 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Change in the nest initialization (pmci_interp_tril_all). Bottom wall BC is no 28 ! longer overwritten. 29 ! 30 ! 2868 2018-03-09 13:25:09Z hellstea 27 31 ! Local conditional Neumann conditions for one-way coupling removed. 28 32 ! … … 3569 3573 INTEGER(iwp) :: k_wall !< 3570 3574 INTEGER(iwp) :: k1 !< 3575 INTEGER(iwp) :: kb !< 3571 3576 INTEGER(iwp) :: kbc !< 3572 3577 INTEGER(iwp) :: l !< … … 3627 3632 DO i = ib, ie 3628 3633 DO j = jb, je 3629 DO k = nzb, nzt + 1 3634 ! 3635 !-- Determine the vertical index of the first node above the 3636 !-- topography top at grid point (j,i) in order to not overwrite 3637 !-- the bottom BC. 3638 kb = get_topography_top_index_ji( j, i, TRIM ( var ) ) + 1 3639 DO k = kb, nzt + 1 3630 3640 l = ic(i) 3631 3641 m = jc(j)
Note: See TracChangeset
for help on using the changeset viewer.