Changeset 2365 for palm/trunk/SOURCE/diffusivities.f90

Timestamp:

Aug 21, 2017 2:59:59 PM (7 years ago)

Author:

kanani

Message:

Vertical nesting implemented (SadiqHuq?)

File:

• palm/trunk/SOURCE/diffusivities.f90 (modified) (3 diffs)

palm/trunk/SOURCE/diffusivities.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Vertical grid nesting implemented (SadiqHuq)
+! 
+! 2233 2017-05-30 18:08:54Z suehring
 !
 ! 2232 2017-05-30 17:47:52Z suehring
@@ -108 +111 @@
         ONLY :  bc_h
 
+    USE vertical_nesting_mod,                                                  &
+        ONLY:  vnest_boundary_conds_khkm, vnest_init
+
     IMPLICIT NONE
 
@@ -266 +272 @@
        kh(:,nyn+1,:) = kh(:,nyn,:)
     ENDIF
+!
+!-- Vertical nesting: set fine grid eddy viscosity top boundary condition
+    IF ( vnest_init )  CALL vnest_boundary_conds_khkm
 
  END SUBROUTINE diffusivities