|
Last change
on this file since 1541 was
1541,
checked in by emillour, 9 years ago
|
|
Mars GCM:
- fix for 1D in writediagfi to enable writing at
"ecritphy" rate.
- removed iniprint.h from phymars/dyn1d since it is in "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:
634 bytes
|
| Rev | Line | |
|---|
| [1130] | 1 | module comgeomphy |
|---|
| [1541] | 2 | real,save,allocatable :: cell_area(:) ! airephy(:) |
|---|
| 3 | real,save,allocatable :: dx(:) !cuphy(:) |
|---|
| 4 | real,save,allocatable :: dy(:) !cvphy(:) |
|---|
| 5 | real,save,allocatable :: latitude(:) !rlatd(:) |
|---|
| 6 | real,save,allocatable :: longitude(:) !rlond(:) |
|---|
| 7 | !$OMP THREADPRIVATE(cell_area,dx,dy,latitude,longitude) |
|---|
| [1130] | 8 | contains |
|---|
| 9 | |
|---|
| 10 | subroutine initcomgeomphy |
|---|
| 11 | USE mod_phys_lmdz_para, only: klon_omp |
|---|
| 12 | implicit none |
|---|
| 13 | |
|---|
| 14 | |
|---|
| [1541] | 15 | allocate(cell_area(klon_omp)) |
|---|
| 16 | allocate(dx(klon_omp)) |
|---|
| 17 | allocate(dy(klon_omp)) |
|---|
| 18 | allocate(latitude(klon_omp)) |
|---|
| 19 | allocate(longitude(klon_omp)) |
|---|
| [1130] | 20 | |
|---|
| 21 | end subroutine initcomgeomphy |
|---|
| 22 | |
|---|
| 23 | end module comgeomphy |
|---|
Note: See
TracBrowser
for help on using the repository browser.
