| 16 |
|
#define __FORTRAN90 |
| 17 |
|
#include "fSimulation.h" |
| 18 |
|
|
| 19 |
< |
type (simtype), public :: thisSim |
| 19 |
> |
type (simtype), public, save :: thisSim |
| 20 |
|
|
| 21 |
|
logical, save :: simulation_setup_complete = .false. |
| 22 |
|
|
| 142 |
|
deallocate(c_idents_Row) |
| 143 |
|
endif |
| 144 |
|
|
| 145 |
< |
#else |
| 145 |
> |
#endif |
| 146 |
> |
|
| 147 |
> |
! We build the local atid's for both mpi and nonmpi |
| 148 |
|
do i = 1, nLocal |
| 149 |
|
|
| 150 |
|
me = getFirstMatchingElement(atypes, "c_ident", c_idents(i)) |
| 151 |
|
atid(i) = me |
| 152 |
|
|
| 153 |
|
enddo |
| 152 |
– |
#endif |
| 154 |
|
|
| 155 |
|
|
| 156 |
|
|
| 157 |
+ |
|
| 158 |
|
do i = 1, nExcludes_Local |
| 159 |
|
excludesLocal(1,i) = CexcludesLocal(1,i) |
| 160 |
|
excludesLocal(2,i) = CexcludesLocal(2,i) |
