Changeset 2895 for palm/trunk


Ignore:
Timestamp:
Mar 15, 2018 10:26:12 AM (4 years ago)
Author:
hellstea
Message:

Change in the nest initialization (pmci_interp_tril_all). Bottom wall BC is no longer overwritten

File:
1 edited

Legend:

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

    r2868 r2895  
    2525! -----------------
    2626! $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
    2731! Local conditional Neumann conditions for one-way coupling removed. 
    2832!
     
    35693573       INTEGER(iwp) ::  k_wall   !<
    35703574       INTEGER(iwp) ::  k1       !<
     3575       INTEGER(iwp) ::  kb       !<
    35713576       INTEGER(iwp) ::  kbc      !<
    35723577       INTEGER(iwp) ::  l        !<
     
    36273632       DO  i = ib, ie
    36283633          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
    36303640                l = ic(i)
    36313641                m = jc(j)
Note: See TracChangeset for help on using the changeset viewer.