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) |