Opened 12 years ago

Closed 12 years ago

#224 closed bug (Fixed)

READ/WRITE_WATER problems

Reported by: mathieu Owned by: arango
Priority: major Milestone: Release ROMS/TOMS 3.2
Component: Nonlinear Version: 3.2
Keywords: Cc:

Description

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

Change History (1)

comment:1 Changed 12 years ago by arango

  • Resolution set to Fixed
  • Status changed from new to closed

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
Note: See TracTickets for help on using tickets.