Parent Directory
| 
Revision Log
Inlined procedure "pression". Split "guide.f90" into "guide.f90" and "tau2alpha.f90". Split "read_reanalyse.f" into single-procedure files in directory "Read_reanalyse". Useless copy of variables in "iniphysiq". Directly define module variables in "gcm" and remove procedure "iniphysiq". Added "pressure-altitude" in "test_disvert".
| 1 | guez | 3 | module yoethf |
| 2 | |||
| 3 | guez | 37 | ! From phylmd/yoethf.inc,v 1.1.1.1 2004/05/19 12:53:09 |
| 4 | ! DERIVED CONSTANTS SPECIFIC TO ECMWF THERMODYNAMICS | ||
| 5 | guez | 3 | |
| 6 | implicit none | ||
| 7 | |||
| 8 | REAL R2ES, R3LES, R3IES, R4LES, R4IES, R5LES, R5IES | ||
| 9 | guez | 37 | ! CONSTANTS USED FOR COMPUTATION OF SATURATION MIXING RATIO OVER |
| 10 | ! LIQUID WATER (R_LES) OR ICE (R_IES) | ||
| 11 | guez | 3 | |
| 12 | guez | 37 | REAL RVTMP2 ! RCPV / RCPD - 1. |
| 13 | real RHOH2O ! DENSITY OF LIQUID WATER (RATM / 100.) | ||
| 14 | guez | 3 | |
| 15 | save | ||
| 16 | |||
| 17 | end module yoethf |
| ViewVC Help | |
| Powered by ViewVC 1.1.21 |