Changeset 509 for palm/trunk/SOURCE

Timestamp:

Mar 12, 2010 12:31:47 AM (15 years ago)

Author:

raasch

Message:

last commit documented

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