NUDGING_SST bugs

[mathieu]

In the file ROMS/Nonlinear/set_data.F line 1022, please replace

Code: Select all

cff1=Zr*cff+pcoef_SST(order,ng)

by

Code: Select all

cff1=Zr*cff1+pcoef_SST(order,ng)

In the file ROMS/Modules/mod_scalar.F please eliminate the variables

Code: Select all

assi, pert, Prms

they are not used anywhere in the code and they are wrongly allocated on
line 1635-1637.
What happens is that with ifort 10.1 after the loop on ng in line 1551-1584
with Ngrids=1 the variable ng takes the value 2 after the loop and this
causes an error detected by "-check bounds". When running with no checks
the result of ROMS are not correct.

[kate]

These are both perfect examples of the sort of thing that should be submitted to the ROMS bug reporting system.