Changeset 333 for palm/trunk/SOURCE/init_3d_model.f90
- Timestamp:
- Jun 9, 2009 8:22:04 AM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_3d_model.f90
r328 r333 7 7 ! Current revisions: 8 8 ! ----------------- 9 ! bugfix: avoid that ngp_2dh_s_inner becomes zero 9 10 ! initializing_actions='read_data_for_recycling' renamed to 'cyclic_fill', now 10 11 ! independent of turbulent_inflow … … 1473 1474 !-- buoyancy, etc. A zero value will occur for cases where all grid points of 1474 1475 !-- the respective subdomain lie below the surface topography 1475 ngp_2dh_outer = MAX( 1, ngp_2dh_outer(:,:) ) 1476 ngp_3d_inner = MAX( 1, ngp_3d_inner(:) ) 1476 ngp_2dh_outer = MAX( 1, ngp_2dh_outer(:,:) ) 1477 ngp_3d_inner = MAX( 1, ngp_3d_inner(:) ) 1478 ngp_2dh_s_inner = MAX( 1, ngp_2dh_s_inner(:,:) ) 1477 1479 1478 1480 DEALLOCATE( ngp_2dh_l, ngp_2dh_outer_l, ngp_3d_inner_l )
Note: See TracChangeset
for help on using the changeset viewer.