Changeset 333 for palm


Ignore:
Timestamp:
Jun 9, 2009 8:22:04 AM (16 years ago)
Author:
heinze
Message:

bugfix in init_3_model concerning ngp_2dh_s_inner

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/CURRENT_MODIFICATIONS

    r329 r333  
    9393Errors:
    9494------
     95Bugfix: avoid that ngp_2dh_s_inner becomes zero (init_3_model)
    9596
    9697Typographical error: unit of wpt in dots_unit (modules)
  • palm/trunk/SOURCE/init_3d_model.f90

    r328 r333  
    77! Current revisions:
    88! -----------------
     9! bugfix: avoid that ngp_2dh_s_inner becomes zero
    910! initializing_actions='read_data_for_recycling' renamed to 'cyclic_fill', now
    1011! independent of turbulent_inflow
     
    14731474!-- buoyancy, etc. A zero value will occur for cases where all grid points of
    14741475!-- 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(:,:) )
    14771479
    14781480    DEALLOCATE( ngp_2dh_l, ngp_2dh_outer_l, ngp_3d_inner_l )
Note: See TracChangeset for help on using the changeset viewer.