|
Last change
on this file since 3983 was
3816,
checked in by millour, 10 years ago
|
|
Further cleanup and adaptations:
- setup iniphusiq to pass on information from dyn to phys.
- infis (now module inifi_mod) transfers the information and for now also storesthe information. Thus modules control_mod_phys, comconst_phy_mod, comgeom2_phy_mod and temps_phy_mod are now useless.
- removed q_sat_phy, and put q_sat in misc, since it is quite general.
- moved information on horizontal and vertical grid to module comgeomphy.F90
EM
|
|
File size:
491 bytes
|
| Line | |
|---|
| 1 | MODULE comvert_phy_mod |
|---|
| 2 | |
|---|
| 3 | ! REAL,ALLOCATABLE,SAVE :: ap(:) ! hybrid pressure contribution at interlayers |
|---|
| 4 | !!$OMP THREADPRIVATE(ap) |
|---|
| 5 | ! REAL,ALLOCATABLE,SAVE :: bp(:) ! hybrid sigma contribution at interlayer |
|---|
| 6 | !!$OMP THREADPRIVATE(bp) |
|---|
| 7 | ! REAL,ALLOCATABLE,SAVE :: presnivs(:) ! (reference) pressure at mid-layers |
|---|
| 8 | !!$OMP THREADPRIVATE(presnivs) |
|---|
| 9 | ! REAL,SAVE :: preff ! reference surface pressure (Pa) |
|---|
| 10 | !!$OMP THREADPRIVATE(preff) |
|---|
| 11 | |
|---|
| 12 | !!! => all moved to comgeomphy |
|---|
| 13 | |
|---|
| 14 | END MODULE comvert_phy_mod |
|---|
Note: See
TracBrowser
for help on using the repository browser.
