|
Last change
on this file since 3436 was
3175,
checked in by emillour, 11 months ago
|
|
Pluto PCM:
Add the old Pluto LMDZ for reference (required prior step to making
an LMDZ.PLUTO using the same framework as the other physics packages).
TB+EM
|
|
File size:
328 bytes
|
| Line | |
|---|
| 1 | module comgeomfi_h |
|---|
| 2 | |
|---|
| 3 | implicit none |
|---|
| 4 | PRIVATE |
|---|
| 5 | #include "dimensions.h" |
|---|
| 6 | #include "dimphys.h" |
|---|
| 7 | |
|---|
| 8 | REAL*8 long(ngridmx),lati(ngridmx) |
|---|
| 9 | REAL*8 area(ngridmx) |
|---|
| 10 | REAL*8 totarea |
|---|
| 11 | REAL*8 realarea(ngridmx) |
|---|
| 12 | PUBLIC long,lati,area |
|---|
| 13 | PUBLIC totarea |
|---|
| 14 | PUBLIC realarea |
|---|
| 15 | |
|---|
| 16 | |
|---|
| 17 | end module comgeomfi_h |
|---|
Note: See
TracBrowser
for help on using the repository browser.
