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 |