|
Last change
on this file since 1677 was
1677,
checked in by aclsce, 12 years ago
|
|
Imported oasis3 (tag ipslcm5a) from cvs server to svn server (igcmg project).
|
|
File size:
910 bytes
|
| Line | |
|---|
| 1 | MODULE mod_sipc |
|---|
| 2 | ! |
|---|
| 3 | ! -- sipc.h 97-08-11 Version 2.2 Author: S.Valcke,A.Piacentini |
|---|
| 4 | ! ****** |
|---|
| 5 | ! 18-03-02 Version 2.5 changed in module |
|---|
| 6 | !@ |
|---|
| 7 | !@ Contents : variables describing pools (set of shared memory segments) |
|---|
| 8 | !@ -------- |
|---|
| 9 | !@ |
|---|
| 10 | !@ -- mpoolinit(r/w) : handles associated to model pools for passing initial |
|---|
| 11 | !@ information(1 for reading and 1 for writing) |
|---|
| 12 | !@ |
|---|
| 13 | !@ -- mpoolidin : handles associated to pools used to pass field to oasis |
|---|
| 14 | !@ |
|---|
| 15 | !@ -- mpoolidou : handles associated to pools used to pass field from oasis |
|---|
| 16 | !@ |
|---|
| 17 | ! ------------------------------------------------------------------- |
|---|
| 18 | ! |
|---|
| 19 | USE mod_kinds_oasis |
|---|
| 20 | INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE :: mpoolidin, mpoolidou |
|---|
| 21 | INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE :: mpoolinitr, mpoolinitw |
|---|
| 22 | ! |
|---|
| 23 | ! ------------------------------------------------------------------- |
|---|
| 24 | END MODULE mod_sipc |
|---|
Note: See
TracBrowser
for help on using the repository browser.
