|
Last change
on this file since 3000 was
1542,
checked in by emillour, 9 years ago
|
|
Generic GCM:
- fix for 1D in writediagfi to enable writing at
"ecritphy" rate.
- move iniprint.h to "misc"
- Some code cleanup in anticipation of future updates:
- changed variable names in comgeomphy.F90: give them more
explicit names: rlond => longitude ,
rlatd => latitude, airephy => cell_area,
cuphy => dx , cvphy => dy
- removed long(), lati() and area() from comgeomfi_h.F90,
use longitude(), latitude() and cell_are() from
comgeomphy.F90 instead
EM
|
|
File size:
276 bytes
|
| Line | |
|---|
| 1 | |
|---|
| 2 | module comgeomfi_h |
|---|
| 3 | |
|---|
| 4 | implicit none |
|---|
| 5 | |
|---|
| 6 | REAL,SAVE :: totarea ! total surface (m2) for this local (MPI/OpenMP) domain |
|---|
| 7 | REAL,SAVE :: totarea_planet ! total planetary surface (m2) |
|---|
| 8 | !$OMP THREADPRIVATE(totarea,totarea_planet) |
|---|
| 9 | |
|---|
| 10 | end module comgeomfi_h |
|---|
| 11 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
