Ignore:
Timestamp:
Mar 12, 2010 12:37:31 AM (12 years ago)
Author:
raasch
Message:

test version of diffusivities.f90 from last revision removed

File:
1 edited

Legend:

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

    r509 r510  
    112112                                     SQRT( g / var_reference * dvar_dz ) + 1E-5
    113113                ELSE
    114                    IF ( var(k,j,i) <= 0.0 )  THEN
    115                       WRITE (9,*) 'i=', i, ' j=', j, ' k=', k, ' var=', &
    116                                   var(k,j,i)
    117                       CALL local_flush( 9 )
    118                    ENDIF
    119114                   l_stable = 0.76 * sqrt_e(k) / &
    120115                                     SQRT( g / var(k,j,i) * dvar_dz ) + 1E-5
Note: See TracChangeset for help on using the changeset viewer.