|
Last change
on this file since 17 was
17,
checked in by ymipsl, 15 years ago
|
|
Correction de bugs pour portage sur Mercure
|
|
File size:
350 bytes
|
| Line | |
|---|
| 1 | |
|---|
| 2 | TYPE Pt_grid_group__ |
|---|
| 3 | TYPE (grid_group),POINTER :: Pt |
|---|
| 4 | LOGICAL :: owned |
|---|
| 5 | END TYPE Pt_grid_group__ |
|---|
| 6 | |
|---|
| 7 | TYPE vector_grid_group |
|---|
| 8 | |
|---|
| 9 | TYPE (Pt_grid_group__), POINTER, DIMENSION(:) :: at => NULL() |
|---|
| 10 | INTEGER :: size |
|---|
| 11 | |
|---|
| 12 | INTEGER :: size_max |
|---|
| 13 | REAL :: grow_factor |
|---|
| 14 | INTEGER :: chunk |
|---|
| 15 | |
|---|
| 16 | END TYPE vector_grid_group |
|---|
| 17 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
