Changeset 1324 for trunk/LMDZ.GENERIC
- Timestamp:
- Aug 8, 2014, 8:58:31 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.GENERIC/libf/phystd/stokes.F90
r1315 r1324 50 50 51 51 52 a = 0.707* R/(4*pi*molrad**2 * avocado)52 a = 0.707*8.31/(4*pi*molrad**2 * avocado) 53 53 b = (2./9.) * rho_aer * g / visc 54 54 !print*,'molrad=',molrad
Note: See TracChangeset
for help on using the changeset viewer.