| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | public, | parameter | :: | pwtype | = | 7 | |
| integer, | public, | parameter | :: | iwtundef | = | 0 | |
| integer, | public, | parameter | :: | iwtvap | = | 1 | |
| integer, | public, | parameter | :: | iwtliq | = | 2 | |
| integer, | public, | parameter | :: | iwtice | = | 3 | |
| integer, | public, | parameter | :: | iwtstrain | = | 4 | |
| integer, | public, | parameter | :: | iwtstsnow | = | 5 | |
| integer, | public, | parameter | :: | iwtcvrain | = | 6 | |
| integer, | public, | parameter | :: | iwtcvsnow | = | 7 | |
| character(len=8), | public, | parameter, dimension(pwtype) | :: | wtype_names | = | (/'VAPOR ', 'LIQUID ', 'ICE ', 'RAINS ', 'SNOWS ', 'RAINC ', 'SNOWC '/) | |
| character(len=2), | public, | parameter, dimension(pwtype) | :: | wtype_suffix | = | (/'_v', '_l', '_i', '_R', '_S', '_r', '_s'/) |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | name |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | ispec | |||
| integer, | intent(in) | :: | isrctype | |||
| integer, | intent(in) | :: | idsttype | |||
| real(kind=r8), | intent(in) | :: | tk | |||
| real(kind=r8), | intent(in) | :: | rh | |||
| logical, | intent(in) | :: | do_kinetic |