Ignore:
Timestamp:
Mar 17, 2017 11:07:39 AM (5 years ago)
Author:
hellstea
Message:

Nesting bugfixes

File:
1 edited

Legend:

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

    r2170 r2178  
    36033603          dist_nxl    = MAX( inflow_disturbance_begin, nxl )
    36043604          dist_nxr(1) = MIN( inflow_disturbance_end, nxr )
     3605       ELSEIF ( bc_lr == 'nested' )  THEN
     3606          dist_nxl = MAX( inflow_disturbance_begin, nxl )
    36053607       ENDIF
    36063608       IF ( bc_ns == 'dirichlet/radiation' )  THEN
     
    36103612          dist_nys    = MAX( inflow_disturbance_begin, nys )
    36113613          dist_nyn(1) = MIN( inflow_disturbance_end, nyn )
     3614       ELSEIF ( bc_ns == 'nested' )  THEN
     3615          dist_nys = MAX( inflow_disturbance_begin, nys )
    36123616       ENDIF
    36133617    ELSE
Note: See TracChangeset for help on using the changeset viewer.