Ignore:
Timestamp:
Jul 11, 2018 6:30:57 PM (3 years ago)
Author:
gronemeier
Message:

implementation of dynamic sgs model

File:
1 edited

Legend:

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

    r3084 r3120  
    2525! -----------------
    2626! $Id$
     27! Put ABS( km ) in computation of time step according to the diffusion criterion
     28!
     29! 3084 2018-06-19 15:30:55Z gronemeier
    2730! limit increase of dt_3d only in case of RANS mode
    2831!
     
    302305!
    303306!--    Compute time step according to the diffusion criterion.
    304 !--    First calculate minimum grid spacing which only depends on index k
     307!--    First calculate minimum grid spacing which only depends on index k.
     308!--    When using the dynamic subgrid model, negative km are possible.
    305309       dt_diff_l = 999999.0_wp
    306310
     
    315319             DO  k = nzb+1, nzt
    316320                dt_diff_l = MIN( dt_diff_l, dxyz2_min(k) /                     &
    317                                     ( MAX( kh(k,j,i), km(k,j,i) ) + 1E-20_wp ) )
     321                                    ( MAX( kh(k,j,i), ABS( km(k,j,i) ) )       &
     322                                      + 1E-20_wp ) )
    318323             ENDDO
    319324          ENDDO
Note: See TracChangeset for help on using the changeset viewer.