10 |
! Constants used for computation of saturation mixing ratio over |
! Constants used for computation of saturation mixing ratio over |
11 |
! liquid water (r.les) or ice (r.ies): |
! liquid water (r.les) or ice (r.ies): |
12 |
real, parameter:: R3LES = 17.269, R3IES = 21.875, R4LES = 35.86, R4IES = 7.66 |
real, parameter:: R3LES = 17.269, R3IES = 21.875, R4LES = 35.86, R4IES = 7.66 |
13 |
real, parameter:: R5LES=R3LES*(RTT-R4LES) |
real, parameter:: R5LES = R3LES * (RTT - R4LES) |
14 |
real, parameter:: R5IES=R3IES*(RTT-R4IES) |
real, parameter:: R5IES = R3IES * (RTT - R4IES) |
15 |
|
|
16 |
real, parameter:: RVTMP2=RCPV/RCPD-1. |
real, parameter:: RVTMP2 = RCPV / RCPD - 1. |
17 |
real, parameter:: RHOH2O=RATM/100. ! density of liquid water |
real, parameter:: RHOH2O = RATM / 100. ! density of liquid water |
18 |
real, parameter:: R2ES = RESTT * RD / RV |
real, parameter:: R2ES = RESTT * RD / RV |
19 |
|
|
20 |
private ratm, rcpd, rcpv, rd, restt, rtt, rv |
private ratm, rcpd, rcpv, rd, restt, rtt, rv |