READ/WRITE_WATER problems

[mathieu]

In mod_scaras.F line 1570, replace

        SCALARS(ng) % IJwater((1:Lm(ng)+2)*(Mm(ng)+2),1:4) = 0

by

        SCALARS(ng) % IJwater(1:(Lm(ng)+2)*(Mm(ng)+2),1:4) = 0

The syntax of mp_scatter is modified by the READ_WATER option. Two calls to it in white_noise.F at lines 204 and 307 need to be corrected.

In wpoints,F on line 164, replace

# if defined READ_WATER || defined PROPAGATOR

by

# if defined READ_WATER || defined WRITE_WATER || defined PROPAGATOR

otherwise the mask is not defined.

In mod_param.F on line 159 replace

#if defined WRITE_WATER && defined MASKING

by

#if (defined WRITE_WATER || defined READ_WATER) && defined MASKING

[arango]

Yes, thank you. The local mask array in wpoints.F is only needed when either READ_WATER or PROPAGATOR are activated. So the problem was not at line 164 but at line 416, we needed:

# if (defined READ_WATER || defined PROPAGATOR) && defined MASKING