|
|
@@ -131,8 +131,11 @@ end
|
|
|
if $ARGS[0] = 'doy':
|
|
|
doy_N1 = 275 * ARGS[2] / 9
|
|
|
doy_N2 = (ARGS[2] + 9) / 12
|
|
|
- doy_N3 = 1 + (ARGS[1] - 4 * (ARGS[1] / 4) + 2) / 3
|
|
|
+ doy_N3 = 1 + (ARGS[1] - (4 * (ARGS[1] / 4)) + 2) / 3
|
|
|
result = doy_N1 - (doy_N2 * doy_N3) + ARGS[3] - 30
|
|
|
+ killvar 'doy_N1'
|
|
|
+ killvar 'doy_N2'
|
|
|
+ killvar 'doy_N3'
|
|
|
end
|
|
|
|
|
|
if $ARGS[0] = 'mk1':
|
