|
Last change
on this file since 643 was
471,
checked in by aslmd, 14 years ago
|
|
LMDZ.GENERIC
13/12/2011 == AS
- Same spirit as previous commit, but for ngasmx which is now read in
gases.def -- before arrays w/ dim ngasmx are allocated dynamically
- Allocation is done in su_gases.F90 which is called in inifis
- Outside su_gases.F90, very few modifications to the code : the new module
"gases_h.F90" simply replaces the old common "gases.h" !
- Compiles fine. Tested with debugging options through pgdbg. Runs fine. Exact
same results in Early Mars test case.
|
|
File size:
517 bytes
|
| Line | |
|---|
| 1 | module gases_h |
|---|
| 2 | |
|---|
| 3 | implicit none |
|---|
| 4 | |
|---|
| 5 | !======================================================================C |
|---|
| 6 | ! |
|---|
| 7 | ! GASES_H |
|---|
| 8 | ! |
|---|
| 9 | ! THIS A F90-ALLOCATABLE VERSION FOR gases.h -- AS 12/2011 |
|---|
| 10 | ! |
|---|
| 11 | !======================================================================C |
|---|
| 12 | |
|---|
| 13 | !!! THOSE ARE SET AND ALLOCATED IN su_gases.F90 |
|---|
| 14 | integer :: ngasmx |
|---|
| 15 | integer :: vgas |
|---|
| 16 | character*3,allocatable,DIMENSION(:) :: gnom ! name of the gas |
|---|
| 17 | real,allocatable,DIMENSION(:) :: gfrac |
|---|
| 18 | |
|---|
| 19 | end module gases_h |
|---|
Note: See
TracBrowser
for help on using the repository browser.
