168 |
ENDDO |
ENDDO |
169 |
#endif /* ALLOW_USE_MPI */ |
#endif /* ALLOW_USE_MPI */ |
170 |
|
|
171 |
|
C Set filling value for face-corner halo regions |
172 |
|
e2FillValue_RL = 0. _d 0 |
173 |
|
e2FillValue_RS = 0. _d 0 |
174 |
|
e2FillValue_R4 = 0.e0 |
175 |
|
e2FillValue_R8 = 0.d0 |
176 |
|
C- for testing only: put a large value (should not affects the results) |
177 |
|
c e2FillValue_RL = 1. _d+20 |
178 |
|
c e2FillValue_RS = 1. _d+20 |
179 |
|
c e2FillValue_R4 = 1.e+20 |
180 |
|
c e2FillValue_R8 = 1.d+20 |
181 |
|
|
182 |
C Print out the topology communication schedule |
C Print out the topology communication schedule |
183 |
CALL W2_PRINT_COMM_SEQUENCE |
CALL W2_PRINT_COMM_SEQUENCE |
184 |
C |
C |