id	summary	reporter	owner	description	type	status	priority	milestone	component	version	resolution	keywords	cc
258	Error in GO amplitude calculation	Ian Culverwell	Ian Culverwell	"Michael Gorbunov (Russian Academy of Sciences, Russia) has reported an error in the calculation of refractive amplitude in '''ropp_pp/preprocess/ropp_pp_amplitude_go.f90''':


{{{
     snr_R(i) = SQRT(ABS( (1.0_wp/(dgns*dleo))*                        &
              (1.0_wp - (ps(i)/(rxgns(i)*dgns))*rvgns(i)/vtheta(i)     &
                 - (ps(i)/(rxgns(i)*dgns))*rvgns(i)/vtheta(i))*        &
                 pv(i)/vtheta(i)))

}}}

should be replaced by

{{{
     snr_R(i) = SQRT(ABS( (1.0_wp/(dgns*dleo))*                        &
              (1.0_wp - (ps(i)/(rxgns(i)*dgns))*rvgns(i)/vtheta(i)     &
                 - (ps(i)/(rxleo(i)*dleo))*rvleo(i)/vtheta(i))*        &
                 pv(i)/vtheta(i)))

}}}

Kjartan Kinch (DMI) agrees.

Test this in ROPP6.0."	defect	closed	normal	6.0	ropp_pp	5.0	fixed	ropp_pp, amplitude