|
Last change
on this file since 3807 was
3740,
checked in by emillour, 7 weeks ago
|
|
Mars PCM:
Code tidying; removed unused mufract.F (mucorr.F does the job); turned
ambiguously named sig.F to sig_h2o.F90 and make it a module.
EM
|
|
File size:
472 bytes
|
| Line | |
|---|
| 1 | module sig_h2o_mod |
|---|
| 2 | |
|---|
| 3 | implicit none |
|---|
| 4 | |
|---|
| 5 | contains |
|---|
| 6 | |
|---|
| 7 | !******************************************************** |
|---|
| 8 | double precision function sig_h2o(t) |
|---|
| 9 | implicit none |
|---|
| 10 | ! this function computes the surface tension (N.m) * |
|---|
| 11 | ! between water ice and air as a function of temp. * |
|---|
| 12 | !******************************************************** |
|---|
| 13 | |
|---|
| 14 | real,intent(in) :: t |
|---|
| 15 | |
|---|
| 16 | sig_h2o = (141. - 0.15 * dble(t)) * 1.e-3 |
|---|
| 17 | |
|---|
| 18 | end function sig_h2o |
|---|
| 19 | |
|---|
| 20 | end module sig_h2o_mod |
|---|
| 21 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
