Changeset 509 for palm/trunk/SOURCE


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

last commit documented

File:
1 edited

Legend:

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

    r484 r509  
    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
    114119                   l_stable = 0.76 * sqrt_e(k) / &
    115120                                     SQRT( g / var(k,j,i) * dvar_dz ) + 1E-5
Note: See TracChangeset for help on using the changeset viewer.