Initialization problem

[m.hadfield]

The changes made in response to ticket #195 (OpenMP undeclared variables) appear to have broken the initialisation process in serial mode.

Specifically, if I run BENCHMARK in serial mode with bounds-checking enabled, Lm=512, Mm=64 (the smallest benchmark domain), NTileI=1, NtileJ=4, I hit a bounds-checking error in LMD_SWFRAC_TILE, where some elements of MIXING(ng)%Jwtype are equal to zero and are used as indices into an array dimensioned 1:5. Going back to the place where these should be set, namely INITIALIZE_MIXING in mod_mixing.F, it appears that this is called only once, and sets only the values in the southernmost tile.

The BENCHMARK application now runs OK in OpenMP mode.