Changeset 2178 for palm/trunk/SOURCE/check_parameters.f90

Timestamp:

Mar 17, 2017 11:07:39 AM (7 years ago)

Author:

hellstea

Message:

Nesting bugfixes

File:

• palm/trunk/SOURCE/check_parameters.f90 (modified) (2 diffs)

palm/trunk/SOURCE/check_parameters.f90

@@ -3603 +3603 @@
           dist_nxl    = MAX( inflow_disturbance_begin, nxl )
           dist_nxr(1) = MIN( inflow_disturbance_end, nxr )
+       ELSEIF ( bc_lr == 'nested' )  THEN
+          dist_nxl = MAX( inflow_disturbance_begin, nxl )
        ENDIF
        IF ( bc_ns == 'dirichlet/radiation' )  THEN
@@ -3610 +3612 @@
           dist_nys    = MAX( inflow_disturbance_begin, nys )
           dist_nyn(1) = MIN( inflow_disturbance_end, nyn )
+       ELSEIF ( bc_ns == 'nested' )  THEN
+          dist_nys = MAX( inflow_disturbance_begin, nys )
        ENDIF
     ELSE