Changeset 510

Timestamp:

Mar 12, 2010 12:37:31 AM (14 years ago)

Author:

raasch

Message:

test version of diffusivities.f90 from last revision removed

File:

• palm/trunk/SOURCE/diffusivities.f90 (modified) (1 diff)

palm/trunk/SOURCE/diffusivities.f90

@@ -112 +112 @@
                                      SQRT( g / var_reference * dvar_dz ) + 1E-5
                 ELSE
-                   IF ( var(k,j,i) <= 0.0 )  THEN
-                      WRITE (9,*) 'i=', i, ' j=', j, ' k=', k, ' var=', &
-                                  var(k,j,i)
-                      CALL local_flush( 9 )
-                   ENDIF
                    l_stable = 0.76 * sqrt_e(k) / &
                                      SQRT( g / var(k,j,i) * dvar_dz ) + 1E-5