Changeset 509
- Timestamp:
- Mar 12, 2010 12:31:47 AM (15 years ago)
- Location:
- palm/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/DOC/tec/technical_documentation.html
r506 r509 1 1 <!DOCTYPE html PUBLIC "-//w3c//dtd html 4.0 transitional//en"> 2 2 <html><head> 3 3 4 4 5 … … 83 84 84 85 <tr> 86 <td style="vertical-align: top;">12/03/09<br> 87 </td> 88 <td style="vertical-align: top;">SR<br> 89 </td> 90 <td style="vertical-align: top;">509<br> 91 </td> 92 <td style="vertical-align: top;">3.7a<br> 93 </td> 94 <td style="vertical-align: top;">E<br> 95 </td> 96 <td style="vertical-align: top;">bugfix for rev 504: remode_md was given a wrong value<br> 97 </td> 98 <td style="vertical-align: top;">mbuild<br> 99 </td> 100 </tr> 101 <tr> 85 102 <td style="vertical-align: top;">08/03/10<br> 86 103 </td> -
palm/trunk/SOURCE/diffusivities.f90
r484 r509 112 112 SQRT( g / var_reference * dvar_dz ) + 1E-5 113 113 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 114 119 l_stable = 0.76 * sqrt_e(k) / & 115 120 SQRT( g / var(k,j,i) * dvar_dz ) + 1E-5
Note: See TracChangeset
for help on using the changeset viewer.