if (d_cf >= d_cf_min * rkilo) then
if (lon(i_n) > lon(i_s) .and. theta_d_cf <= pi_thirds) then
call quadric_fit(one(1:one_num, 1:2), one_num, a, b, c, k, r2)
if(r2 >= 0.8 .and. k <= 0.1) then
mtype_part=1
endif
elseif (theta_d_cf <= pi_ninths) then
call quadric_fit(one(1:one_num, 1:2), one_num, a, b, c, k, r2)
if(r2 >= 0.8 .and. k<= 0.1) then
mtype_part=1
endif
endif
endif
It seems like the routine checks if the angle, theta_d_cf, is positive and below 60 degree. if this is not the case the routine checks if the angle is below 20 degree.
Is this routine detecting angles between -20 and 60 degree? Shouldn't it satisfy two (both) conditions instead of "elseif"?
L95 in cf_synop_check.f90 are as follows:
It seems like the routine checks if the angle,
theta_d_cf
, is positive and below 60 degree. if this is not the case the routine checks if the angle is below 20 degree.Is this routine detecting angles between -20 and 60 degree? Shouldn't it satisfy two (both) conditions instead of "elseif"?